Clever-Excel-Forum

Normale Version: VBA Combobox mit schleife füllen
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
Guten Abend Liebe Clever Excel Profis,

ich habe mehrere von einander abhängige Comboboxen.
Code:
Private Sub CB_Kat1_Click()
With CB_Kat1
If .Text = "" Then Exit Sub
CB_S1.RowSource = Range((.Text)).Name
End With
End Sub
Und über diesen code fülle ich aus Combobox1 ( CB_Kat1 ) die zweite Combobox (CB_S1) dieses brauche ich jetzt bis zu 60 CB_Kat1 bis 60 und CB_S2 bis 60
Gibt eine Möglichkeit diese alle per schleife zu füllen ?
Verzichte auf rowsource und additem zum Befüllen einer Combobox.
Und was wäre da die Klügste lösung ?