Doppelte Einträge in der ListBox schnell löschen Mit dieser Prozedur lassen sich alle doppelten Einträge einer sortierten ListBox schnell löschen.
Autor:   Rolf Wahlbrinck	Bewertung:     [ Jetzt bewerten ]	Views:  26.377
ohne Homepage	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 12 Bewertung insgesamt: nützlich Durchschnittliche Bewertung: 3.2 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Mit dieser Prozedur lassen sich alle doppelten Einträge einer ListBox schnell löschen.

Voraussetzung:
Die Einträge befinden sich in sortierter Reihenfolge in der ListBox (Sorted-Eigenschaft = True).

' alle doppelten Einträge in einer sortierten ListBox löschen
Private Sub LoescheDoppelte(LBox As ListBox)
  Dim i As Long
 
  With LBox
    ' unsichtbar schalten für zusätzlichen Performance-Gewinn!
    .Visible = False
 
    ' ListBox rückwärts durchlaufen
    For i = .ListCount - 1 To 1 Step -1
      ' wenn Aktuell = Nachfolger dann Aktuell (!) löschen
      If .List(i) = .List(i - 1) Then .RemoveItem i
    Next i
 
    ' wieder sichtbar schalten
    .Visible = True
  End With
End Sub