[VBA] Vullen van dropdown list met unique values

[Verwijderd]

hoe vul ik een dropdown list met unieke waarden??
Momenteel heb ik volgende code:

step1 =1
for step1 = 1 to 65000
if range("a" & step1).value <> "" then
combo.additem = range("a" &step1.value)
else
step1 = 65000
end if
next step1

probleem hiermee is dat row 3 en row 5 en row 7 dezelfde waarde hebben dus deze 3x voorkomt.

Hoe voorkom ik dit....

Tnx...

[Daos]

Je moet gewoon even in de combobox kijken of het element er al staat.

Zoiets dus:

Visual Basic:

Sub fillComboBox()
    combo.Clear
    
    r = 1
    v = CStr(Range("a" & r))
    While v <> ""
        
        found = False
        For i = 1 To combo.ListCount
            If v = combo.List(i - 1) Then found = True
        Next
        
        If Not found Then combo.AddItem v
        
        r = r + 1
        v = CStr(Range("a" & r))
Wend
End Sub