Like, Compare, Ucase oder Lcase
08.03.2023 12:27:26
Antonio
nachdem Tipp von onur kann ich weiter schreiben,
mit diesem Code wird eine Listbox gefiltert:
Private Sub TextBox1_Change() 'Listbox1 filtern
Dim zeile As Long
Me.ListBox1.Clear
Me.ListBox1.List = arrData
For zeile = Me.ListBox1.ListCount - 1 To 0 Step -1
If Not Me.ListBox1.List(zeile, 0) Like Me.TextBox1 & "*" Then Me.ListBox1.RemoveItem (zeile)
Next
Label2 = ListBox1.ListCount & " Song gefunden "
End SubIch bin davon ausgegangen das "Like" an sich macht keine Unterschiede
ob in Textbox: buch, Buch, buCH oder BUch, steht, sollte egal sein, filtern sollte stattfinden.
Aber wenn ich, wie in der Listbox den Anfangbuchstabe groß schreibe, wierd gefiltert,
wenn ich klein screibe, der Listbox leert sich und nichts wird gefiltert.
Bin evtll. mit "Like" falsch?
Bitte um Hilfe.
Vielen Dank im Voraus
LG Antonio
Anzeige