Doppelte Werte aus Array löschen
15.07.2022 14:41:25
Sk1988
Ich komme leider nicht weiter....
Ich soll eine Array befüllen, diese soll dann in eine Combobox eingefügt werden, diese sollen in der Combobox nicht mit doppelten Werten befüllt werden, dies habe ich auch mittlerweile durch Hilfe hier geschafft.
Zur richtigen Lösung sollen aber Duplikate erst gar nicht in die Array befüllt werden, bzw bevor es in die Combobox gefüllt wird, ausgefiltert / gelöscht werden.
Über der Combobox soll eine Meldung mit der tatsächlichen zahl der Einträge ohne Duplikate angezeigt werden. (z.B "Sie haben 12 Länder zur Auswahl").
Hier der Code
Private Sub UserForm_Initialize()
Dim Laender() As String,
Dim znr As Integer, zaehler As Integer, i As Integer
sn = Columns(9).SpecialCells(2)
znr = 2
zaehler = 1
Do While Cells(znr, 9) ""
ReDim Preserve Laender(i)
Laender(i) = Cells(znr, 9)
znr = znr + 1
i = i + 1
zaehler = zaehler + 1
Loop
With CreateObject("scripting.dictionary")
For j = 2 To UBound(sn)
x0 = .Item(sn(j, 1))
Next
cmb_Laender.List = .keys
End With
Me.cmb_Laender.ListIndex = 0
End Sub
Stehe etwas auf dem Schlauch.
viele grüße Stefan