ich habe mir den Code von Bernd wie folgt geändert:
Set dic = CreateObject("Scripting.Dictionary")
ar = Sheets("Produkt").Range("J9").CurrentRegion.Resize(, 10)
For lngZeile = 9 To UBound(ar)
dic(ar(lngZeile, 10)) = 1
Next
Me.ComboBox1.List = dic.Keys
Funktioniert einwandfrei, bis auf die Tatsache, dass auch die Zellen ohne Inhalt mit reinkommen, so dass meine ListBox den ersten Eintrag leer hat.Kann der Code abgeändert werden, dass die leere Zelle unberücksichtigt bleibt?
Gruß Rainer