Rubrik: Controls · ListBox | VB-Versionen: VB4, VB5, VB6 | 10.12.07 |
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: | Views: 25.314 |
ohne Homepage | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
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