Suchfunktion
11.11.2004 15:34:16
Thomas
das nachstehende Makro bringt mir dauernd einen Fehler in der letzten Zeile "SearchFormat:=False"
Wo liegt da denn da der Fehler?
Gruß
Thomas
Private Sub CommandButton1_Click()
On Error GoTo Fehler
S = TextBox1.Text
Cells.Find(What:=S, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Exit Sub
Fehler:
MsgBox "Nicht gefunden"
End Sub
Anzeige