|
Hallo zusammen,
Ich stehe an den Problem, das in mein dynamischen Array keine doppelten Werte aufgenommen werden sollen. Nach 3 Tagen jeweils 5 Stunden, hab ich mir überlegt hier einfach mal nachzufragen. Simpel gesagt befindet sich in einer Excel Tapelle ca 700 Zeilen mit Ländernnamen die auch doppelt vorhanden sind. Dies soll alles in eine Combobox gefüllt werden, aber ohne doppelt einträge. Das heißt jedes Land nur 1x aufgeführt. Am ende soll ein Text darüber stehen wie hoch die Anzahl der auszuwählbaren Länder sind. Gibt es eine Möglichkeit mit einer IF - Anweisung (so wie ich es schon versucht habe, aber gescheitert bin) doppelte Werte zu überspringen?
Private Sub UserForm_Initialize()
Dim Laender() As String
Dim znr As Integer, zaehler As Integer, i As Integer
znr = 2
zaehler = 0
Do While Cells(znr, 9) <> ""
ReDim Preserve Laender(i)
Laender(i) = Cells(znr, 9)
If IsMissing(Laender) = False Then
znr = znr + 1
i = i + 1
zaehler = zaehler + 1
Else
i = i - 1
znr = znr + 1
End If
Loop
Me.cmb_Laender.List = Laender
Me.cmb_Laender.ListIndex = 0
End Sub
Danke schonmal für eure Hilfe!
Gruß Stefan
|