SuchenDialog über execute ohne zuvor select.
24.09.2003 17:45:48
zdena
wollte den SuchenDialog von EXCEL aufrufen über:
application.Dialogs(xlDialogFormulaFind.show
Geht nur wenn man über z.B. cells.select auch einen Bereich zuvor msrkiert (--> wird alles schwarz!). Bei strg+F kommt aber das Dialogfenster ohne dass irgendeine Zelle schwarz markiert sein muss!
Also war die Idee den SuchenDialog über die Menüleiste zu starten über:
Dim oBtn As CommandBarButton
Set oBtn = Application.CommandBars("Worksheet Menu Bar") _
.Controls("Bearbeiten").Controls("Suchen...")
oBtn.Execute
Macht ja nicht anderes als strg+f oder Mausklick. Trotzdem muss ich auch hier den den Bereich über cells.selct markieren, damit es funktioniert. Wird aber alles wieder schwarz!!
Frage: Wie rufe ich den SuchenDialog ohne markierte Zellen auf und dass er eingegebene Wörter in der Tabelle findet (deluxe auch über mehrere Blätter)?
Vielen Dank für eine Antwort (Habe im Archiv nur Methode mit cells.select gefunden )
Schönen Gruß
Zdena:-)