In dem beiliegenden Tabellen-Beispiel möchte ich Euch 3 verschiedene Anwendungen der Checkbox aufzeigen. Ihr findet in dem VBA Code, hinter der Userform, ein Beispiel zu Checkbox_Click, eines zu Checkbox_Change und eines zu Checkbox_BeforeUpdate. Bei 2 Checkboxen ist die Einfach-Auswahl möglich und bei einer eine Mehrfach-Auswahl. Um in den VBA Editor zu gelangen müßt Ihr ALT + F11 drücken.

Den Code alleine darzustellen ist hier eigentlich nicht so angebracht. Der Grund: Man sollte sich anhand eines Beispiels anschauen was bei welchem Code wirklich passiert. Hier erst einmal ein Bild - dann der Code - zum Schluß kommt dann das Beispiel zum Download.

Option Explicit

Private Sub UserForm_Activate()
'zum Aktivieren werden alle Checkboxen,
'welche nicht gesehen werden sollen
'nicht sichtbar gemacht
    CheckBox3.Visible = False
    CheckBox4.Visible = False
    CheckBox5.Visible = False
    CheckBox6.Visible = False
    CheckBox7.Visible = False
    Label2.Visible = False
    Label3.Visible = False
End Sub

Private Sub CheckBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
'Dieser Code ist für das Beispiel 1
    CheckBox1 = True
    CheckBox2 = False
    CheckBox6 = False
    CheckBox7 = False
    CheckBox3.Visible = True
    CheckBox4.Visible = True
    CheckBox5.Visible = True
    CheckBox6.Visible = False
    CheckBox7.Visible = False
    Label2.Visible = True
    Label3.Visible = False
End Sub

Private Sub CheckBox2_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
'Dieser Code ist für das Beispiel 1
    CheckBox1 = False
    CheckBox3 = False
    CheckBox4 = False
    CheckBox5 = False
    CheckBox2 = True
    CheckBox3.Visible = False
    CheckBox4.Visible = False
    CheckBox5.Visible = False
    CheckBox6.Visible = True
    CheckBox7.Visible = True
    Label2.Visible = False
    Label3.Visible = True
End Sub

Private Sub CheckBox3_Click()
'Dieser Code ist für das Beispiel 2
    CheckBox4 = False
    CheckBox5 = False
End Sub

Private Sub CheckBox4_Click()
'Dieser Code ist für das Beispiel 2
    CheckBox3 = False
    CheckBox5 = False
End Sub

Private Sub CheckBox5_Click()
'Dieser Code ist für das Beispiel 2
    CheckBox3 = False
    CheckBox4 = False
End Sub

Private Sub CheckBox6_Change()
'Dieser Code ist für das Beispiel 3
    If CheckBox6 = True Then
        MsgBox ("Checkbox 6 wurde aktiviert!")
    Else
        MsgBox ("Checkbox 6 wurde deaktiviert!")
    End If
End Sub

Private Sub CheckBox7_Change()
'Dieser Code ist für das Beispiel 3
    If CheckBox7 = True Then
        MsgBox ("Checkbox 7 wurde aktiviert!")
    Else
        MsgBox ("Checkbox 7 wurde deaktiviert!")
    End If
End Sub

Private Sub CommandButton1_Click()
        Unload Me
End Sub

Das Beispiel habe ich euch aber auch zum Dowload bereit gestellt: klick