dubbele waarde weglaten

[gast0219]

Goedenavond allemaal,

Ik heb een vraag over het vullen van me combobox voor me filter. Normaal gesproken zou ik dit zo doen.

Private Sub UserForm_Initialize()
Dim Aloc As Range
Dim ws As Worksheet
Set ws = Worksheets("Totale overzicht")

For Each Iloc In ws3.Range("VRZDdatumfilter")
With Me.cboDatumfltr
.AddItem Iloc.Value
End With
Next Iloc

Me.cboDatumfltr.Value = ""

End Sub

Nu zitten in deze range ("VRZDdatumfilter") dubbele waardes.... er komt b.v wel 10 x dezelfde datum in voor. Deze zou ik graag voorkomen willen hebben zodat een enkele keer dezelfde datum maar voorkomt in me dropdown van me combobox (cboDatumfltr) voor me filter.

Alvast hartelijk bedankt voor de reacties....

 

[HSV]

bv.

with createobject("scripting.dictionary")
for each cl in range(...)
  .item(cl.value) = cl.value
next cl
combobox1.list = .keys
end with

 

[gast0219]

Dit werkt perfect!! Hartelijk dank voor snelle reactie Harry!!:thumb::thumb: