Excel 2003 / Suchen-Dialog aufrufen mittels Makro

Hallo zusammen

Ich habe schon wieder eine Frage.

Gibt es eine Möglichkeit, den Suchen-Dialog (so wie ich ihn über Bearbeiten > Suchen aufrufen kann) aus einem Makro heraus aufrufen. (Ich denke, es ist möglich. Wenn ich mich richtig erinnere, konnte ich das im Excel 5 machen.)

Eine andere Möglichkeit wäre mittels SendKeys "%bs" eine Tastenkombination zu senden. Leider funktioniert das nicht richtig.

Gruss
Bruno

 

Hallo!

Mit der Zeile Application.CommandBars.FindControl(ID:=1849).Execute rufst Du den Dialog auf.

Gruß, Rene

 

Besten Dank für die Info. Funktioniert!

Noch eine Nachfrage: Gibt es eine Übersicht über die IDs (falls ich das noch für einen anderen Menübefehl bräuchte) oder wie kann man diese ID herausfinden?

Gruss
Bruno


PS: Hab jetzt gerade herausgefunden, dass man die ID ja gar nicht braucht . Man kann alternativ auch diesen Code verwenden:

Code:

Application.CommandBars("Worksheet Menu Bar").Controls("&Bearbeiten").Controls("Suchen...").Execute

 

Hi Bruno,

das geht auch, indem man den Dialog direkt aufruft

Code:

Application.Dialogs(xlDialogFormulaFind).Show

Schau mal in die VBA-Hilfe zum Stichwort XlBuiltInDialog-Enumeration. Dort sind alle Dialoge aufgeführt.

 

xlDialogFormulaFind oder xlDialogFormulaReplace kann ich nicht empfehlen. Diese setzen nämlich die normale Suchen-Funktion über Bearbeiten->Suchen außer Kraft. Erst nach einem Excel-Neustart kann man diesen Dialog wieder benutzen. Im Übrigen benutzt Du bei SendKeys die falsche Tastenkombination. Richtig heisen müsste es: Application.SendKeys "^f" (STRG+F)

 

Hi,

das kann ich bei mir (Excel2002 und 2007) nicht nachvollziehen. Der Suchen- bzw. Ersetzen-Dialog kann auch nach dem Ausführen von Application.Dialogs(xlDialogFormulaFind).Show nach wie vor von Hand aufgerufen werden, ohne dass Excel vorher geschlossen werden muss.
Bei Excel2007 wird der mittels Code aufgerufene Dialog nur ein wenig eigenartig angezeigt, indem die Aufschriften der Buttons z.T. in Englisch und z.T. in Deutsch sind.

 

@Beverly: In Word habe ich auch schon nach diesem Schema eine Öffnen-Auswahl gemacht. Hätte ich also auch draufkommen können.

Meine Feststellung bei diesen beiden Varianten ist folgende:

1. Bei Application.CommandBars.FindControl(ID:=1849).Execute kommt genau die Dialogbox wie über das Menü (Suchen und Ersetzen, mit Register).

2. Bei Application.Dialogs(xlDialogFormulaFind).Show erscheint ein Suchen-Dialog wie er bei Excel97 war (nur Suchen, ohne Register aber mit Button Ersetzen).

Danke nochmals.

Gruss
Bruno