Zeile löschen
09.02.2005 10:16:28
Sebastian
ich habe folgendes Problem:
Folgender Quelltext löscht eine Zeile, wenn ein Eintrag in einer ListBox markiert ist.
For intIndex = Data_ListBox.ListCount - 1 To 0 Step -1
If Data_ListBox.Selected(intIndex) = True Then
Worksheets(1).Rows(intIndex + 2).Delete
End If
Next intIndex
Nur klappt das nur beim letzten Eintrag in die ListBox und nicht bei allen wenn mehrere markiert sind.
Woran liegt das? Kann mir jemand Helfen?
Gruß Sebastian