Office: VBA ListBox Zeilen entsprechend in Tabelle löschen

Hallo zusammen,

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. Die Listbox wird mittels rowsource gefüllt.

Ich wäre euch sehr dankbar, wenn ihr mir weiterhelfen könntet.

Mein Code:

Code:

Angehängt ist noch eine Beispieldatei.

Vielen Dank und beste Grüße
Chris

:)

 

Hallo Chris,

Deine Schleife sollte vom letzten zum ersten Eintrag laufen
Rows(ListBox_Positionen.ListIndex + 6).Delete Shift:=xlUp

Bitte berücksichtige das Themen die Erledigt sind als Erledigt markiert werden können. Also mache es unten links mit Klick auf den Schalter "als erledigt setzen", falls Problem gelöst.
Der Zustand des Beitrages wird dann in der Übersicht angezeigt und man braucht sich diese Beiträge nicht mehr ansehen.





Meine Homepage Homeseite - Hajo's Excelseiten

 

Hallo Hajo,

danke für deine Antwort.
Leider weiß ich nicht genau wie du das meinst.
Wie kann ich die Schleife vom letzten bis zum ersten Eintrag laufen lassen?

Danke und Gruß
Chris

 

Du hast doch schon einen Code erstellt Wo ist das Problem?
For i = ListBox_Positionen.ListCount - 1 To 0

 

Hallo Chris,

so:

Code:

Zeilen musst du immer von unten nach oben löschen.

 

Danke für eure Antworten.

Es wird immer noch nur eine Zeile gelöscht, obwohl ich mehrere auswähle.
Leider verstehe ich nicht woran das liegt.

Code:

 

sehe ich es richtig, Du möchtest meinen Beitrag nicht komplett lesen.
Da ich nicht für den Papierkorb schreibe bin ich raus.

Rows(I+6).Delete

 

Hallo Hajo,

habe jeden Beitrag gelesen und auch berücksichtigt.
Leider funktioniert es auch nicht mit deiner Methode.
Hast du noch einen Tipp?

Danke und Gruß
Chris

 

Hallo Chris,

du löschst ja auch nur eine Zeile. Teste mal:

Private Sub CommandButton_Positionenloeschen_Click()

Dim i As Long

For i = ListBox_Positionen.ListCount - 1 To 0 Step -1

If ListBox_Positionen.Selected(i) Then

Rows(i + 6).Columns("F:K").Delete Shift:=xlUp

End If
Next
End Sub

 

Hallo Chris,

wenn du mal genau nachschaust, wirst du vielleicht bemerkt haben, daß nach dem Löschen der 1. Zeile in der For-Schleife die Selektion der Listeneinträge gelöscht wird. So kannst du natürlich nur einen Eintrag löschen. Hier müßtest du an deinem Programmablauf nochmal etwa nacharbeiten.

Gruß Ulrich

 

Hallo zusammen,

danke für eure Hilfe. @knobbi38 da hast du vollkommen recht. Habe folgenden Code von einem User (ralf_b) erhalten, der genau das berücksichtigt.

Code:

Damit funktioniert das Löschen von mehreren Einträgen.

Grüße
Chris