Hallo,
ich habe folgendes Problem.
Ich lese aus einem Tabellenblatt die Daten in die Listbox ein. Jetzt möchte ich mehrere Datensätze gleichzeitig aus der Tabelle über die Listbox löschen. Das klappt aber nicht so richtig. Er löscht mir immer nur einen Datensatz, und zwar den mit der kleinsten Zahl. Wer kann mir da helfen? Hier ist der Code:
Dim iX As Long
If MsgBox("Möchten Sie die markierten Zeilen wirklich löschen", _
vbQuestion + vbYesNo, "Frage") = vbYes Then
With ActiveSheet
.Range(.Cells(ListBox1.ListIndex + 4, 1), .Cells(ListBox1.ListIndex + 4, 5)).ClearContents
End With
End If
Range("A4:E60000").Sort Key1:=Range("A4"), Order1:=xlAscending, Header:=xlNo, Orientation:=xlTopToBottom
Unload Me
Vielen Dank für eure Hilfe!!!
Gruß Daniel