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