Loop in een If functie

[DominiqueAegten]

Wanneer een combobox een bepaalde waarde heeft moeten er optionbuttons zichtbaar worden.
Dat doe ik met volgende code:

If ComboBoxCel1.Value = ("MS+0 DER Aankomstveld") Then
OptionButton1Cel1.Visible = True
OptionButton2Cel1.Visible = True
Else: OptionButton1Cel1.Visible = False
OptionButton2Cel1.Visible = False
End If

Dit werkt perfect

Maar dit moet ik voor 30 comboboxen doen, dus wilde ik een loop maken zo iets gelijk dit:

for i 1 to 30

If ("ComboBoxCel" & i).Value = ("MS+0 DER Aankomstveld") Then
("OptionButton1Cel" & i).Visible = True
("OptionButton2Cel" & i .Visible = True
Else: ("OptionButton1Cel" & i).Visible = False
("OptionButton2Cel" & i).Visible = False
End If
Next i


Wat doe ik verkeerd?

 

[edmoor]

Nogal wat. Doe het eens zo (Userform):

    Dim Waarde As Boolean
    For i = 1 To 30
        If Controls("ComboBoxCel" & i).Value = ("MS+0 DER Aankomstveld") Then Waarde = True
        Controls("OptionButton1Cel" & i).Visible = Waarde
        Controls("OptionButton2Cel" & i).Visible = Waarde
    Next i

 

[DominiqueAegten]

Dank voor snelle reactie Edmoor.
Ik krijg geen foutmelding maar toch werkt het niet. Om te beginnen worden de optionbuttons niet zichtbaar:-(

 

[edmoor]

Dan kan je beter even je document plaatsen.

 

[DominiqueAegten]

Bedoel je mijn personal.xlsb?

 

[DominiqueAegten]

Hoop dat het zo lukt, zie bijlage...

 

[OctaFish]

Staat je formulier in dat bestand? En zit daar een wachtwoord op? Daar vraagt-ie namelijk om. Wat we eigenlijk willen zien is het bestand waar je formulier met je controls op staat.

 

[DominiqueAegten]

het wacht woord is spitfire