Hallo VBA Freunde,

ich stehe vor einem großen Fragezeichen.

Ich möchte markierte Objekte aus meiner List box löschen. Mein Code funktioniert, aber nur für ein markiertes Objekt, warum ist das so? Die mehrfachauswahl ist für die list box aktiviert.

Hier der Code:

Private Sub CommandButton5_Click()  'Titel aus Wiedergabel. löschen
    Dim i As Integer
    
    For i = 0 To ListBox2.ListCount - 1
        If ListBox2.Selected(i) Then
            UserForm1.ListBox2.RemoveItem i
        End If
    Next i
    
End Sub

auf eine ähliche Weise lade ich eine markierte Auswahl aus listbox1 in diese listbox 2, deshalb verstehe ich nicht, warum es mit dem löschen nicht funktioniert.

Liebe Grüße,

Max