Makro für "Suchen nach"
15.01.2003 09:47:47
BerndR
zu dem folgenden Makro für die Funktion "Suchen nach" hat mir freundlicherweise ein Forumsteilnehmer verholfen:
Sub auto_open()
Dim dlgAnswer As Integer
Worksheets("Tabelle1").Range("B:B").Select
dlgAnswer = Application.Dialogs(xlDialogFormulaFind) _
.Show(Arg1:="Ortsnamen eingeben", Arg6:=True)
'Arg1 kann zur Vorgabe eines Suchbegriffes verwendet werden;
'Arg6 aktiviert die Option für "Groß/Kleinschreibung"
End Sub
Wie muss ich es ergänzen, damit auch die Option "Nur ganze Zellen suchen" aktiviert wird ?
Gruss BerndR
Anzeige