Combobox mit 2 Spalten und 2 Zeilenbereichen
24.09.2014 18:24:49
Andreas
Ich hab mal wieder ein Problem bei dem ich trotz langer recherche keine Lösung finde.
Ich habe eine Combobox auf einem UserForm mit 2 Spalten (ColumnCount = 2). In dieser Combobox möchte ich folgendes angezeigt bekommen:
- 1. Spalte der Combobox = Spalte D der Zeilen 4 bis 19 und 24 bis 43
- 2. Spalte der Combobox = Spalte F der Zeilen 4 bis 19 und 24 bis 43
Den oberen Zeilenbereich habe ich schon hinbekommen. Wie bekomme ich den 2. Zeilenbereich (Zeilen 24 bis 43) in den Code?
Private Sub UserForm_Initialize()
With ComboBox2
For a = 4 To 19
.AddItem ActiveSheet.Cells(a, 4) & " " & ActiveSheet.Cells(a, 6).Value
Next a
End With
End Sub
mfg, Andreas
Anzeige