Suchfehler
09.11.2013 21:12:04
Albert
ich verwendet nachfolgenden Code, um ein Datum zu suchen.
Sub Datum()
BDatum = CDate(TextBox3.Value)
Cells.Find(What:=BDatum, After:=ActiveCell, LookIn:=xlFormulas, _
lookat:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=True, SearchFormat:=False).Activate
End Sub
Woran bzw. worin liegt der Fehler. Wär euch um Rat dankbar.
Gruß
A.
Anzeige