Listbox über Textbox filtern
23.12.2020 19:16:48
Longo
Ich möchte über eine Textbox eine Listbox filtern. Sobald die Textbox wieder leer ist, sollen wieder alle Daten angezeigt werden. Im weiteren möchte ich über alle vorhandenen 13 Spalten filtern und nicht nur über eine. Bisher habe ich folgenden Code:
Private Sub TextBox4_Change()
Dim lngIndex As Long
With ListBox1
For lngIndex = .ListCount - 1 To 0 Step -1
If Not .List(lngIndex, 2) Like TextBox4.Text & "*" Then _
Call .RemoveItem(lngIndex)
Next
End With
End Sub