Hallo hajo,
danke für die schnelle Antwort.
Bei deinem Vorschlag wird mir ein Fehler angezeigt,
die Ursache liegt bestimmt bei meinem Verständnis für die Anwendung. Ich füge mal den ganzen Cote ein, vielleicht könntest du mal den "varBereich" anpassen.
Gruß
fedjo
Dim objDictionary As Object
Dim varBereich As Variant
Dim arrDaten As Variant
Dim loZaehler As Long
Set objDictionary = CreateObject("Scripting.Dictionary")
varBereich = Range(Cells(4, 6), Cells(IIf(IsEmpty(Cells(Rows.Count, 6)), Cells(Rows.Count, 6).End(xlUp).Row, Rows.Count), 6))
For loZaehler = LBound(varBereich) To UBound(varBereich)
objDictionary(varBereich(loZaehler, 1)) = 0
Next loZaehler
arrDaten = objDictionary.keys
QuickSort arrDaten
UserForm1.ComboBox2.List = arrDaten
Set objDictionary = Nothing