Hallo Zusammen
Ich hab in meiner Tabelle auf dem Blatt "Eingabe" eine Combobox. Ich möchte die befüllen mit zellen inhalten die im Blatt "Daten Folienset" sind. Die Daten stehen ab der Zelle L11 abwärts. Ich möchte befüllen bis eine Leer zelle kommt.
Mein Code bis jetzt....was mach ich falsch?
Private Sub ComboBox1_DropButtonClick()
With Worksheets("Daten Folienset")
ComboBox1.List = .Range(.Cells(11, 12), .Cells(.UsedRange.Rows.Count, 12).End(xlUp)).Value
End With
End Sub
Gruss Marc
|