ich habe ein Problem mit dem Löschen von Inhalten aus meiner Tabelle anhand der Auswahl in der ListBox.
Ich lese die Daten der ListBox aus einem Tabellenblatt ein. Multiselect ist aktiviert. Ich würde gerne für jede ausgewählte Zeile aus der ListBox, die entsprechende Zeile aus der Tabelle löschen.
Die Tabelle hat den ersten Eintrag in F6 und geht bis in die Spalte K.
Mein bisheriger Code löscht immer nur einen Eintrag, obwohl ich mehrere Zeilen in der ListBox auswähle.
Ich wäre euch sehr dankbar, wenn ihr mir weiterhelfen könntet.
Mein Code:
Private Sub CommandButton_Positionenloeschen_Click()
Dim i As Long
For i = 0 To ListBox_Positionen.ListCount - 1 '(-1 wegen Row.Source)
If ListBox_Positionen.Selected(i) = True Then
Rows(ListBox_Positionen.ListIndex + 6).Columns("F:K").Delete Shift:=xlUp
End If
Next
End Sub
Vielen Dank und beste GrüßeChris