|
Hallo zusammen.
Ich möchte, gerne eine Combobox füllen ohne Doppelte werte dabei zu haben.
Trotz folgendem Quellcode der eigentlich die doppelten werte rausnehmen sollte habe ich trotzdem 2 doppelte Werte.
Die Liste mit den werten ist 200 Zeilen Lang und besteht aus 20 verschiedenen Werten.
Die Liste fängt in Zeile 6 Spalte 4 an.
Kann mir einer sagen warum ich trotzdem 2mal doppelte drin habe?
Dim objDic1 As Object
Dim lngZ1 As Long
Set objDic1 = CreateObject("Scripting.Dictionary")
For lngZ1 = 6 To Cells(Rows.Count, 1).End(xlUp).Row
objDic1(Cells(lngZ1, 4).Value) = 0
Next
Me.ComboBox1.List = objDic1.Keys
Mit freundlichen Grüßen
Christian |