combobox
12.09.2016 10:31:32
Thomas
Möchte mehrer ComboBoxen befüllen. Textkommt aus der 2. Tabelle (A1 bis Ende).
Funktioniert aber nicht!
Private Sub Auto_open()
L = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To 10
Worksheets(1).("ComboBox" & i).List = Worksheets(2).Range("A1:A" & L).Value
Next i
End Sub
Anzeige