ich habe eine für Euch bestimmt ganz einfache Frage:
Wie sieht der VBA Text aus mit der ich die Suchfunktion öffnen kann?
1.000 Dank und Gruß
-Michael-
Sub Suchen()
Application.Dialogs(xlDialogFormulaFind).Show
End Sub
Sub Suchdialog()
If Not CommandBars.FindControl(ID:=1849) Is Nothing Then
CommandBars.FindControl(ID:=1849).Execute
End If
End Sub