Public Sub Suchen()
Dim Eingabe As String
Do
Eingabe = InputBox("Bitte den Namen des Mitarbeiters eintragen." & vbCrLf & _
"(Name, Vorname)", " Mitarbeitersuche")
If StrPtr(Eingabe) = 0 Then Exit Do ' Abbrechen gedrückt
If Eingabe = "" Then Exit Do ' keine Eingabe gemacht
If Not IsError(Application.Match(Eingabe & "*", Range("B:B"), 0)) Then
Rows(Application.Match(Eingabe & "*", Range("B:B"), 0)).Select
Exit Do
Else
If MsgBox("Der Mitarbeiter """ & Eingabe & """ wurde nicht gefunden!" & vbLf & _
"Soll die Suche neu gestartet werden?", vbYesNo, " Fehler Eingabe.") = vbNo Then
Exit Do
End If
End If
Loop
End Sub