Visual Basic - Technik, FAQ, Tricks, Beispiele

Home / Objekte / ListBox / DelSel

Selektierte Einträge entfernen

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

© Jost Schwider, 25.07.2000-25.07.2000 - http://vb-tec.de/listboxd.htm