Code:
Public Sub Datum_Suchen()
Dim rngFind As Range
Dim strDate As String
strDate = InputBox("Datum:", , Date)
If strDate = "" Then Exit Sub
Set rngFind = Cells.Find(DateValue(strDate), LookIn:=xlFormulas)
If Not rngFind Is Nothing Then
rngFind.Activate
rngFind.Interior.ColorIndex = 3
Else
MsgBox "Das Datum wurde nicht gefunden!"
End If
End Sub