combobox dynamisch vullen

[VenA]

Misschien is het geavanceerde filter nog sneller.

 

[HSV]

Die kan niet op tegen.....

Private Sub UserForm_Initialize()
Dim sv, i As Long
sv = Range("C3", Cells(Rows.Count, 3).End(xlUp))
With CreateObject("scripting.dictionary")
    For i = 1 To UBound(sv)
      .Item(sv(i, 1)) = ""
    Next i
 ComboBox1.List = .keys
End With
End Sub

 

[luus1901]

HSV en VenA super dank voor jullie hulp!:thumb: