Datumsobjekt auf Datentyp prüfen
25.10.2005 09:39:13
Karl
Ich möchte mit folgender Funktion eine SPalte nach einem Datum durchsuchen.
Function findZeile(wsSuchTbl As WorkSheet, datDatum As Date) As Range
Dim i As Long
For i = 1 To wsSuchTbl.Cells.SpecialCells(xlCellTypeLastCell).Row
If CDate(wsSuchTbl.Cells(i, 1).Value) = datDatum Then
Set findZeile = wsSuchTbl.Cells(i, 1)
Exit Function
End If
Next i
End Function
Ich habe dabei nur das Problem, dass die Spalte nicht nur mit Datumsobjekten gefüllt ist, sindern auch zwei Texteingaben am Ende eines jeden Monats vorhanden sind.
Kann man dies irgendwie abfangen ? Dass er es nur vergleichen soll, wenn es sich um ein Datumsfeld handelt oder wie auch immer ?