Dim globalBoolCheckBoxAusgewählt(200) As Boolean
Private Sub CheckBox1_Click()
Verarbeite CheckBox1
End Sub
Private Sub CheckBox2_Click()
Verarbeite CheckBox2
End Sub
Sub Verarbeite(oCheckbox As Object)
Dim i As Integer
i = Val(Replace(oCheckbox.Name, "CheckBox", ""))
If oCheckbox.Caption = Chr$(163) Then
oCheckbox.Caption = "R"
globalBoolCheckBoxAusgewählt(i) = True
Range("B2") = "Haken gesetzt"
Else
oCheckbox.Caption = Chr$(163)
globalBoolCheckBoxAusgewählt(i) = False
Range("B2") = "Haken nicht gesetzt"
End If
Select Case i
Case 1:
End Select
End Sub