ich habe gerade in den alten Forenbeiträgen,
folgenden Code gefunden um Werte aus einer Spalte auszulesen, die dann in der ComboBox als DropDown ausgewählt werden können:
Private Sub UserForm_Initialize()
ComboBox1.RowSource = "DeineTabelle!A1:A" & Worksheets("Deine Tabelle").Cells(Rows.Count, 1).
End(xlUp).Row
End Sub
Diesen Code habe ich jetzt so verändert, dass ich meinen Tabellenname eingefügt habe, nämlich
Tabellenblatt2 = "Couponbelegung 2009". Die Werte beginnen erst bei Zelle A8 und enden bei bei A51.
Daher lautet mein Code:
Private Sub UserForm_Initialize()
ComboBox1.RowSource = "Couponbelegung 2009!A8:A" & Worksheets("Couponbelegung 2009").Cells(Rows.Count, 1).End(xlUp).Row
End Sub
Das Problem, ist nur, dass ich folgende Fehlermeldung erhalte und ich nicht weiß wieso:
Runtime error 380
Could not see the row Source property. Invalid property value
Wenn Jemand einen Tipp hat, wäre ich sehr dankbar. Vielleicht kann man das auch anders umsetzten.
Es müsste natürlich auch mit additem gehen, dann müsste ich aber alle 43 Werte eingeben und idealerweise sollte die ComboBox neu hinzugefügte Werte gleich mit aufnehmen..
Vielen Dank für eure Hilfe,
Viele Grüße aus München,
Jeron