Ich möchte Duplikate in meiner Listbox entfernen

Hallo

Ich möchte die Duplikate in meiner Listbox löschen, aber ich habe einen Fehler , den ich anscheinend nicht beheben kann.

Es entfernt mich zwar davon, aber nach einer Weile buggt es.

Hallo. Versuchen Sie Folgendes:

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 „Gefällt mir“