Hej Gruppe

Jeg har et regneark med en masse navne. Mit ønske er, via en makro at kunne fremkalde dialogboksen Tekstfilter

 

 

med mulighed for at taste en værdi og derpå søge. I en ældre version af excel har nedenstående kode virket, men det gør den ikke mere!!

 

Sub søg_fornavn()
'
' søge Makro
' Makro indspillet 19-12-2003 af Hung

'
   Dim Svar As Boolean
    Svar = Application.Dialogs(xlDialogFilter).Show(7)
End Sub

 

Kan I hjælpe med den rigtige kode til Excel 2010

 

mvh

Peda

 

Jeg tror denne kode vil virke, jeg mener nemlig at skillelinjen mellem de 2 måder går ved 2007

 

Sub find_fornavn()
Dim Svar As Boolean
If Application.Version > 12 Then
    Svar = Application.Dialogs(xlDialogFilter).Show(7)
Else
    Svar = Application.Dialogs(xlDialogFilter).Show(6)
End If
End Sub

 

Prøv den lige af hos dig

 

//Allan

Makroen kører godt nok uden  fejl. Da den tilsyneladende ender med den nederste (6), så ender denmed at søge i kolonne 6 i stedet for kolonne 7. Dermed forsøger den at returnere noget fra en forkert kolonne.

Jeg forstår ikke helt hvorfor kolonnenummeret skal ændres med versionen. Har du en forklaring på det?

 

mvh

Peda

Har du autofilter på kolonne G?

 

//Allan

mvh

Peda

Vises dialogboksen slet ikke?

 

//Allan

 

 

Nu kører den - Tusind tak.

Denoprindelige kode som du sendte:

 

Sub find_fornavn()
Dim Svar As Boolean
If Application.Version > 12 Then
    Svar = Application.Dialogs(xlDialogFilter).Show(7)
Else
    Svar = Application.Dialogs(xlDialogFilter).Show(6)
End If
End Sub

 

Her har jeg vendt STørre end tegnet, så funker det fint.

Nu har jeg været inde i stifinder og konstateret at min excel version benævnes som Office version 14. Jeg kan stadig ikke forstå hvorfor den IKKE virker med denne kode:

 

Sub find_fornavn()
Dim Svar As Boolean
    Svar = Application.Dialogs(xlDialogFilter).Show(7)
End Sub

 

Den vil vel altid ende i denne linie, når jeg bruger version 14.

Det har ingen betydning jeg er bare nysgerrig

 

mvh

Peda

 

 

Jeg ved det faktisk ikke, jeg havde oprindelig misforstået dit spørgsmål.

Men jeg vil alligevel spørge om hvad du bruge 'Svar' til, siden den sættes til Boolean (True or False)

 

Hvis du ikke skal bruge 'Svar' til noget, hvad så hvis du bare bruger denne kode:

 

 

Det er her den store mystik opstår. Hvis jeg anvender din nye kode og indtaster noget i dialogboksen og trykker OK, så!!!

og herpå låser Excel fuldstændigt, men bruger jeg den anden kode virker det.

 

Jeg kan ikke forklare mere. bare mærkeligt ikke

 

mvh

Peda

Hovedsagen er dog at det virker nu

 

God dag Peda.

 

//Allan

peda

 

Med eller uden () giver giver ingen forskel hos mig.

Spørgsmålet er om det giver forskel hos peda på hans Excel 2010.

 

Rassten, kan du forklare mysteriet mht. peda's problem?

 

 

 

rassten skrev: Men der selvfølgelig også en helt anden måde Sub B_test() ExecuteExcel4Macro "filter?(7)" End Sub

Virker også fint her, den er i hvert fald mere elegant end min med 'Application.version'  som egentlig kun kom på banen fordi jeg havde misforstået spørgsmålet.

 

Tak for input rassten.

 

//Allan

 

Nu kan det vist ikek blive mere elegant. Flot kodestump, hvor er Excel dog smart, og jeg er glad for at I har hjulpet begge to

TAK

 

mvh

Peda