Jetzt möchte ich alle Zeilen, in denen der Suchbegriff nicht vorkommt ausgeblendet haben. Mein Code dazu sieht folgenderweise aus:
Private Sub CommandButton_Suchen_Click()
Dim i As Integer, ii As Integer
For i = 0 To ListBox_Liste.ListCount - 1
For ii = 0 To ListBox_Liste.ColumnCount - 1
If InStr(ListBox_Liste.List(i, ii), TextBox1.Text) Then
Else
ListBox_Liste.RemoveItem
End If
Next
Next
End Sub
Allerdings werden die Zeilen nicht entfernt :( Jemand eine Idee was da falsch ist?
Liebe Grüße,
Stephan