mehrere Comboboxen+Spalten nur einmal einlesen
20.07.2018 11:32:19
Tim
ich habe mehrere Comboboxen (PLZ, Straße, Hausnummer, usw.) deren Werte ich aus einer Datenbank einlese. Die Werte in der jeweiligen Spalte können doppelt sein, sollen aber in der jeweiligen Combobox nur einmal auftauchen.
Ich habe bisher einen Code der das für eine Spalte so macht, jedoch müsste der das für alle Comboboxen mit den entsprechenden Spalten machen, wer kann mir dabei helfen!?
Dim hsh As Object, i As Long
Const iCOL As Integer = 8 '8 = Spalte H = liest alle Daten nur einmal ein
Set hsh = CreateObject("Scripting.Dictionary")
With Sheets("Kundendaten")
For i = 2 To .Cells(.Rows.Count, iCOL).End(xlUp).Row
hsh(.Cells(i, iCOL).Text) = 0
Next
End With
Me.PLZ.List = Application.Transpose(hsh.Keys)