Hallo zusammen,

ich habe mich schon doll und dabbisch gesucht, aber keine einfache Lösung gefunden, vielleicht könnt ihr mir helfen:

Ich habe diesen Code geschrieben um die Länderliste in eine Combobox zu übertragen. Wie kann ich es realisieren, dass nur die eindeutigen Werte in der Liste angezeigt werden?

Danke für die Hilfe.

https://www.herber.de/bbs/user/166095.xlsm

----------
Private Sub UserForm_Activate()

Dim land()
Dim i As Integer
Dim ausgabe()
Dim letztezeile As Integer
Dim a As Integer
Dim b As Integer

letztezeile = ActiveSheet.Cells(Rows.Count, 9).End(xlUp).Row
'MsgBox letztezeile

ReDim land(letztezeile)
ReDim Preserve land(letztezeile)

'lesen der Daten aus Spalte I
For i = 2 To letztezeile
land(i) = Cells(i, 9).Value
Next

'Ausgabe in Combobox
For i = 2 To letztezeile
Me.ComboBox1.AddItem land(i)
Next

End Sub