mit [Strg]+[F] kann ich die Suchfunktion öffnen. Als Standard ist dort Blatt eingestellt.
Kann ich diese Voreinstellung auf Arbeitsmappe ändern?
Vielen Dank.
Ciao, Mike
Sub finde()
'XL2000 xlDialogFormulaFind text, in_num, at_num, by_num, dir_num, match_case, match_byte
Dim Suchtext As String, Suchen_In As Long, Ganze_Zellen As Long, Suchen As Long
Dim mymatch_case As Boolean, Gross_Klein As Boolean
Suchtext = "Huhu"
Suchen_In = 2 '1=Formeln, 2=Werte,3=Kommentare
Ganze_Zellen = 2 '1="Nur ganze Zellen suchen" aktiviert, 2="Nur ganze Zellen suchen" _
DEaktiviert
Suchen = 2 '1=In Zeilen, 2=In Spalten
mymatch_case = False 'Unterschied zwischen True und False ist nicht erkennbar
Gross_Klein = True 'True=Gross/klein aktiviert, False=Gross/klein DEaktiviert
Application.Dialogs(xlDialogFormulaFind).Show Suchtext, Suchen_In, Ganze_Zellen, _
Suchen, mymatch_case, Gross_Klein
End Sub