Datum Suche
26.01.2010 11:13:58
Gerd S.
Hallo!
Bekomme das nicht ganz hin und bitte um Hilfe.
Das Datum wird nicht gefunden, wahrscheindlich weil ich nach Text suche, habe aber keine Ahnung was funktoniert.
Sub DatumSuche()
Dim dtSuchwert As Date
dtSuchwert = Cells(1, 8)
Dim intz As Integer
Dim intg As Integer
With Sheets("Tabelle1")
intg = .UsedRange.Rows.Count
For intz = intg To 1 Step -1
If .Rows(intz).Text = (dtSuchwert) Then
Cells(intz, 2) = "ok gefunden"
End If
Next intz
End With
End Sub
Gruß
Gerd S.