Sub test()
Dim c As Range
Dim strFirst As String
Dim strAusgabe As String
Dim SuchDatum As Variant
SuchDatum = Application.InputBox("gesuchtes datum eingeben", "Suchdatum", , , , , , 1)
If VarType(SuchDatum) = vbBoolean And SuchDatum = False Then Exit Sub
With Sheets("Tabelle1")
Set c = .Columns(8).Find(CDate(SuchDatum), LookIn:=xlFormulas, lookat:=xlWhole)
If Not c Is Nothing Then
strFirst = c.Address
Do
If .Cells(c.Row, 9).Value = "Nein" Then
strAusgabe = .Cells(c.Row, 1).Value
MsgBox "Heute Kunde " & strAusgabe
End If
Set c = .Columns(8).FindNext(c)
Loop While Not c Is Nothing And c.Address <> strFirst
End If
End With
End Sub