moin

ein Weg...

Sub suchen()
    Dim c As Variant
    Dim Suchwert
    Dim Datum As Date
    Suchwert = InputBox("gesuchen Wert eingeben")
    If Suchwert = "" Then Exit Sub
    Datum = CDate(Suchwert)
    c = Application.Match(CDbl(Datum), Columns(1), 0)
    If Not IsError(c) Then
        MsgBox "das eingegebene Datum " & Cells(c, 1).Value & " ist " & Cells(c, 2).Value
    Else
        MsgBox "mach sonst was"
    End If
End Sub

Grüßli