Dim globalBoolCheckBoxAusgewählt(200) As Boolean
Private Sub CheckBox11_Click()
If GetCheckBox(CheckBox1) Then Rows("92").Hidden = True
End Sub
Private Sub CheckBox2_Click()
If GetCheckBox(CheckBox2) Then Rows("18:19").Hidden = True
End Sub
Private Sub CheckBox3_Click()
If GetCheckBox(CheckBox3) Then Rows("20").Hidden = True
End Sub
Private Sub CheckBox4_Click()
If GetCheckBox(CheckBox3) Then Rows("20").Hidden = True
End Sub
Private Sub CheckBox5_Click()
GetCheckBox CheckBox5
End Sub
Private Sub CheckBox6_Click()
GetCheckBox CheckBox6
End Sub
Function GetCheckBox(oCheckbox As Object) As Boolean
With oCheckbox
If .Caption = Chr$(163) Then
.Caption = "R"
GetCheckBox = True
Range("B2") = "Haken gesetzt"
Else
.Caption = Chr$(163)
GetCheckBox = False
Range("B2") = "Haken nicht gesetzt"
End If
globalBoolCheckBoxAusgewählt(Val(Replace(.Name, "CheckBox", ""))) = GetCheckBox
End With
End Function