Hi Leute!
Ich habe ein Problem und hoffe ihr könnt mir helfen.
Ich möchte in einer Combobox in einer Userform, welches sich auf dem Tabellenblatt ("Diagramm") befindet, Daten aus einem anderen Tabellenblatt ("Daten") anzeigen lassen. Doppelte Daten sollen sich dabei nicht wiederholen.
Folgenden Code habe ich dafür geschrieben. Leider fehlt mir da etwas.<pre>Sub UserForm_Initialize()
Private Sub UserForm_Initialize()
Dim objDic As Object
Dim lngZ As Long
Set objDic = CreateObject("Scripting.Dictionary")
For lngZ = Worksheets("Daten").Range("B12") To Sheets("Daten").Cells(Rows.Count, 2).End(xlUp).Row
objDic(Cells(lngZ, 2).Value) = 0
Next
Me.ComboBox2.List = objDic.keys
End Sub
Ich hoffe ihr könnt mir weiterhelfen. Vielen Dank im Voraus!!!!
|