AW: Text in Spalte buchstabenweise suchen
25.03.2016 19:30:11
Peter
Hallo Wolfgang,
dann füge hinter deinen Suchbegriff eine Sternchen ein - & "*"
Dann wir der erste Wortteil bis zum Sternchen gesucht
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
Im Beispiel wird in Spalte 2 = B gesucht.
Gruß Peter