VB-Tec.de Visual Basic - Technik, FAQ, Tricks, Beispiele

Mit folgender Prozedur können alle selektierten Einträge einer Listbox entfernt werden. Damit auch alle Elemente entfernt werden (und ein wenig aus Performance-Gründen), erfolgt die Löschung von hinten.

Sub ListboxDelSel(ByRef lst As ListBox)
  Dim i As Long
  
  With lst
    For i = .ListCount - 1 To 0 Step -1
      If .Selected(i) Then .RemoveItem i
    Next i
  End With
End Sub