Suchbegriff einfügen
20.01.2004 18:50:22
Matthias H.
in Zelle "AA2" steht ein beliebiger Text. Nach diesem möchte ich mit Hilfe der Suchfunktion von Excel in einem definierten Bereich suchen.
Hier mein Ansatz:
Sheets(1).range("AA2").Select
Selection.Copy
Dim last As Long
last = Sheets(1).Cells(4, 1).End(xlDown).row
Sheets(1).range(Cells(5, 1), Cells(last, 26)).Select
Application.Dialogs(xlDialogFormulaFind).Show
SendKeys "^v" 'Einfügen des kopierten Suchbegriffes
SendKeys "{ENTER}" 'Starten der Suche
Leider wird der kopierte Suchbegriff nicht immer in das Suchen nach: Textfeld der Suchmaske kopiert. Es funktioniert nur sporadisch. Ich denke, daß es davon abhängt, ob gerade der Focus auf dieses Feld gesetzt ist.
Gibt es eine sicherere und elegantere Methode einen Suchbegriff in das Dialogfeld
Application.Dialogs(xlDialogFormulaFind)
einzutragen?
Gruß
Matthias