UserForm ComboBox Range Angabe
15.03.2018 21:41:35
Sebastian
ich hab ein kleines Problem. Bin leider VBA-Amateur und bastle mir meine Sachen meist erst mal nur so zusammen.
Deswegen scheitere ich auch grad an dem Problem:
Private Sub UserForm_Activate()
ComboBox_Kd.SetFocus
Dim MyRange As String
ComboBox_Artikel.ColumnCount = 2
MyRange = "Einstellungen!D2:E" & Sheets("Einstellungen").UsedRange. _
SpecialCells(xlLastCell).Row
ComboBox_Artikel.RowSource = MyRange
Dim MyRange2 As String
ComboBox_Kd.ColumnCount = 2
MyRange2 = "Kd+Int!A2:B" & Sheets("Kd+Int").UsedRange. _
SpecialCells(xlLastCell).Row
ComboBox_Kd.RowSource = MyRange2
End Sub
ComboBox_Kd.RowSource = MyRange2
löst den Debugger aus. Ist MyRange ein feststehender Begriff?
Wie löse ich das, wenn ich zwei Dropdown Felder haben möchte, die beide auf einen dynamischen Bereich verweisen sollen?
Besten Dank schon mal und viele Grüße
Sebastian
Anzeige