wie kann ich mir die Combobox füllen lassen ohne leerzeichen?
wie kann ich mir die CBX ohne doppler anzeigen lassen? es kommt vor das der Name mehrmals erscheint aber er soll nur einmal den namen anzeigen
Danke
Private Sub UserForm_Initialize()
Dim oListe As Object, r As Range
Set oListe = CreateObject("scripting.dictionary")
For Each r In Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp))
If r "" Then
oListe(r.Value) = 0
End If
Next r
ComboBox1.List = oListe.keys
End Sub
Die Quellliste ist in A