Private Sub CheckBox1_Change()
Schalten 1
End Sub
Private Sub CheckBox2_Click()
Schalten 2
End Sub
Private Sub CheckBox3_Click()
Schalten 3
End Sub
Private Sub CheckBox4_Click()
Schalten 4
End Sub
Sub Schalten(Nr As Byte)
Dim blnAktiv As Boolean
blnAktiv = CheckBox1.Value
Select Case (Nr)
Case 1: CheckBox2.Visible = blnAktiv: CheckBox3.Visible = blnAktiv: CheckBox4.Visible = blnAktiv:
Case 2: CheckBox3.Visible = False: CheckBox4.Visible = False
Case 3: CheckBox2.Visible = False: CheckBox4.Visible = False
Case 4: CheckBox3.Visible = False: CheckBox2.Visible = False
End Select
End Sub