wie kann ich dem Dialog, als Voreinstellung den Wert aus einer Variablen übergeben?
Application.CommandBars("Built-in Menus").FindControl(ID:=1849, Recursive:=True).Execute
M.f.G.
Lutz
Sub t()
Dim sTest As String
sTest = "Test"
Application.SendKeys "^f"
Application.SendKeys sTest
End Sub
Sub Suchfenster_Auf()
On Error GoTo Fehler
Dim Suchtext$
Suchtext = "Hallo"
CommandBars.FindControl(ID:=1849).Execute
Cells.Find(What:=Suchtext).Activate
Exit Sub
Fehler:
MsgBox "kein Fund"
On Error GoTo 0
End Sub
Gruß Matthias