ComboBox füllen
12.10.2017 15:54:09
Frank
Auf meinem Tabellenblatt "Grundsatzdokumente" befinden sich zwei ComboBoxen. Mit der Auswahl von ComboBox1 soll ComboBox2 variabel gefüllt werden.
Ich habe es so versucht:
Dim lng As Long
Dim y, c As Byte
y = 80
c = y + ComboBox1.ListIndex
For lng = 7 To 40
ComboBox2.List = Sheets("Grundsatzdokumente").Cells(lng, c)
Next lng
Der Bereich lng ist auch nicht immer komplett gefüllt, es können Werte von Zeile 7 - 13, oder 7 bis 25 vorhanden sein. Meine betreffenden Spalten sind von 80 bis 84.
Die fett geschriebene Zeile wird im Debugger markiert.
Wie kann ich meine ComboBox variabel befüllen? Danke für eure Hilfe!
Gruß Frank H.
Anzeige