Doppelte einträge im Array entfernen
14.07.2022 15:53:38
Sk1988
Ich habe gerade ein kleines Problem, ich fülle mein Array mit Daten aus einer Excel Datei, dies funktioniert auch.
Diese sollen dann in eine Combobox eingetragen werden. Wie bekomme ich doppelte werte aus meinem Array raus?
So das ich in meiner Combobox nicht die selben werte habe, gibt es dafür ein Befehl, oder doch eventuell mit einer If anweisung? Stehe gerade etwas auf dem Schlauch.
Private Sub UserForm_Initialize()
Dim Laender() As String, z As String
Dim spnr As Integer, zaehler As Integer, i As Integer
spnr = 2
zaehler = 1
Do While Cells(spnr, 9) ""
ReDim Preserve Laender(i)
Laender(i) = Cells(spnr, 9).Value
spnr = spnr + 1
i = i + 1
Loop
For i = LBound(Laender) To UBound(Laender)
Me.cmb_Laender.AddItem (Laender(i))
Next
End Sub
Danke schonmal!
Gruß Stefan