Liebe VBA-Community,

ich stolpere aktuell über eine vermeintlich leichte Hürde und sehe offenbar den Wald vor lauter Bäumen nicht.
Es existiert eine Tabelle mit Länderangaben in Spalte I. Es kommen häufiger dieselben Länder vor. In einer UserForm sollen in einem DropDown nun diese Länder aufgelistet werden. Das klappt mit untenstehendem Code auch... allerdings sollte jedes Land nur 1x aufgelistet werden und dieses Detail bekomme ich nicht eingebaut. So wird aus der Auflistung von aktuell circa 20 Ländern eine Auflistung von mehr als 2.000 Ländern.

Vielen Dank für eure Hilfe, Gruß aus Berlin
Markus

 

Private Sub UserForm_Initialize()
Dim spnr As Integer, anz As Integer

anz = 0
spnr = 2
'irgendwie muss hier noch mit rein, dass kein Land doppelt sein darf.
Do While Worksheets("Bestellliste").Range("I" & spnr) <> ""
    Me.cmb_laenderliste.AddItem Worksheets("Bestellliste").Cells(spnr, 9)
    spnr = spnr + 1
    anz = anz + 1
Loop
Me.cmb_laenderliste.ListIndex = 0

End Sub