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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen