ComboBox ohne leere Zelle
17.12.2016 14:13:05
Rainer
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
Kann der Code abgeändert werden, dass die leere Zelle unberücksichtigt bleibt?
Gruß Rainer
Anzeige