Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
CheckBox1.Font.ColorIndex = 10 'grüne Schriftfarbe
Range("Y10").Value = "Auswertung Gesamt"
Range("BA9").Value = 1
Else
CheckBox1.Font.ColorIndex = 1 'schwarze Schriftfarbe
Range("BA9").Value = 0
Range("Y10").Value = "Auswertung"
End If
End Sub