Datum Suche
27.08.2015 08:07:33
Steffen
ich habe mit mit Hilfe vom Forum usw folgenden Code zum suchen des aktuellen Datums in einer Zeile gebastelt:
Sub DatumFinden()
Dim rng As Range
Dim lngDatum As Long
lngDatum = CLng(Date)
For Each rng In Range("A6:GT6")
If IsDate(rng) Then
If CLng(rng) = lngDatum Then
rng.Select
Exit Sub
End If
End If
Next
End Sub
Soweit so gut jetzt bekomme ich aber es nicht hin, eine MSGBOX zu erhalten wenn er das Datum in der Zeile nicht finden kann...
Könnt ihr meinen Knoten zerschlagen?
Danke!!!