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
|