Fenster suchen und ersetzen über VBA öffnen

[Franke]

Ich möchte das Fenster suchen und ersetzen über einer Taste öffnen.

Dafür habe ich das geschrieben.

Private Sub CommandButton5_Click()
'  Suche  '
Application.Dialogs(xlDialogFormulaFind).Show

End Sub


doch leider öffnet sich nur  das Fenster suchen Bild links

doch ich möchte  das Fenster suchen und ersetzen, das ich mit Strg +F öffnen kann Bild rechts.
Wer kann mir dazu den Code geben.

Danke im voraus.

[maninweb]

Hallo,

versuche es mal mit ...

PHP-Code:

Application.CommandBars.FindControl(ID:=1849).Execute 


Gruß

[Case]

Hallo,  

Code:

Application.Dialogs(xlDialogFormulaReplace).Show

Oder auch gleich was reinschreiben:  

Code:

Application.Dialogs(xlDialogFormulaReplace).Show "H2O", "H2SO4", 2

[Franke]

Super Danke ihr habt mir mehr als geholfen.

Danke Franke

[snb]

Oder einfach Ctrl-H