mich plagt folgendes Problem:
In einer Exceltabelle habe ich 8 Comboboxen die auf den Namen Vgl_1, Vgl_2, usw hören.
Nun möchte ich für alle 8 den gleichen Listfillrange eintragen.
Mein Code dazu:
Private Sub Worksheet_Activate()
Dim box As msforms.ComboBox
Dim letzte_zelle_Wahl_marke As Long
With Sheets("Master_Variablen")
letzte_zelle_marke = .Range("H65536").End(xlUp).Row
End With
For i = 1 To 8
?box = "Var_" & i?
ActiveSheet.Controls("Var_" & i).ListFillRange = "Master_Variablen!H8:H" & letzte_zelle_marke
Next i
Meine Frage ist nun: Wie bekomme ich es hin das die For-Next-Schleife durch den variablen Namen alle 8 Boxen abklappert.
Danke für eure Hilfe.
Gruß Ron