Listview Zeilen löschen
10.06.2016 11:11:46
baschti007
Ich möchte in einem Listview Zeilen Löschen in denen im SubItem "NEIN" steht,
bis jetzt habe ich diesen Code. Der auch so weit funktioniert bis kurz vor dem Ende.
Sub Löschen()
For y = 1 To ListView1.ListItems.Count - 1
If ListView1.ListItems(y).ListSubItems(9).Text = "JA" Then
MsgBox ListView1.ListItems(y).ListSubItems(9).Index & " JA"
Else
MsgBox ListView1.ListItems(y).ListSubItems(9).Index & " NEIN"
ListView1.ListItems.Remove (ListView1.ListItems(y).Index)
y = y - 1
End If
Next
End Sub