Prüfen ob Text am Anfang von String
08.02.2022 08:58:37
String
ich erstelle mir gerade eine UserForm (UserForm_Select) die, per Eingabe eines Textes in eine Combobox (cbKunde), Daten aus einer Tabelle (Worksheets("Daten")) filtert und sortiert in eine Listbox (ListAnlagen) einfügt.
Die Daten beinhalten Daten unserer Kunden inkl verschiedenen Standorten.
Z.B.
Firma A
Firma B Berlin
Firma B Hamburg
Firma B München
Firma C
usw...
Wie ist das Suchsyntax für einen Platzhalter? (Unter Windows *)
Hier mein Code:
Private Sub cbKunde_Change()
Dim i As Long
Dim iEnd As Long
Dim cbKundeStr As String
cbKundeStr = cbKunde.Text & "*"
MsgBox cbKundeStr
Worksheets("Daten").Columns("A:BF").Sort , Key1:=Worksheets("Daten").Range("A1"), Order1:=xlAscending, header:=xlNo
UserForm_Select.ListAnlagen.Clear
iEnd = Worksheets("Daten").Cells(Rows.Count, 2).End(xlUp).Row
For i = 1 To iEnd
If Worksheets("Daten").Cells(i, 2).Text = cbKundeStr Then
UserForm_Select.ListAnlagen.AddItem
UserForm_Select.ListAnlagen.List(ListAnlagen.ListCount - 1, 0) = Worksheets("Daten").Cells(i, 1).Text ' ID
UserForm_Select.ListAnlagen.List(ListAnlagen.ListCount - 1, 1) = Worksheets("Daten").Cells(i, 30).Text ' Letzte Wartung
UserForm_Select.ListAnlagen.List(ListAnlagen.ListCount - 1, 2) = Worksheets("Daten").Cells(i, 13).Text ' Typ
UserForm_Select.ListAnlagen.List(ListAnlagen.ListCount - 1, 3) = Worksheets("Daten").Cells(i, 16).Text ' Leistung
UserForm_Select.ListAnlagen.List(ListAnlagen.ListCount - 1, 4) = Worksheets("Daten").Cells(i, 14).Text ' SN
UserForm_Select.ListAnlagen.List(ListAnlagen.ListCount - 1, 5) = Worksheets("Daten").Cells(i, 6).Text ' Raum
UserForm_Select.ListAnlagen.List(ListAnlagen.ListCount - 1, 6) = Worksheets("Daten").Cells(i, 4).Text ' Ort
UserForm_Select.ListAnlagen.List(ListAnlagen.ListCount - 1, 7) = Worksheets("Daten").Cells(i, 3).Text ' Straße
UserForm_Select.ListAnlagen.List(ListAnlagen.ListCount - 1, 8) = Worksheets("Daten").Cells(i, 10).Text ' Ansprechpartner Vor Ort 1
UserForm_Select.ListAnlagen.List(ListAnlagen.ListCount - 1, 9) = Worksheets("Daten").Cells(i, 11).Text ' Ansprechpartner Vor Ort 2
End If
Next
End Sub
Anzeige