Meerdere checkboxen op userform resetten

[Sophie90]

Ik heb checkbox1 tm checkbox6 op een userform zitten. Is er een kortere code dan

CheckBox1.Value = False
CheckBox2.Value = False
CheckBox3.Value = False
CheckBox4.Value = False
CheckBox5.Value = False
CheckBox6.Value = False

Ik zat te denken aan een for to-lus, maar ik weet niet hoe ik de checkboxnummers moet opgeven...
Dit is mijn poging:

For n = 1 To 6
chk = CheckBox & "n"
    chk.Value = False
    n = n + 1
Next n

Overbodig te zeggen dat dit niet werkt.....

 

[edmoor]

Veel korter is het niet maar misschien wel mooier:

Private Sub CommandButton1_Click()
Dim cCont As Control
    For Each cCont In UserForm1.Controls
        If TypeName(cCont) = "CheckBox" Then
            cCont.Value = False
        End If
    Next cCont
End Sub

 

[Sophie90]

Dank je, ik geloof dat hij doet wat hij moet doen. Ik heb hem iets uitgebreid:

Dim cCont As Control
    For Each cCont In UserForm3.Controls
        If TypeName(cCont) = "CheckBox" Then
            cCont.Value = False
        ElseIf TypeName(cCont) = "TextBox" Then
            cCont.Value = ""
        End If
    Next cCont

Nogmaals, bedankt!

 

[edmoor]

Well done :thumb:

 

[edmoor]

Dat gezegd hebbende zou ik het toch nog net iets anders doen:

    For Each cCont In UserForm3.Controls
	Select Case TypeName(cCont)
            Case "CheckBox"
                cCont.Value = False
            Case "TextBox"
                cCont.Value = ""
	End Select
    Next cCont

 

[Sophie90]

Da's ook mooi!