listbox inhalte löschen

Question

hallo,

bin mit meinem latein am Ende.

Habe ne Listbox mit MultiSelect und Checkboxen
und möchte Datensätze aus der Listbox per button löschen..
einzelne werde gelöscht.. aber irgendwie nicht alle..

mir ist aufgefallen, dass nur die geraden Zahlen gelöscht werde.. woran kann das liegen?

Private Sub CommandButton202_Click()
Dim iRow As Integer

Sheets("Struktur").Select
With ListBox2_100
For iRow = 0 To ListBox2_100.ListCount - 1 Step 1
If ListBox2_100.Selected(iRow) = True Then
Sheets("Struktur").Rows(iRow + 2).Delete
End If
Next
End With
ListBox2_100.Clear
Call UserForm_Initialize
End Sub

danke

Answer 1

Hi,

Lass die Schleife einfach andersrum laufen, dann sollte das passen.

For iRow = ListBox2_100.ListCount - 1 To 0 Step -1

bye
malSchauen

Answer 2

oh man auf die idee hätte ich ja selber kommen müssen..
wenn ich zeile lösche, dann rutscht die ja eins nach oben usw.. :-)
danke