Dynamischer RowSource mit Range
30.07.2020 12:35:14
Fabiolas
Ich habe mir eine kleine Userform gebastelt, die sich öffnet, sobald ich in einen bestimmten Zellbereich klicke.
In der Userform sind zwei Comboboxen, die ich gerne mit Inhalt füllen würde.
Der Inhalt steht immer eine Spalte weiter links zur angewählten Zelle und von dort an 12 Zeilen (12 Stunden) abwärts.
Mein Vorschlag war dieser hier:
Private Sub UserForm_Initialize()
Me.CmBoxVon.RowSource = "Selection.Offset(0, -1): Selection.Offset(12, -1)"
Me.CmBoxBis.RowSource = "Selection.Offset(0, -1): Selection.Offset(12, -1)"
End Sub
Ich habe auch mal das hier probiert: Private Sub UserForm_Initialize()
Me.CmBoxVon.RowSource = "ActiveCell.Offset(0, -1): ActiveCell.Offset(12, -1)"
Me.CmBoxBis.RowSource = "ActiveCell.Offset(0, -1): ActiveCell.Offset(12, -1)"
End Sub
Beides klappt leider nicht. Ich kriege immer wieder den Laufzeitfehler 380 mit ungültigem Eigenschaftswert.
Kann mir hierbei vielleicht jemand helfen?
Meine VBA-Kenntnisse sind noch nicht so wirklich fortgeschritten und ich denke, dass ich einen einfach Syntax-Fehler mache.
Das ist das erste mal, dass ich mit der ActiveCell und der Offset-Funktion jongliere.
Danke im Voraus!
Beste Grüße,
Fabiolas