Listbox filtern
22.07.2014 10:37:13
Chris
ich habe eine Listbox mit sechs Spalten und unterschiedlich vielen Einträge.
Diese Einträge sollen anhand der Werte in Spalte 5 gefiltert werden. Wenn
dort "AKTIV" steht, soll der Eintrage ausgeblendet werden. Ich hab da mal was gebastelt, tut sich jedoch nix:
Private Sub CommandButton4_Click()
Dim i As Long
For i = 0 To Me!ListBox1.ListCount - 1 Step -1
If Me!ListBox1.List(i, 5) = "AKTIV" Then
ListBox1.RemoveItem iIndex
End If
Next i
End Sub