Ik wil graag duplicaten uit mijn keuzelijst verwijderen

Out of category
1

Hallo

Ik wil graag de duplicaten in mijn keuzelijst verwijderen, maar ik heb een bug die ik niet kan oplossen.

Het verwijdert me er wel van, maar na een tijdje bugt het.

2

Hallo. Probeer het volgende:

For i = 0 To Fournisseur.ListCount - 1
    For j = Fournisseur.ListCount - 1 To i + 1 Step -1
        If Fournisseur.List(j) = Fournisseur.List(i) Then Fournisseur.RemoveItem j
    Next j
Next i

 

2 likes