Frage zu ComboBox

Bild

Betrifft: Frage zu ComboBox
von: Frank H.
Geschrieben am: 21.10.2015 17:46:12

Hallo Zusammen!
Allen wünsche ich einen schönen Feierabend!
Mit folgendem Code befülle ich zwei ComboBoxen!
With Sheets("Daten")
Y = 126
c = ComboBox1.ListIndex + Y
For i = 2 To 3
Me("ComboBox" & i).List = .Range(.Cells(3, c), .Cells(34, c)).Value
Next
End With
Nun möchte ich aber auch noch die Zeile variabel gestalten. Denn es sind nicht immer Werte bis Zeile 34 vorhanden. Wie muss ich meinen Code abändern? Danke vorab.
Gruß Frank H.

Bild

Betrifft: AW: Frage zu ComboBox
von: Daniel
Geschrieben am: 21.10.2015 18:06:20
Hi
du kannst die letzte befüllte Zelle in der Spalte so ermitteln und berücksichtigen:

For i = 2 To 3
    r = .Cells(.Rows.Count, c).end(xlup).row
    Me("ComboBox" & i).List = .Range(.Cells(3, c), .Cells(r, c)).Value
Next
Gruß Daniel

Bild

Betrifft: AW: Frage zu ComboBox
von: Frank H.
Geschrieben am: 21.10.2015 18:16:13
Hallo Danie!
Super, funzt wie gewünscht. Dir noch einen schönen Abend!
Gruß Frank H.

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Frage zu ComboBox"