[excvel VBA] eigenschappen ComboBox aanpassen

[chicky]

Hoi,

Ik heb een Excel sheet met circa 200 comboboxen er in. In een specifiek aantal comboboxen, wil ik een aantal eigenschappen aanpassen.

Een zeer rudimenter voorbeeld om dit te doen is:

code:

Sub ComboAanpaasen()

Dim intTeller As Integer                       'definieer variabele
Dim strNaamComboBox As String
    
intTeller = 14                                      'ken waarde toe aan variabele
strNaamComboBox = "ComboBox1"    'ken waarde toe aan variabele

Do Until teller = 63                              'open loop en bepaal argument
        With Application.ActiveSheet.ComboBox1       'selecteer de combobox
            .LinkedCell = "D" & teller          'pas de eigenschap linked cel aan
            .ListFillRange = "Profiel"           'pas de eigenschap listfillrange aan
            .ListRows = 12                        'pas de eigenschap listrow aan
        End With
    teller = teller + 1                               'verhoog de varialbe met 1
Loop                                                    'einde loop

End Sub

Echter wordt nu ALLEEN de Combobox met de naam "ComboBox1" geselecteerd (begrijpelijk).
Als ik de naam "ComboBox1", verander in de stringvariabele strNaamComboBox krijg ik foutmelding 438; "Deze eigenschap of methode wordt niet ondersteund door dit object"

De bedoeling van het gebruik van de variabele in plaats van de naam is natuurlijk dat ik met één loop alle comboboxen kan aanpakken, welke ik wil.

Wie kan mij vertellen hoe ik dit oplos?
thx

[Witte]

kijk hier eens!