Sub SuchDialog()
Application.Dialogs(xlDialogFormulaFind).Show
End Sub
Sub SuchDialog()
Application.CommandBars.FindControl(ID:=1849).Execute
End Sub
Sub SuchDialog()
Application.CommandBars("Worksheet Menu Bar").Controls("&Bearbeiten").Controls("Suchen..."). _
Execute
End Sub
MfG
Wolfgang
Sub Makro1()
' Makro1 Makro
' Makro am 20.01.2008 von Wolfgang aufgezeichnet
Cells.Find(What:="T*", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
End Sub
es geht kein Dialogfeld auf!
Gruß Wolfgang
Sub SuchDialog()
Dim S1 As Object, Rng As Range
Set S1 = Application.Dialogs(xlDialogFormulaFind)
Set Rng = Cells
With Rng
.Select
S1.Show
End With
End Sub
Gruß Gerd