Hallo nochmal,

brauche da mal euer Schwarmiwissen bzgl. VBA-Code optimierung. Ich bin dabei ein Excel-Sheet zur erstellen welches derzeit ungefähr zu 40-50% fertig ist. Es braucht jetzt schon ewig zum laden. Vielleicht kann mit einer sagen (am besten mit einem Beispiel) wie ich meinen VBA-Code optimieren kann. Ich habe mir das wissen in den letzten 2-3 Monaten zusammengegoogelt. 

Private Sub CheckBox1_Click()
If CheckBox1.Caption = Chr$(163) Then
    CheckBox1.Caption = "R"
    globalBoolCheckBox1Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1.Caption = Chr$(163)
    globalBoolCheckBox1Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
End If
    Rows("92").Hidden = CheckBox2 = True      'Zeile anpassen
    CheckBox2.Visible = Rows("92").Hidden = False
End Sub

 
Private Sub CheckBox2_Click()
If CheckBox2.Caption = Chr$(163) Then
    CheckBox2.Caption = "R"
    globalBoolCheckBox2Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox2.Caption = Chr$(163)
    globalBoolCheckBox2Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
End If
  Rows("18:19").Hidden = CheckBox2 = True      'Zeile anpassen
  CheckBox2.Visible = Rows("18:19").Hidden = False
End Sub

 
Private Sub CheckBox3_Click()
If CheckBox3.Caption = Chr$(163) Then
    CheckBox3.Caption = "R"
    globalBoolCheckBox3Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox3.Caption = Chr$(163)
    globalBoolCheckBox3Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
End If
  Rows(20).Hidden = CheckBox3 = True      'Zeile anpassen
  CheckBox3.Visible = Rows(20).Hidden = False
End Sub

 
Private Sub CheckBox4_Click()
If CheckBox4.Caption = Chr$(163) Then
    CheckBox4.Caption = "R"
    globalBoolCheckBox4Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox4.Caption = Chr$(163)
    globalBoolCheckBox4Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
End If
    Rows(21).Hidden = CheckBox3 = True      'Zeile anpassen
  CheckBox3.Visible = Rows(21).Hidden = False

End Sub

 
Private Sub CheckBox5_Click()
If CheckBox5.Caption = Chr$(163) Then
    CheckBox5.Caption = "R"
    globalBoolCheckBox5Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox5.Caption = Chr$(163)
    globalBoolCheckBox5Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox6_Click()
If CheckBox6.Caption = Chr$(163) Then
    CheckBox6.Caption = "R"
    globalBoolCheckBox6Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox6.Caption = Chr$(163)
    globalBoolCheckBox6Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox7_Click()
If CheckBox7.Caption = Chr$(163) Then
    CheckBox7.Caption = "R"
    globalBoolCheckBox7Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox7.Caption = Chr$(163)
    globalBoolCheckBox7Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox8_Click()
If CheckBox8.Caption = Chr$(163) Then
    CheckBox8.Caption = "R"
    globalBoolCheckBox8Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox8.Caption = Chr$(163)
    globalBoolCheckBox8Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox9_Click()
If CheckBox9.Caption = Chr$(163) Then
    CheckBox9.Caption = "R"
    globalBoolCheckBox9Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox9.Caption = Chr$(163)
    globalBoolCheckBox9Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox10_Click()
If CheckBox10.Caption = Chr$(163) Then
    CheckBox10.Caption = "R"
    globalBoolCheckBox10Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox10.Caption = Chr$(163)
    globalBoolCheckBox10Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox11_Click()
If CheckBox11.Caption = Chr$(163) Then
    CheckBox11.Caption = "R"
    globalBoolCheckBox11Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox11.Caption = Chr$(163)
    globalBoolCheckBox11Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox12_Click()
If CheckBox12.Caption = Chr$(163) Then
    CheckBox12.Caption = "R"
    globalBoolCheckBox12Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox12.Caption = Chr$(163)
    globalBoolCheckBox12Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox13_Click()
If CheckBox13.Caption = Chr$(163) Then
    CheckBox13.Caption = "R"
    globalBoolCheckBox13Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox13.Caption = Chr$(163)
    globalBoolCheckBox13Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox14_Click()
If CheckBox14.Caption = Chr$(163) Then
    CheckBox14.Caption = "R"
    globalBoolCheckBox14Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox14.Caption = Chr$(163)
    globalBoolCheckBox14Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox15_Click()
If CheckBox15.Caption = Chr$(163) Then
    CheckBox15.Caption = "R"
    globalBoolCheckBox15Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox15.Caption = Chr$(163)
    globalBoolCheckBox15Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox16_Click()
If CheckBox16.Caption = Chr$(163) Then
    CheckBox16.Caption = "R"
    globalBoolCheckBox16Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox16.Caption = Chr$(163)
    globalBoolCheckBox16Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox17_Click()
If CheckBox17.Caption = Chr$(163) Then
    CheckBox17.Caption = "R"
    globalBoolCheckBox17Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox17.Caption = Chr$(163)
    globalBoolCheckBox17Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
   End If
    Rows("27").Hidden = CheckBox2 = True      'Zeile anpassen
    CheckBox2.Visible = Rows("27").Hidden = False
End Sub

 
Private Sub CheckBox18_Click()
If CheckBox18.Caption = Chr$(163) Then
    CheckBox18.Caption = "R"
    globalBoolCheckBox18Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox18.Caption = Chr$(163)
    globalBoolCheckBox18Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
End If
    Rows("28").Hidden = CheckBox2 = True      'Zeile anpassen
    CheckBox2.Visible = Rows("28").Hidden = False
End Sub

 
Private Sub CheckBox19_Click()
If CheckBox19.Caption = Chr$(163) Then
    CheckBox19.Caption = "R"
    globalBoolCheckBox19Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox19.Caption = Chr$(163)
    globalBoolCheckBox19Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox20_Click()
If CheckBox20.Caption = Chr$(163) Then
    CheckBox20.Caption = "R"
    globalBoolCheckBox20Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox20.Caption = Chr$(163)
    globalBoolCheckBox20Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox21_Click()
If CheckBox21.Caption = Chr$(163) Then
    CheckBox21.Caption = "R"
    globalBoolCheckBox21Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox21.Caption = Chr$(163)
    globalBoolCheckBox21Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox22_Click()
If CheckBox22.Caption = Chr$(163) Then
    CheckBox22.Caption = "R"
    globalBoolCheckBox22Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox22.Caption = Chr$(163)
    globalBoolCheckBox22Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox23_Click()
If CheckBox23.Caption = Chr$(163) Then
    CheckBox23.Caption = "R"
    globalBoolCheckBox23Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox23.Caption = Chr$(163)
    globalBoolCheckBox23Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox24_Click()
If CheckBox24.Caption = Chr$(163) Then
    CheckBox24.Caption = "R"
    globalBoolCheckBox24Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox24.Caption = Chr$(163)
    globalBoolCheckBox24Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox25_Click()
If CheckBox25.Caption = Chr$(163) Then
    CheckBox25.Caption = "R"
    globalBoolCheckBox25Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox25.Caption = Chr$(163)
    globalBoolCheckBox25Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox26_Click()
If CheckBox26.Caption = Chr$(163) Then
    CheckBox26.Caption = "R"
    globalBoolCheckBox26Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox26.Caption = Chr$(163)
    globalBoolCheckBox26Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox27_Click()
If CheckBox27.Caption = Chr$(163) Then
    CheckBox27.Caption = "R"
    globalBoolCheckBox27Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox27.Caption = Chr$(163)
    globalBoolCheckBox27Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
End If
    Rows("29").Hidden = CheckBox2 = True      'Zeile anpassen
    CheckBox2.Visible = Rows("29").Hidden = False
End Sub

 
Private Sub CheckBox28_Click()
If CheckBox28.Caption = Chr$(163) Then
    CheckBox28.Caption = "R"
    globalBoolCheckBox28Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox28.Caption = Chr$(163)
    globalBoolCheckBox28Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
    Rows("30").Hidden = CheckBox2 = True      'Zeile anpassen
  CheckBox2.Visible = Rows("30").Hidden = False
End If
End Sub

 
Private Sub CheckBox29_Click()
If CheckBox29.Caption = Chr$(163) Then
    CheckBox29.Caption = "R"
    globalBoolCheckBox29Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox29.Caption = Chr$(163)
    globalBoolCheckBox29Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
End If
End Sub

 
Private Sub CheckBox30_Click()
If CheckBox30.Caption = Chr$(163) Then
    CheckBox30.Caption = "R"
    globalBoolCheckBox30Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox30.Caption = Chr$(163)
    globalBoolCheckBox30Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
End If
End Sub

 
Private Sub CheckBox31_Click()
If CheckBox31.Caption = Chr$(163) Then
    CheckBox31.Caption = "R"
    globalBoolCheckBox31Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox31.Caption = Chr$(163)
    globalBoolCheckBox31Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
End If
End Sub

 
Private Sub CheckBox32_Click()
If CheckBox32.Caption = Chr$(163) Then
    CheckBox32.Caption = "R"
    globalBoolCheckBox32Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox32.Caption = Chr$(163)
    globalBoolCheckBox32Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
End If
End Sub

 
Private Sub CheckBox33_Click()
If CheckBox33.Caption = Chr$(163) Then
    CheckBox33.Caption = "R"
    globalBoolCheckBox33Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox33.Caption = Chr$(163)
    globalBoolCheckBox33Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
End If
End Sub

 
Private Sub CheckBox34_Click()
If CheckBox34.Caption = Chr$(163) Then
    CheckBox34.Caption = "R"
    globalBoolCheckBox34Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox34.Caption = Chr$(163)
    globalBoolCheckBox34Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox35_Click()
If CheckBox35.Caption = Chr$(163) Then
    CheckBox35.Caption = "R"
    globalBoolCheckBox35Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox35.Caption = Chr$(163)
    globalBoolCheckBox35Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox36_Click()
If CheckBox36.Caption = Chr$(163) Then
    CheckBox36.Caption = "R"
    globalBoolCheckBox36Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox36.Caption = Chr$(163)
    globalBoolCheckBox36Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox37_Click()
If CheckBox37.Caption = Chr$(163) Then
    CheckBox37.Caption = "R"
    globalBoolCheckBox37Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox37.Caption = Chr$(163)
    globalBoolCheckBox37Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
    Rows("36").Hidden = CheckBox2 = True      'Zeile anpassen
  CheckBox2.Visible = Rows("36").Hidden = False
End Sub

 
Private Sub CheckBox38_Click()
If CheckBox38.Caption = Chr$(163) Then
    CheckBox38.Caption = "R"
    globalBoolCheckBox38Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox38.Caption = Chr$(163)
    globalBoolCheckBox38Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
End If
    Rows("37").Hidden = CheckBox2 = True      'Zeile anpassen
    CheckBox2.Visible = Rows("37").Hidden = False
End Sub

 
Private Sub CheckBox39_Click()
If CheckBox39.Caption = Chr$(163) Then
    CheckBox39.Caption = "R"
    globalBoolCheckBox39Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox39.Caption = Chr$(163)
    globalBoolCheckBox39Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox40_Click()
If CheckBox40.Caption = Chr$(163) Then
    CheckBox40.Caption = "R"
    globalBoolCheckBox40Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox40.Caption = Chr$(163)
    globalBoolCheckBox40Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox41_Click()
If CheckBox41.Caption = Chr$(163) Then
    CheckBox41.Caption = "R"
    globalBoolCheckBox41Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox41.Caption = Chr$(163)
    globalBoolCheckBox41Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox42_Click()
If CheckBox42.Caption = Chr$(163) Then
    CheckBox42.Caption = "R"
    globalBoolCheckBox42Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox42.Caption = Chr$(163)
    globalBoolCheckBox42Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox43_Click()
If CheckBox43.Caption = Chr$(163) Then
    CheckBox43.Caption = "R"
    globalBoolCheckBox43Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox43.Caption = Chr$(163)
    globalBoolCheckBox43Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox44_Click()
If CheckBox44.Caption = Chr$(163) Then
    CheckBox44.Caption = "R"
    globalBoolCheckBox44Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox44.Caption = Chr$(163)
    globalBoolCheckBox44Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox45_Click()
If CheckBox45.Caption = Chr$(163) Then
    CheckBox45.Caption = "R"
    globalBoolCheckBox45Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox45.Caption = Chr$(163)
    globalBoolCheckBox45Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox46_Click()
If CheckBox46.Caption = Chr$(163) Then
    CheckBox46.Caption = "R"
    globalBoolCheckBox46Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox46.Caption = Chr$(163)
    globalBoolCheckBox46Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox47_Click()
If CheckBox47.Caption = Chr$(163) Then
    CheckBox47.Caption = "R"
    globalBoolCheckBox47Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox47.Caption = Chr$(163)
    globalBoolCheckBox47Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
End If
    Rows("38").Hidden = CheckBox2 = True      'Zeile anpassen
    CheckBox2.Visible = Rows("38").Hidden = False
End Sub

 
Private Sub CheckBox48_Click()
If CheckBox48.Caption = Chr$(163) Then
    CheckBox48.Caption = "R"
    globalBoolCheckBox48Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox48.Caption = Chr$(163)
    globalBoolCheckBox48Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
End If
    Rows("39").Hidden = CheckBox2 = True      'Zeile anpassen
    CheckBox2.Visible = Rows("39").Hidden = False
End Sub

 
Private Sub CheckBox49_Click()
If CheckBox49.Caption = Chr$(163) Then
    CheckBox49.Caption = "R"
    globalBoolCheckBox49Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox49.Caption = Chr$(163)
    globalBoolCheckBox49Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox50_Click()
If CheckBox50.Caption = Chr$(163) Then
    CheckBox50.Caption = "R"
    globalBoolCheckBox50Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox50.Caption = Chr$(163)
    globalBoolCheckBox50Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox51_Click()
If CheckBox51.Caption = Chr$(163) Then
    CheckBox51.Caption = "R"
    globalBoolCheckBox51Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox51.Caption = Chr$(163)
    globalBoolCheckBox51Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox52_Click()
If CheckBox52.Caption = Chr$(163) Then
    CheckBox52.Caption = "R"
    globalBoolCheckBox52Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox52.Caption = Chr$(163)
    globalBoolCheckBox52Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox53_Click()
If CheckBox53.Caption = Chr$(163) Then
    CheckBox53.Caption = "R"
    globalBoolCheckBox53Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox53.Caption = Chr$(163)
    globalBoolCheckBox53Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox54_Click()
If CheckBox54.Caption = Chr$(163) Then
    CheckBox54.Caption = "R"
    globalBoolCheckBox54Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox54.Caption = Chr$(163)
    globalBoolCheckBox54Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox55_Click()
If CheckBox55.Caption = Chr$(163) Then
    CheckBox55.Caption = "R"
    globalBoolCheckBox55Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox55.Caption = Chr$(163)
    globalBoolCheckBox55Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox56_Click()
If CheckBox56.Caption = Chr$(163) Then
    CheckBox56.Caption = "R"
    globalBoolCheckBox56Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox56.Caption = Chr$(163)
    globalBoolCheckBox56Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox57_Click()
If CheckBox57.Caption = Chr$(163) Then
    CheckBox57.Caption = "R"
    globalBoolCheckBox57Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox57.Caption = Chr$(163)
    globalBoolCheckBox57Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
End If
    Rows("40").Hidden = CheckBox2 = True      'Zeile anpassen
  CheckBox2.Visible = Rows("40").Hidden = False
End Sub

 
Private Sub CheckBox58_Click()
If CheckBox58.Caption = Chr$(163) Then
    CheckBox58.Caption = "R"
    globalBoolCheckBox58Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox58.Caption = Chr$(163)
    globalBoolCheckBox58Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
End If
    Rows("41").Hidden = CheckBox2 = True      'Zeile anpassen
  CheckBox2.Visible = Rows("41").Hidden = False
End Sub

 
Private Sub CheckBox59_Click()
If CheckBox59.Caption = Chr$(163) Then
    CheckBox59.Caption = "R"
    globalBoolCheckBox59Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox59.Caption = Chr$(163)
    globalBoolCheckBox59Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox60_Click()
If CheckBox60.Caption = Chr$(163) Then
    CheckBox60.Caption = "R"
    globalBoolCheckBox60Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox60.Caption = Chr$(163)
    globalBoolCheckBox60Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox61_Click()
If CheckBox61.Caption = Chr$(163) Then
    CheckBox61.Caption = "R"
    globalBoolCheckBox61Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox61.Caption = Chr$(163)
    globalBoolCheckBox61Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox62_Click()
If CheckBox62.Caption = Chr$(163) Then
    CheckBox62.Caption = "R"
    globalBoolCheckBox62Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox62.Caption = Chr$(163)
    globalBoolCheckBox62Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox63_Click()
If CheckBox63.Caption = Chr$(163) Then
    CheckBox63.Caption = "R"
    globalBoolCheckBox63Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox63.Caption = Chr$(163)
    globalBoolCheckBox63Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox64_Click()
If CheckBox64.Caption = Chr$(163) Then
    CheckBox64.Caption = "R"
    globalBoolCheckBox64Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox64.Caption = Chr$(163)
    globalBoolCheckBox64Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox65_Click()
If CheckBox65.Caption = Chr$(163) Then
    CheckBox65.Caption = "R"
    globalBoolCheckBox65Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox65.Caption = Chr$(163)
    globalBoolCheckBox65Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox66_Click()
If CheckBox66.Caption = Chr$(163) Then
    CheckBox66.Caption = "R"
    globalBoolCheckBox66Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox66.Caption = Chr$(163)
    globalBoolCheckBox66Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox67_Click()
If CheckBox67.Caption = Chr$(163) Then
    CheckBox67.Caption = "R"
    globalBoolCheckBox67Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox67.Caption = Chr$(163)
    globalBoolCheckBox67Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
End If
    Rows("42").Hidden = CheckBox2 = True      'Zeile anpassen
    CheckBox2.Visible = Rows("42").Hidden = False
End Sub

 
Private Sub CheckBox68_Click()
If CheckBox68.Caption = Chr$(163) Then
    CheckBox68.Caption = "R"
    globalBoolCheckBox68Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox68.Caption = Chr$(163)
    globalBoolCheckBox68Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
End If
    Rows("43").Hidden = CheckBox2 = True      'Zeile anpassen
    CheckBox2.Visible = Rows("43").Hidden = False
End Sub

 
Private Sub CheckBox69_Click()
If CheckBox69.Caption = Chr$(163) Then
    CheckBox69.Caption = "R"
    globalBoolCheckBox69Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox69.Caption = Chr$(163)
    globalBoolCheckBox69Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox70_Click()
If CheckBox70.Caption = Chr$(163) Then
    CheckBox70.Caption = "R"
    globalBoolCheckBox70Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox70.Caption = Chr$(163)
    globalBoolCheckBox70Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox71_Click()
If CheckBox71.Caption = Chr$(163) Then
    CheckBox71.Caption = "R"
    globalBoolCheckBox71Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox71.Caption = Chr$(163)
    globalBoolCheckBox71Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox72_Click()
If CheckBox72.Caption = Chr$(163) Then
    CheckBox72.Caption = "R"
    globalBoolCheckBox72Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox72.Caption = Chr$(163)
    globalBoolCheckBox72Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox73_Click()
If CheckBox73.Caption = Chr$(163) Then
    CheckBox73.Caption = "R"
    globalBoolCheckBox73Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox73.Caption = Chr$(163)
    globalBoolCheckBox73Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox74_Click()
If CheckBox74.Caption = Chr$(163) Then
    CheckBox74.Caption = "R"
    globalBoolCheckBox74Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox74.Caption = Chr$(163)
    globalBoolCheckBox74Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox75_Click()
If CheckBox75.Caption = Chr$(163) Then
    CheckBox75.Caption = "R"
    globalBoolCheckBox75Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox75.Caption = Chr$(163)
    globalBoolCheckBox75Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox76_Click()
If CheckBox76.Caption = Chr$(163) Then
    CheckBox76.Caption = "R"
    globalBoolCheckBox76Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox76.Caption = Chr$(163)
    globalBoolCheckBox76Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox77_Click()
If CheckBox77.Caption = Chr$(163) Then
    CheckBox77.Caption = "R"
    globalBoolCheckBox77Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox77.Caption = Chr$(163)
    globalBoolCheckBox77Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
End If
    Rows("44").Hidden = CheckBox2 = True      'Zeile anpassen
    CheckBox2.Visible = Rows("44").Hidden = False
End Sub

 
Private Sub CheckBox78_Click()
If CheckBox78.Caption = Chr$(163) Then
    CheckBox78.Caption = "R"
    globalBoolCheckBox78Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox78.Caption = Chr$(163)
    globalBoolCheckBox78Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox79_Click()
If CheckBox79.Caption = Chr$(163) Then
    CheckBox79.Caption = "R"
    globalBoolCheckBox79Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox79.Caption = Chr$(163)
    globalBoolCheckBox79Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox80_Click()
If CheckBox80.Caption = Chr$(163) Then
    CheckBox80.Caption = "R"
    globalBoolCheckBox80Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox80.Caption = Chr$(163)
    globalBoolCheckBox80Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox81_Click()
If CheckBox81.Caption = Chr$(163) Then
    CheckBox81.Caption = "R"
    globalBoolCheckBox81Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox81.Caption = Chr$(163)
    globalBoolCheckBox81Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox82_Click()
If CheckBox82.Caption = Chr$(163) Then
    CheckBox82.Caption = "R"
    globalBoolCheckBox82Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox82.Caption = Chr$(163)
    globalBoolCheckBox82Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
End If
    Rows("45").Hidden = CheckBox2 = True      'Zeile anpassen
    CheckBox2.Visible = Rows("45").Hidden = False
End Sub

 
Private Sub CheckBox83_Click()
If CheckBox83.Caption = Chr$(163) Then
    CheckBox83.Caption = "R"
    globalBoolCheckBox83Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox83.Caption = Chr$(163)
    globalBoolCheckBox83Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
End If
    Rows("46").Hidden = CheckBox2 = True      'Zeile anpassen
    CheckBox2.Visible = Rows("46").Hidden = False
End Sub

 
Private Sub CheckBox84_Click()
If CheckBox84.Caption = Chr$(163) Then
    CheckBox84.Caption = "R"
    globalBoolCheckBox84Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox84.Caption = Chr$(163)
    globalBoolCheckBox84Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox85_Click()
If CheckBox85.Caption = Chr$(163) Then
    CheckBox85.Caption = "R"
    globalBoolCheckBox85Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox85.Caption = Chr$(163)
    globalBoolCheckBox85Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox86_Click()
If CheckBox86.Caption = Chr$(163) Then
    CheckBox86.Caption = "R"
    globalBoolCheckBox86Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox86.Caption = Chr$(163)
    globalBoolCheckBox86Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox87_Click()
If CheckBox87.Caption = Chr$(163) Then
    CheckBox87.Caption = "R"
    globalBoolCheckBox87Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox87.Caption = Chr$(163)
    globalBoolCheckBox87Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox88_Click()
If CheckBox88.Caption = Chr$(163) Then
    CheckBox88.Caption = "R"
    globalBoolCheckBox88Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox88.Caption = Chr$(163)
    globalBoolCheckBox88Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox89_Click()
If CheckBox89.Caption = Chr$(163) Then
    CheckBox89.Caption = "R"
    globalBoolCheckBox89Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox89.Caption = Chr$(163)
    globalBoolCheckBox89Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox90_Click()
If CheckBox90.Caption = Chr$(163) Then
    CheckBox90.Caption = "R"
    globalBoolCheckBox90Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox90.Caption = Chr$(163)
    globalBoolCheckBox90Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox91_Click()
If CheckBox91.Caption = Chr$(163) Then
    CheckBox91.Caption = "R"
    globalBoolCheckBox91Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox91.Caption = Chr$(163)
    globalBoolCheckBox91Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox92_Click()
If CheckBox92.Caption = Chr$(163) Then
    CheckBox92.Caption = "R"
    globalBoolCheckBox92Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox92.Caption = Chr$(163)
    globalBoolCheckBox92Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
End If
    Rows("52").Hidden = CheckBox2 = True      'Zeile anpassen
    CheckBox2.Visible = Rows("52").Hidden = False
End Sub

 
Private Sub CheckBox93_Click()
If CheckBox93.Caption = Chr$(163) Then
    CheckBox93.Caption = "R"
    globalBoolCheckBox93Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox93.Caption = Chr$(163)
    globalBoolCheckBox93Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox94_Click()
If CheckBox94.Caption = Chr$(163) Then
    CheckBox94.Caption = "R"
    globalBoolCheckBox94Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox94.Caption = Chr$(163)
    globalBoolCheckBox94Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox95_Click()
If CheckBox95.Caption = Chr$(163) Then
    CheckBox95.Caption = "R"
    globalBoolCheckBox95Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox95.Caption = Chr$(163)
    globalBoolCheckBox95Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox96_Click()
If CheckBox96.Caption = Chr$(163) Then
    CheckBox96.Caption = "R"
    globalBoolCheckBox96Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox96.Caption = Chr$(163)
    globalBoolCheckBox96Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox97_Click()
If CheckBox97.Caption = Chr$(163) Then
    CheckBox97.Caption = "R"
    globalBoolCheckBox97Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox97.Caption = Chr$(163)
    globalBoolCheckBox97Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
End If
    Rows("53").Hidden = CheckBox2 = True      'Zeile anpassen
    CheckBox2.Visible = Rows("53").Hidden = False
End Sub

 
Private Sub CheckBox98_Click()
If CheckBox98.Caption = Chr$(163) Then
    CheckBox98.Caption = "R"
    globalBoolCheckBox98Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox98.Caption = Chr$(163)
    globalBoolCheckBox98Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
End If
    Rows("54").Hidden = CheckBox2 = True      'Zeile anpassen
    CheckBox2.Visible = Rows("54").Hidden = False
End Sub

 
Private Sub CheckBox99_Click()
If CheckBox99.Caption = Chr$(163) Then
    CheckBox99.Caption = "R"
    globalBoolCheckBox99Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox99.Caption = Chr$(163)
    globalBoolCheckBox99Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox100_Click()
If CheckBox100.Caption = Chr$(163) Then
    CheckBox100.Caption = "R"
    globalBoolCheckBox100Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox100.Caption = Chr$(163)
    globalBoolCheckBox100Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox101_Click()
If CheckBox101.Caption = Chr$(163) Then
    CheckBox101.Caption = "R"
    globalBoolCheckBox101Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox101.Caption = Chr$(163)
    globalBoolCheckBox101Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox102_Click()
If CheckBox102.Caption = Chr$(163) Then
    CheckBox102.Caption = "R"
    globalBoolCheckBox102Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox102.Caption = Chr$(163)
    globalBoolCheckBox102Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox103_Click()
If CheckBox103.Caption = Chr$(163) Then
    CheckBox103.Caption = "R"
    globalBoolCheckBox103Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox103.Caption = Chr$(163)
    globalBoolCheckBox103Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox104_Click()
If CheckBox104.Caption = Chr$(163) Then
    CheckBox104.Caption = "R"
    globalBoolCheckBox104Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox104.Caption = Chr$(163)
    globalBoolCheckBox104Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox105_Click()
If CheckBox105.Caption = Chr$(163) Then
    CheckBox105.Caption = "R"
    globalBoolCheckBox105Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox105.Caption = Chr$(163)
    globalBoolCheckBox105Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox106_Click()
If CheckBox106.Caption = Chr$(163) Then
    CheckBox106.Caption = "R"
    globalBoolCheckBox106Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox106.Caption = Chr$(163)
    globalBoolCheckBox106Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox107_Click()
If CheckBox107.Caption = Chr$(163) Then
    CheckBox107.Caption = "R"
    globalBoolCheckBox107Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox107.Caption = Chr$(163)
    globalBoolCheckBox107Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
End If
    Rows("55").Hidden = CheckBox2 = True      'Zeile anpassen
    CheckBox2.Visible = Rows("55").Hidden = False
End Sub

 
Private Sub CheckBox108_Click()
If CheckBox108.Caption = Chr$(163) Then
    CheckBox108.Caption = "R"
    globalBoolCheckBox108Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox108.Caption = Chr$(163)
    globalBoolCheckBox108Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
End If
    Rows("56").Hidden = CheckBox2 = True      'Zeile anpassen
    CheckBox2.Visible = Rows("56").Hidden = False
End Sub

 
Private Sub CheckBox109_Click()
If CheckBox109.Caption = Chr$(163) Then
    CheckBox109.Caption = "R"
    globalBoolCheckBox109Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox109.Caption = Chr$(163)
    globalBoolCheckBox109Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox110_Click()
If CheckBox110.Caption = Chr$(163) Then
    CheckBox110.Caption = "R"
    globalBoolCheckBox110Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox110.Caption = Chr$(163)
    globalBoolCheckBox110Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox111_Click()
If CheckBox111.Caption = Chr$(163) Then
    CheckBox111.Caption = "R"
    globalBoolCheckBox111Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox111.Caption = Chr$(163)
    globalBoolCheckBox111Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox112_Click()
If CheckBox112.Caption = Chr$(163) Then
    CheckBox112.Caption = "R"
    globalBoolCheckBox112Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox112.Caption = Chr$(163)
    globalBoolCheckBox112Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox113_Click()
If CheckBox113.Caption = Chr$(163) Then
    CheckBox113.Caption = "R"
    globalBoolCheckBox113Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox113.Caption = Chr$(163)
    globalBoolCheckBox113Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox114_Click()
If CheckBox114.Caption = Chr$(163) Then
    CheckBox114.Caption = "R"
    globalBoolCheckBox114Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox114.Caption = Chr$(163)
    globalBoolCheckBox114Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox115_Click()
If CheckBox115.Caption = Chr$(163) Then
    CheckBox115.Caption = "R"
    globalBoolCheckBox115Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox115.Caption = Chr$(163)
    globalBoolCheckBox115Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox116_Click()
If CheckBox116.Caption = Chr$(163) Then
    CheckBox116.Caption = "R"
    globalBoolCheckBox116Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox116.Caption = Chr$(163)
    globalBoolCheckBox116Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox117_Click()
If CheckBox117.Caption = Chr$(163) Then
    CheckBox117.Caption = "R"
    globalBoolCheckBox117Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox117.Caption = Chr$(163)
    globalBoolCheckBox117Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
    Rows("57").Hidden = CheckBox2 = True      'Zeile anpassen
    CheckBox2.Visible = Rows("57").Hidden = False
End Sub

 
Private Sub CheckBox118_Click()
If CheckBox118.Caption = Chr$(163) Then
    CheckBox118.Caption = "R"
    globalBoolCheckBox118Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox118.Caption = Chr$(163)
    globalBoolCheckBox118Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox119_Click()
If CheckBox119.Caption = Chr$(163) Then
    CheckBox119.Caption = "R"
    globalBoolCheckBox119Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox119.Caption = Chr$(163)
    globalBoolCheckBox119Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox120_Click()
If CheckBox120.Caption = Chr$(163) Then
    CheckBox120.Caption = "R"
    globalBoolCheckBox120Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox120.Caption = Chr$(163)
    globalBoolCheckBox120Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox121_Click()
If CheckBox121.Caption = Chr$(163) Then
    CheckBox121.Caption = "R"
    globalBoolCheckBox121Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox121.Caption = Chr$(163)
    globalBoolCheckBox121Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox122_Click()
If CheckBox122.Caption = Chr$(163) Then
    CheckBox122.Caption = "R"
    globalBoolCheckBox122Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox122.Caption = Chr$(163)
    globalBoolCheckBox122Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
    Rows("58").Hidden = CheckBox2 = True      'Zeile anpassen
    CheckBox2.Visible = Rows("58").Hidden = False
End Sub

 
Private Sub CheckBox123_Click()
If CheckBox123.Caption = Chr$(163) Then
    CheckBox123.Caption = "R"
    globalBoolCheckBox123Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox123.Caption = Chr$(163)
    globalBoolCheckBox123Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
    Rows("59").Hidden = CheckBox2 = True      'Zeile anpassen
    CheckBox2.Visible = Rows("59").Hidden = False
End Sub

 
Private Sub CheckBox124_Click()
If CheckBox124.Caption = Chr$(163) Then
    CheckBox124.Caption = "R"
    globalBoolCheckBox124Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox124.Caption = Chr$(163)
    globalBoolCheckBox124Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox125_Click()
If CheckBox125.Caption = Chr$(163) Then
    CheckBox125.Caption = "R"
    globalBoolCheckBox125Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox125.Caption = Chr$(163)
    globalBoolCheckBox125Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox126_Click()
If CheckBox126.Caption = Chr$(163) Then
    CheckBox126.Caption = "R"
    globalBoolCheckBox126Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox126.Caption = Chr$(163)
    globalBoolCheckBox126Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox127_Click()
If CheckBox127.Caption = Chr$(163) Then
    CheckBox127.Caption = "R"
    globalBoolCheckBox127Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox127.Caption = Chr$(163)
    globalBoolCheckBox127Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox128_Click()
If CheckBox128.Caption = Chr$(163) Then
    CheckBox128.Caption = "R"
    globalBoolCheckBox128Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox128.Caption = Chr$(163)
    globalBoolCheckBox128Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox129_Click()
If CheckBox129.Caption = Chr$(163) Then
    CheckBox129.Caption = "R"
    globalBoolCheckBox129Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox129.Caption = Chr$(163)
    globalBoolCheckBox129Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox130_Click()
If CheckBox130.Caption = Chr$(163) Then
    CheckBox130.Caption = "R"
    globalBoolCheckBox130Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox130.Caption = Chr$(163)
    globalBoolCheckBox130Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox131_Click()
If CheckBox131.Caption = Chr$(163) Then
    CheckBox131.Caption = "R"
    globalBoolCheckBox131Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox131.Caption = Chr$(163)
    globalBoolCheckBox131Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox132_Click()
If CheckBox132.Caption = Chr$(163) Then
    CheckBox132.Caption = "R"
    globalBoolCheckBox132Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox132.Caption = Chr$(163)
    globalBoolCheckBox132Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
    Rows("60").Hidden = CheckBox2 = True      'Zeile anpassen
    CheckBox2.Visible = Rows("60").Hidden = False
End Sub

 
Private Sub CheckBox133_Click()
If CheckBox133.Caption = Chr$(163) Then
    CheckBox133.Caption = "R"
    globalBoolCheckBox133Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox133.Caption = Chr$(163)
    globalBoolCheckBox133Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox134_Click()
If CheckBox134.Caption = Chr$(163) Then
    CheckBox134.Caption = "R"
    globalBoolCheckBox134Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox134.Caption = Chr$(163)
    globalBoolCheckBox134Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox135_Click()
If CheckBox135.Caption = Chr$(163) Then
    CheckBox135.Caption = "R"
    globalBoolCheckBox135Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox135.Caption = Chr$(163)
    globalBoolCheckBox135Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox136_Click()
If CheckBox136.Caption = Chr$(163) Then
    CheckBox136.Caption = "R"
    globalBoolCheckBox136Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox136.Caption = Chr$(163)
    globalBoolCheckBox136Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox137_Click()
If CheckBox137.Caption = Chr$(163) Then
    CheckBox137.Caption = "R"
    globalBoolCheckBox137Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox137.Caption = Chr$(163)
    globalBoolCheckBox137Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
    Rows("61").Hidden = CheckBox2 = True      'Zeile anpassen
    CheckBox2.Visible = Rows("61").Hidden = False
End Sub

 
Private Sub CheckBox138_Click()
If CheckBox138.Caption = Chr$(163) Then
    CheckBox138.Caption = "R"
    globalBoolCheckBox138Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox138.Caption = Chr$(163)
    globalBoolCheckBox138Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
    Rows("62").Hidden = CheckBox2 = True      'Zeile anpassen
    CheckBox2.Visible = Rows("62").Hidden = False
End Sub

 
Private Sub CheckBox139_Click()
If CheckBox139.Caption = Chr$(163) Then
    CheckBox139.Caption = "R"
    globalBoolCheckBox139Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox139.Caption = Chr$(163)
    globalBoolCheckBox139Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox140_Click()
If CheckBox140.Caption = Chr$(163) Then
    CheckBox140.Caption = "R"
    globalBoolCheckBox140Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox140.Caption = Chr$(163)
    globalBoolCheckBox140Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox141_Click()
If CheckBox141.Caption = Chr$(163) Then
    CheckBox141.Caption = "R"
    globalBoolCheckBox141Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox141.Caption = Chr$(163)
    globalBoolCheckBox141Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox142_Click()
If CheckBox142.Caption = Chr$(163) Then
    CheckBox142.Caption = "R"
    globalBoolCheckBox142Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox142.Caption = Chr$(163)
    globalBoolCheckBox142Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox143_Click()
If CheckBox143.Caption = Chr$(163) Then
    CheckBox143.Caption = "R"
    globalBoolCheckBox143Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox143.Caption = Chr$(163)
    globalBoolCheckBox143Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox144_Click()
If CheckBox144.Caption = Chr$(163) Then
    CheckBox144.Caption = "R"
    globalBoolCheckBox144Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox144.Caption = Chr$(163)
    globalBoolCheckBox144Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox145_Click()
If CheckBox145.Caption = Chr$(163) Then
    CheckBox145.Caption = "R"
    globalBoolCheckBox145Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox145.Caption = Chr$(163)
    globalBoolCheckBox145Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox146_Click()
If CheckBox146.Caption = Chr$(163) Then
    CheckBox146.Caption = "R"
    globalBoolCheckBox146Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox146.Caption = Chr$(163)
    globalBoolCheckBox146Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox147_Click()
If CheckBox147.Caption = Chr$(163) Then
    CheckBox147.Caption = "R"
    globalBoolCheckBox147Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox147.Caption = Chr$(163)
    globalBoolCheckBox147Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox148_Click()
If CheckBox148.Caption = Chr$(163) Then
    CheckBox148.Caption = "R"
    globalBoolCheckBox148Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox148.Caption = Chr$(163)
    globalBoolCheckBox148Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox149_Click()
If CheckBox149.Caption = Chr$(163) Then
    CheckBox149.Caption = "R"
    globalBoolCheckBox149Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox149.Caption = Chr$(163)
    globalBoolCheckBox149Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox150_Click()
If CheckBox150.Caption = Chr$(163) Then
    CheckBox150.Caption = "R"
    globalBoolCheckBox150Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox150.Caption = Chr$(163)
    globalBoolCheckBox150Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox151_Click()
If CheckBox151.Caption = Chr$(163) Then
    CheckBox151.Caption = "R"
    globalBoolCheckBox151Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox151.Caption = Chr$(163)
    globalBoolCheckBox151Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox152_Click()
If CheckBox152.Caption = Chr$(163) Then
    CheckBox152.Caption = "R"
    globalBoolCheckBox152Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox152.Caption = Chr$(163)
    globalBoolCheckBox152Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox153_Click()
If CheckBox153.Caption = Chr$(163) Then
    CheckBox153.Caption = "R"
    globalBoolCheckBox153Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox153.Caption = Chr$(163)
    globalBoolCheckBox153Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox154_Click()
If CheckBox154.Caption = Chr$(163) Then
    CheckBox154.Caption = "R"
    globalBoolCheckBox154Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox154.Caption = Chr$(163)
    globalBoolCheckBox154Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox155_Click()
If CheckBox155.Caption = Chr$(163) Then
    CheckBox155.Caption = "R"
    globalBoolCheckBox155Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox155.Caption = Chr$(163)
    globalBoolCheckBox155Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox156_Click()
If CheckBox156.Caption = Chr$(163) Then
    CheckBox156.Caption = "R"
    globalBoolCheckBox156Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox156.Caption = Chr$(163)
    globalBoolCheckBox156Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox157_Click()
If CheckBox157.Caption = Chr$(163) Then
    CheckBox157.Caption = "R"
    globalBoolCheckBox157Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox157.Caption = Chr$(163)
    globalBoolCheckBox157Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox158_Click()
If CheckBox158.Caption = Chr$(163) Then
    CheckBox158.Caption = "R"
    globalBoolCheckBox158Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox158.Caption = Chr$(163)
    globalBoolCheckBox158Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox159_Click()
If CheckBox159.Caption = Chr$(163) Then
    CheckBox159.Caption = "R"
    globalBoolCheckBox159Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox159.Caption = Chr$(163)
    globalBoolCheckBox159Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox160_Click()
If CheckBox160.Caption = Chr$(163) Then
    CheckBox160.Caption = "R"
    globalBoolCheckBox160Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox160.Caption = Chr$(163)
    globalBoolCheckBox160Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox161_Click()
If CheckBox161.Caption = Chr$(163) Then
    CheckBox161.Caption = "R"
    globalBoolCheckBox161Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox161.Caption = Chr$(163)
    globalBoolCheckBox161Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox162_Click()
If CheckBox162.Caption = Chr$(163) Then
    CheckBox162.Caption = "R"
    globalBoolCheckBox162Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox162.Caption = Chr$(163)
    globalBoolCheckBox162Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox163_Click()
If CheckBox163.Caption = Chr$(163) Then
    CheckBox163.Caption = "R"
    globalBoolCheckBox163Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox163.Caption = Chr$(163)
    globalBoolCheckBox163Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox164_Click()
If CheckBox164.Caption = Chr$(163) Then
    CheckBox164.Caption = "R"
    globalBoolCheckBox164Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox164.Caption = Chr$(163)
    globalBoolCheckBox164Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox165_Click()
If CheckBox165.Caption = Chr$(163) Then
    CheckBox165.Caption = "R"
    globalBoolCheckBox165Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox165.Caption = Chr$(163)
    globalBoolCheckBox165Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox166_Click()
If CheckBox166.Caption = Chr$(163) Then
    CheckBox166.Caption = "R"
    globalBoolCheckBox166Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox166.Caption = Chr$(163)
    globalBoolCheckBox166Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox167_Click()
If CheckBox167.Caption = Chr$(163) Then
    CheckBox167.Caption = "R"
    globalBoolCheckBox167Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox167.Caption = Chr$(163)
    globalBoolCheckBox167Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox168_Click()
If CheckBox168.Caption = Chr$(163) Then
    CheckBox168.Caption = "R"
    globalBoolCheckBox168Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox168.Caption = Chr$(163)
    globalBoolCheckBox168Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox169_Click()
If CheckBox169.Caption = Chr$(163) Then
    CheckBox169.Caption = "R"
    globalBoolCheckBox169Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox169.Caption = Chr$(163)
    globalBoolCheckBox169Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox170_Click()
If CheckBox170.Caption = Chr$(163) Then
    CheckBox170.Caption = "R"
    globalBoolCheckBox170Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox170.Caption = Chr$(163)
    globalBoolCheckBox170Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox171_Click()
If CheckBox171.Caption = Chr$(163) Then
    CheckBox171.Caption = "R"
    globalBoolCheckBox171Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox171.Caption = Chr$(163)
    globalBoolCheckBox171Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox172_Click()
If CheckBox172.Caption = Chr$(163) Then
    CheckBox172.Caption = "R"
    globalBoolCheckBox172Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox172.Caption = Chr$(163)
    globalBoolCheckBox172Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
    Rows("63").Hidden = CheckBox2 = True      'Zeile anpassen
    CheckBox2.Visible = Rows("63").Hidden = False
End Sub

 
Private Sub CheckBox173_Click()
If CheckBox173.Caption = Chr$(163) Then
    CheckBox173.Caption = "R"
    globalBoolCheckBox173Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox173.Caption = Chr$(163)
    globalBoolCheckBox173Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
    Rows("64").Hidden = CheckBox2 = True      'Zeile anpassen
    CheckBox2.Visible = Rows("64").Hidden = False
End Sub

 
Private Sub CheckBox174_Click()
If CheckBox174.Caption = Chr$(163) Then
    CheckBox174.Caption = "R"
    globalBoolCheckBox174Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox174.Caption = Chr$(163)
    globalBoolCheckBox174Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox175_Click()
If CheckBox175.Caption = Chr$(163) Then
    CheckBox175.Caption = "R"
    globalBoolCheckBox175Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox175.Caption = Chr$(163)
    globalBoolCheckBox175Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox176_Click()
If CheckBox176.Caption = Chr$(163) Then
    CheckBox176.Caption = "R"
    globalBoolCheckBox176Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox176.Caption = Chr$(163)
    globalBoolCheckBox176Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox177_Click()
If CheckBox177.Caption = Chr$(163) Then
    CheckBox177.Caption = "R"
    globalBoolCheckBox177Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox177.Caption = Chr$(163)
    globalBoolCheckBox177Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
    Rows("65").Hidden = CheckBox2 = True      'Zeile anpassen
    CheckBox2.Visible = Rows("65").Hidden = False
End Sub

 
Private Sub CheckBox178_Click()
If CheckBox178.Caption = Chr$(163) Then
    CheckBox178.Caption = "R"
    globalBoolCheckBox178Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox178.Caption = Chr$(163)
    globalBoolCheckBox178Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox179_Click()
If CheckBox179.Caption = Chr$(163) Then
    CheckBox179.Caption = "R"
    globalBoolCheckBox179Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox179.Caption = Chr$(163)
    globalBoolCheckBox179Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox180_Click()
If CheckBox180.Caption = Chr$(163) Then
    CheckBox180.Caption = "R"
    globalBoolCheckBox180Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox180.Caption = Chr$(163)
    globalBoolCheckBox180Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
    Rows("66").Hidden = CheckBox2 = True      'Zeile anpassen
    CheckBox2.Visible = Rows("66").Hidden = False
End Sub

 
Private Sub CheckBox181_Click()
If CheckBox181.Caption = Chr$(163) Then
    CheckBox181.Caption = "R"
    globalBoolCheckBox181Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox181.Caption = Chr$(163)
    globalBoolCheckBox181Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
    Rows("67").Hidden = CheckBox2 = True      'Zeile anpassen
    CheckBox2.Visible = Rows("67").Hidden = False
End Sub

 
Private Sub CheckBox182_Click()
If CheckBox182.Caption = Chr$(163) Then
    CheckBox182.Caption = "R"
    globalBoolCheckBox182Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox182.Caption = Chr$(163)
    globalBoolCheckBox182Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox183_Click()
If CheckBox183.Caption = Chr$(163) Then
    CheckBox183.Caption = "R"
    globalBoolCheckBox183Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox183.Caption = Chr$(163)
    globalBoolCheckBox183Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox184_Click()
If CheckBox184.Caption = Chr$(163) Then
    CheckBox184.Caption = "R"
    globalBoolCheckBox184Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox184.Caption = Chr$(163)
    globalBoolCheckBox184Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox185_Click()
If CheckBox185.Caption = Chr$(163) Then
    CheckBox185.Caption = "R"
    globalBoolCheckBox185Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox185.Caption = Chr$(163)
    globalBoolCheckBox185Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox186_Click()
If CheckBox186.Caption = Chr$(163) Then
    CheckBox186.Caption = "R"
    globalBoolCheckBox186Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox186.Caption = Chr$(163)
    globalBoolCheckBox186Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
    Rows("68").Hidden = CheckBox2 = True      'Zeile anpassen
    CheckBox2.Visible = Rows("68").Hidden = False
End Sub

 
Private Sub CheckBox187_Click()
If CheckBox187.Caption = Chr$(163) Then
    CheckBox187.Caption = "R"
    globalBoolCheckBox187Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox187.Caption = Chr$(163)
    globalBoolCheckBox187Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox188_Click()
If CheckBox188.Caption = Chr$(163) Then
    CheckBox188.Caption = "R"
    globalBoolCheckBox188Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox188.Caption = Chr$(163)
    globalBoolCheckBox188Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox189_Click()
If CheckBox189.Caption = Chr$(163) Then
    CheckBox189.Caption = "R"
    globalBoolCheckBox189Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox189.Caption = Chr$(163)
    globalBoolCheckBox189Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox190_Click()
If CheckBox190.Caption = Chr$(163) Then
    CheckBox190.Caption = "R"
    globalBoolCheckBox190Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox190.Caption = Chr$(163)
    globalBoolCheckBox190Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox191_Click()
If CheckBox191.Caption = Chr$(163) Then
    CheckBox191.Caption = "R"
    globalBoolCheckBox191Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox191.Caption = Chr$(163)
    globalBoolCheckBox191Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox192_Click()
If CheckBox192.Caption = Chr$(163) Then
    CheckBox192.Caption = "R"
    globalBoolCheckBox192Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox192.Caption = Chr$(163)
    globalBoolCheckBox192Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox193_Click()
If CheckBox193.Caption = Chr$(163) Then
    CheckBox193.Caption = "R"
    globalBoolCheckBox193Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox193.Caption = Chr$(163)
    globalBoolCheckBox193Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox194_Click()
If CheckBox194.Caption = Chr$(163) Then
    CheckBox194.Caption = "R"
    globalBoolCheckBox194Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox194.Caption = Chr$(163)
    globalBoolCheckBox194Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox195_Click()
If CheckBox195.Caption = Chr$(163) Then
    CheckBox195.Caption = "R"
    globalBoolCheckBox195Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox195.Caption = Chr$(163)
    globalBoolCheckBox195Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox196_Click()
If CheckBox196.Caption = Chr$(163) Then
    CheckBox196.Caption = "R"
    globalBoolCheckBox196Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox196.Caption = Chr$(163)
    globalBoolCheckBox196Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox197_Click()
If CheckBox197.Caption = Chr$(163) Then
    CheckBox197.Caption = "R"
    globalBoolCheckBox197Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox197.Caption = Chr$(163)
    globalBoolCheckBox197Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox198_Click()
If CheckBox198.Caption = Chr$(163) Then
    CheckBox198.Caption = "R"
    globalBoolCheckBox198Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox198.Caption = Chr$(163)
    globalBoolCheckBox198Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox199_Click()
If CheckBox199.Caption = Chr$(163) Then
    CheckBox199.Caption = "R"
    globalBoolCheckBox199Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox199.Caption = Chr$(163)
    globalBoolCheckBox199Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox200_Click()
If CheckBox200.Caption = Chr$(163) Then
    CheckBox200.Caption = "R"
    globalBoolCheckBox200Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox200.Caption = Chr$(163)
    globalBoolCheckBox200Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox201_Click()
If CheckBox201.Caption = Chr$(163) Then
    CheckBox201.Caption = "R"
    globalBoolCheckBox201Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox201.Caption = Chr$(163)
    globalBoolCheckBox201Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox202_Click()
If CheckBox202.Caption = Chr$(163) Then
    CheckBox202.Caption = "R"
    globalBoolCheckBox202Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox202.Caption = Chr$(163)
    globalBoolCheckBox202Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
    Rows("69").Hidden = CheckBox2 = True      'Zeile anpassen
    CheckBox2.Visible = Rows("69").Hidden = False
End Sub

 
Private Sub CheckBox203_Click()
If CheckBox203.Caption = Chr$(163) Then
    CheckBox203.Caption = "R"
    globalBoolCheckBox203Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox203.Caption = Chr$(163)
    globalBoolCheckBox203Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
    Rows("70").Hidden = CheckBox2 = True      'Zeile anpassen
    CheckBox2.Visible = Rows("70").Hidden = False
End Sub

 
Private Sub CheckBox204_Click()
If CheckBox204.Caption = Chr$(163) Then
    CheckBox204.Caption = "R"
    globalBoolCheckBox204Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox204.Caption = Chr$(163)
    globalBoolCheckBox204Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox205_Click()
If CheckBox205.Caption = Chr$(163) Then
    CheckBox205.Caption = "R"
    globalBoolCheckBox205Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox205.Caption = Chr$(163)
    globalBoolCheckBox205Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox206_Click()
If CheckBox206.Caption = Chr$(163) Then
    CheckBox206.Caption = "R"
    globalBoolCheckBox206Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox206.Caption = Chr$(163)
    globalBoolCheckBox206Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox207_Click()
If CheckBox207.Caption = Chr$(163) Then
    CheckBox207.Caption = "R"
    globalBoolCheckBox207Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox207.Caption = Chr$(163)
    globalBoolCheckBox207Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
    Rows("71").Hidden = CheckBox2 = True      'Zeile anpassen
    CheckBox2.Visible = Rows("71").Hidden = False
End Sub

 
Private Sub CheckBox208_Click()
If CheckBox208.Caption = Chr$(163) Then
    CheckBox208.Caption = "R"
    globalBoolCheckBox208Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox208.Caption = Chr$(163)
    globalBoolCheckBox208Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox209_Click()
If CheckBox209.Caption = Chr$(163) Then
    CheckBox209.Caption = "R"
    globalBoolCheckBox209Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox209.Caption = Chr$(163)
    globalBoolCheckBox209Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox210_Click()
If CheckBox210.Caption = Chr$(163) Then
    CheckBox210.Caption = "R"
    globalBoolCheckBox210Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox210.Caption = Chr$(163)
    globalBoolCheckBox210Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
    Rows("72").Hidden = CheckBox2 = True      'Zeile anpassen
    CheckBox2.Visible = Rows("72").Hidden = False
End Sub

 
Private Sub CheckBox211_Click()
If CheckBox211.Caption = Chr$(163) Then
    CheckBox211.Caption = "R"
    globalBoolCheckBox211Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox211.Caption = Chr$(163)
    globalBoolCheckBox211Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
    Rows("73").Hidden = CheckBox2 = True      'Zeile anpassen
    CheckBox2.Visible = Rows("73").Hidden = False
End Sub

 
Private Sub CheckBox212_Click()
If CheckBox212.Caption = Chr$(163) Then
    CheckBox212.Caption = "R"
    globalBoolCheckBox212Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox212.Caption = Chr$(163)
    globalBoolCheckBox212Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox213_Click()
If CheckBox213.Caption = Chr$(163) Then
    CheckBox213.Caption = "R"
    globalBoolCheckBox213Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox213.Caption = Chr$(163)
    globalBoolCheckBox213Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox214_Click()
If CheckBox214.Caption = Chr$(163) Then
    CheckBox214.Caption = "R"
    globalBoolCheckBox214Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox214.Caption = Chr$(163)
    globalBoolCheckBox214Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox215_Click()
If CheckBox215.Caption = Chr$(163) Then
    CheckBox215.Caption = "R"
    globalBoolCheckBox215Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox215.Caption = Chr$(163)
    globalBoolCheckBox215Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox216_Click()
If CheckBox216.Caption = Chr$(163) Then
    CheckBox216.Caption = "R"
    globalBoolCheckBox216Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox216.Caption = Chr$(163)
    globalBoolCheckBox216Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
    Rows("79").Hidden = CheckBox2 = True      'Zeile anpassen
    CheckBox2.Visible = Rows("79").Hidden = False
End Sub

 
Private Sub CheckBox217_Click()
If CheckBox217.Caption = Chr$(163) Then
    CheckBox217.Caption = "R"
    globalBoolCheckBox217Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox217.Caption = Chr$(163)
    globalBoolCheckBox217Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox218_Click()
If CheckBox218.Caption = Chr$(163) Then
    CheckBox218.Caption = "R"
    globalBoolCheckBox218Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox218.Caption = Chr$(163)
    globalBoolCheckBox218Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox219_Click()
If CheckBox219.Caption = Chr$(163) Then
    CheckBox219.Caption = "R"
    globalBoolCheckBox219Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox219.Caption = Chr$(163)
    globalBoolCheckBox219Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox220_Click()
If CheckBox220.Caption = Chr$(163) Then
    CheckBox220.Caption = "R"
    globalBoolCheckBox220Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox220.Caption = Chr$(163)
    globalBoolCheckBox220Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox221_Click()
If CheckBox221.Caption = Chr$(163) Then
    CheckBox221.Caption = "R"
    globalBoolCheckBox221Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox221.Caption = Chr$(163)
    globalBoolCheckBox221Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
    Rows("80").Hidden = CheckBox2 = True      'Zeile anpassen
    CheckBox2.Visible = Rows("80").Hidden = False
End Sub

 
Private Sub CheckBox222_Click()
If CheckBox222.Caption = Chr$(163) Then
    CheckBox222.Caption = "R"
    globalBoolCheckBox222Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox222.Caption = Chr$(163)
    globalBoolCheckBox222Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
    Rows("81").Hidden = CheckBox2 = True      'Zeile anpassen
    CheckBox2.Visible = Rows("81").Hidden = False
End Sub

 
Private Sub CheckBox223_Click()
If CheckBox223.Caption = Chr$(163) Then
    CheckBox223.Caption = "R"
    globalBoolCheckBox223Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox223.Caption = Chr$(163)
    globalBoolCheckBox223Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox224_Click()
If CheckBox224.Caption = Chr$(163) Then
    CheckBox224.Caption = "R"
    globalBoolCheckBox224Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox224.Caption = Chr$(163)
    globalBoolCheckBox224Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox225_Click()
If CheckBox225.Caption = Chr$(163) Then
    CheckBox225.Caption = "R"
    globalBoolCheckBox225Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox225.Caption = Chr$(163)
    globalBoolCheckBox225Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox226_Click()
If CheckBox226.Caption = Chr$(163) Then
    CheckBox226.Caption = "R"
    globalBoolCheckBox226Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox226.Caption = Chr$(163)
    globalBoolCheckBox226Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox227_Click()
If CheckBox227.Caption = Chr$(163) Then
    CheckBox227.Caption = "R"
    globalBoolCheckBox227Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox227.Caption = Chr$(163)
    globalBoolCheckBox227Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox228_Click()
If CheckBox228.Caption = Chr$(163) Then
    CheckBox228.Caption = "R"
    globalBoolCheckBox228Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox228.Caption = Chr$(163)
    globalBoolCheckBox228Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox229_Click()
If CheckBox229.Caption = Chr$(163) Then
    CheckBox229.Caption = "R"
    globalBoolCheckBox229Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox229.Caption = Chr$(163)
    globalBoolCheckBox229Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox230_Click()
If CheckBox230.Caption = Chr$(163) Then
    CheckBox230.Caption = "R"
    globalBoolCheckBox230Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox230.Caption = Chr$(163)
    globalBoolCheckBox230Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox231_Click()
If CheckBox231.Caption = Chr$(163) Then
    CheckBox231.Caption = "R"
    globalBoolCheckBox231Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox231.Caption = Chr$(163)
    globalBoolCheckBox231Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox232_Click()
If CheckBox232.Caption = Chr$(163) Then
    CheckBox232.Caption = "R"
    globalBoolCheckBox232Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox232.Caption = Chr$(163)
    globalBoolCheckBox232Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox233_Click()
If CheckBox233.Caption = Chr$(163) Then
    CheckBox233.Caption = "R"
    globalBoolCheckBox233Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox233.Caption = Chr$(163)
    globalBoolCheckBox233Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox234_Click()
If CheckBox234.Caption = Chr$(163) Then
    CheckBox234.Caption = "R"
    globalBoolCheckBox234Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox234.Caption = Chr$(163)
    globalBoolCheckBox234Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox235_Click()
If CheckBox235.Caption = Chr$(163) Then
    CheckBox235.Caption = "R"
    globalBoolCheckBox235Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox235.Caption = Chr$(163)
    globalBoolCheckBox235Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox236_Click()
If CheckBox236.Caption = Chr$(163) Then
    CheckBox236.Caption = "R"
    globalBoolCheckBox236Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox236.Caption = Chr$(163)
    globalBoolCheckBox236Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox237_Click()
If CheckBox237.Caption = Chr$(163) Then
    CheckBox237.Caption = "R"
    globalBoolCheckBox237Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox237.Caption = Chr$(163)
    globalBoolCheckBox237Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox238_Click()
If CheckBox238.Caption = Chr$(163) Then
    CheckBox238.Caption = "R"
    globalBoolCheckBox238Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox238.Caption = Chr$(163)
    globalBoolCheckBox238Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox239_Click()
If CheckBox239.Caption = Chr$(163) Then
    CheckBox239.Caption = "R"
    globalBoolCheckBox239Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox239.Caption = Chr$(163)
    globalBoolCheckBox239Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox240_Click()
If CheckBox240.Caption = Chr$(163) Then
    CheckBox240.Caption = "R"
    globalBoolCheckBox240Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox240.Caption = Chr$(163)
    globalBoolCheckBox240Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox241_Click()
If CheckBox241.Caption = Chr$(163) Then
    CheckBox241.Caption = "R"
    globalBoolCheckBox241Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox241.Caption = Chr$(163)
    globalBoolCheckBox241Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox242_Click()
If CheckBox242.Caption = Chr$(163) Then
    CheckBox242.Caption = "R"
    globalBoolCheckBox242Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox242.Caption = Chr$(163)
    globalBoolCheckBox242Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
    Rows("82").Hidden = CheckBox2 = True      'Zeile anpassen
    CheckBox2.Visible = Rows("82").Hidden = False
End Sub

 
Private Sub CheckBox243_Click()
If CheckBox243.Caption = Chr$(163) Then
    CheckBox243.Caption = "R"
    globalBoolCheckBox243Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox243.Caption = Chr$(163)
    globalBoolCheckBox243Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
    Rows("83").Hidden = CheckBox2 = True      'Zeile anpassen
    CheckBox2.Visible = Rows("83").Hidden = False
End Sub

 
Private Sub CheckBox244_Click()
If CheckBox244.Caption = Chr$(163) Then
    CheckBox244.Caption = "R"
    globalBoolCheckBox244Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox244.Caption = Chr$(163)
    globalBoolCheckBox244Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox245_Click()
If CheckBox245.Caption = Chr$(163) Then
    CheckBox245.Caption = "R"
    globalBoolCheckBox245Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox245.Caption = Chr$(163)
    globalBoolCheckBox245Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox246_Click()
If CheckBox246.Caption = Chr$(163) Then
    CheckBox246.Caption = "R"
    globalBoolCheckBox246Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox246.Caption = Chr$(163)
    globalBoolCheckBox246Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox247_Click()
If CheckBox247.Caption = Chr$(163) Then
    CheckBox247.Caption = "R"
    globalBoolCheckBox247Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox247.Caption = Chr$(163)
    globalBoolCheckBox247Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
    Rows("84").Hidden = CheckBox2 = True      'Zeile anpassen
    CheckBox2.Visible = Rows("84").Hidden = False
End Sub

 
Private Sub CheckBox248_Click()
If CheckBox248.Caption = Chr$(163) Then
    CheckBox248.Caption = "R"
    globalBoolCheckBox248Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox248.Caption = Chr$(163)
    globalBoolCheckBox248Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox249_Click()
If CheckBox249.Caption = Chr$(163) Then
    CheckBox249.Caption = "R"
    globalBoolCheckBox249Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox249.Caption = Chr$(163)
    globalBoolCheckBox249Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox250_Click()
If CheckBox250.Caption = Chr$(163) Then
    CheckBox250.Caption = "R"
    globalBoolCheckBox250Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox250.Caption = Chr$(163)
    globalBoolCheckBox250Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
    Rows("85").Hidden = CheckBox2 = True      'Zeile anpassen
    CheckBox2.Visible = Rows("85").Hidden = False
End Sub

 
Private Sub CheckBox251_Click()
If CheckBox251.Caption = Chr$(163) Then
    CheckBox251.Caption = "R"
    globalBoolCheckBox251Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox251.Caption = Chr$(163)
    globalBoolCheckBox251Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
    Rows("86").Hidden = CheckBox2 = True      'Zeile anpassen
    CheckBox2.Visible = Rows("86").Hidden = False
End Sub

 
Private Sub CheckBox252_Click()
If CheckBox252.Caption = Chr$(163) Then
    CheckBox252.Caption = "R"
    globalBoolCheckBox252Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox252.Caption = Chr$(163)
    globalBoolCheckBox252Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox253_Click()
If CheckBox253.Caption = Chr$(163) Then
    CheckBox253.Caption = "R"
    globalBoolCheckBox253Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox253.Caption = Chr$(163)
    globalBoolCheckBox253Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox254_Click()
If CheckBox254.Caption = Chr$(163) Then
    CheckBox254.Caption = "R"
    globalBoolCheckBox254Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox254.Caption = Chr$(163)
    globalBoolCheckBox254Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox255_Click()
If CheckBox255.Caption = Chr$(163) Then
    CheckBox255.Caption = "R"
    globalBoolCheckBox255Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox255.Caption = Chr$(163)
    globalBoolCheckBox255Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox256_Click()
If CheckBox256.Caption = Chr$(163) Then
    CheckBox256.Caption = "R"
    globalBoolCheckBox256Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox256.Caption = Chr$(163)
    globalBoolCheckBox256Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
    Rows("87").Hidden = CheckBox2 = True      'Zeile anpassen
    CheckBox2.Visible = Rows("87").Hidden = False
End Sub

 
Private Sub CheckBox257_Click()
If CheckBox257.Caption = Chr$(163) Then
    CheckBox257.Caption = "R"
    globalBoolCheckBox257Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox257.Caption = Chr$(163)
    globalBoolCheckBox257Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox258_Click()
If CheckBox258.Caption = Chr$(163) Then
    CheckBox258.Caption = "R"
    globalBoolCheckBox258Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox258.Caption = Chr$(163)
    globalBoolCheckBox258Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox259_Click()
If CheckBox259.Caption = Chr$(163) Then
    CheckBox259.Caption = "R"
    globalBoolCheckBox259Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox259.Caption = Chr$(163)
    globalBoolCheckBox259Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox260_Click()
If CheckBox260.Caption = Chr$(163) Then
    CheckBox260.Caption = "R"
    globalBoolCheckBox260Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox260.Caption = Chr$(163)
    globalBoolCheckBox260Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox261_Click()
If CheckBox261.Caption = Chr$(163) Then
    CheckBox261.Caption = "R"
    globalBoolCheckBox261Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox261.Caption = Chr$(163)
    globalBoolCheckBox261Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox262_Click()
If CheckBox262.Caption = Chr$(163) Then
    CheckBox262.Caption = "R"
    globalBoolCheckBox262Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox262.Caption = Chr$(163)
    globalBoolCheckBox262Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox263_Click()
If CheckBox263.Caption = Chr$(163) Then
    CheckBox263.Caption = "R"
    globalBoolCheckBox263Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox263.Caption = Chr$(163)
    globalBoolCheckBox263Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox264_Click()
If CheckBox264.Caption = Chr$(163) Then
    CheckBox264.Caption = "R"
    globalBoolCheckBox264Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox264.Caption = Chr$(163)
    globalBoolCheckBox264Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox265_Click()
If CheckBox265.Caption = Chr$(163) Then
    CheckBox265.Caption = "R"
    globalBoolCheckBox265Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox265.Caption = Chr$(163)
    globalBoolCheckBox265Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox266_Click()
If CheckBox266.Caption = Chr$(163) Then
    CheckBox266.Caption = "R"
    globalBoolCheckBox266Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox266.Caption = Chr$(163)
    globalBoolCheckBox266Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox267_Click()
If CheckBox267.Caption = Chr$(163) Then
    CheckBox267.Caption = "R"
    globalBoolCheckBox267Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox267.Caption = Chr$(163)
    globalBoolCheckBox267Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox268_Click()
If CheckBox268.Caption = Chr$(163) Then
    CheckBox268.Caption = "R"
    globalBoolCheckBox268Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox268.Caption = Chr$(163)
    globalBoolCheckBox268Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox269_Click()
If CheckBox269.Caption = Chr$(163) Then
    CheckBox269.Caption = "R"
    globalBoolCheckBox269Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox269.Caption = Chr$(163)
    globalBoolCheckBox269Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox270_Click()
If CheckBox270.Caption = Chr$(163) Then
    CheckBox270.Caption = "R"
    globalBoolCheckBox270Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox270.Caption = Chr$(163)
    globalBoolCheckBox270Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox271_Click()
If CheckBox271.Caption = Chr$(163) Then
    CheckBox271.Caption = "R"
    globalBoolCheckBox271Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox271.Caption = Chr$(163)
    globalBoolCheckBox271Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox272_Click()
If CheckBox272.Caption = Chr$(163) Then
    CheckBox272.Caption = "R"
    globalBoolCheckBox272Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox272.Caption = Chr$(163)
    globalBoolCheckBox272Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
    Rows("88").Hidden = CheckBox2 = True      'Zeile anpassen
    CheckBox2.Visible = Rows("88").Hidden = False
End Sub

 
Private Sub CheckBox273_Click()
If CheckBox273.Caption = Chr$(163) Then
    CheckBox273.Caption = "R"
    globalBoolCheckBox273Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox273.Caption = Chr$(163)
    globalBoolCheckBox273Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
    Rows("89").Hidden = CheckBox2 = True      'Zeile anpassen
    CheckBox2.Visible = Rows("89").Hidden = False
End Sub

 
Private Sub CheckBox274_Click()
If CheckBox274.Caption = Chr$(163) Then
    CheckBox274.Caption = "R"
    globalBoolCheckBox274Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox274.Caption = Chr$(163)
    globalBoolCheckBox274Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox275_Click()
If CheckBox275.Caption = Chr$(163) Then
    CheckBox275.Caption = "R"
    globalBoolCheckBox275Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox275.Caption = Chr$(163)
    globalBoolCheckBox275Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox276_Click()
If CheckBox276.Caption = Chr$(163) Then
    CheckBox276.Caption = "R"
    globalBoolCheckBox276Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox276.Caption = Chr$(163)
    globalBoolCheckBox276Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox277_Click()
If CheckBox277.Caption = Chr$(163) Then
    CheckBox277.Caption = "R"
    globalBoolCheckBox277Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox277.Caption = Chr$(163)
    globalBoolCheckBox277Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
    Rows("90").Hidden = CheckBox2 = True      'Zeile anpassen
    CheckBox2.Visible = Rows("90").Hidden = False
End Sub

 
Private Sub CheckBox278_Click()
If CheckBox278.Caption = Chr$(163) Then
    CheckBox278.Caption = "R"
    globalBoolCheckBox278Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox278.Caption = Chr$(163)
    globalBoolCheckBox278Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox279_Click()
If CheckBox279.Caption = Chr$(163) Then
    CheckBox279.Caption = "R"
    globalBoolCheckBox279Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox279.Caption = Chr$(163)
    globalBoolCheckBox279Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox280_Click()
If CheckBox280.Caption = Chr$(163) Then
    CheckBox280.Caption = "R"
    globalBoolCheckBox280Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox280.Caption = Chr$(163)
    globalBoolCheckBox280Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
    Rows("91").Hidden = CheckBox2 = True      'Zeile anpassen
    CheckBox2.Visible = Rows("91").Hidden = False
End Sub

 
Private Sub CheckBox281_Click()
If CheckBox281.Caption = Chr$(163) Then
    CheckBox281.Caption = "R"
    globalBoolCheckBox281Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox281.Caption = Chr$(163)
    globalBoolCheckBox281Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox282_Click()
If CheckBox282.Caption = Chr$(163) Then
    CheckBox282.Caption = "R"
    globalBoolCheckBox282Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox282.Caption = Chr$(163)
    globalBoolCheckBox282Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox283_Click()
If CheckBox283.Caption = Chr$(163) Then
    CheckBox283.Caption = "R"
    globalBoolCheckBox283Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox283.Caption = Chr$(163)
    globalBoolCheckBox283Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox284_Click()
If CheckBox284.Caption = Chr$(163) Then
    CheckBox284.Caption = "R"
    globalBoolCheckBox284Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox284.Caption = Chr$(163)
    globalBoolCheckBox284Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox285_Click()
If CheckBox285.Caption = Chr$(163) Then
    CheckBox285.Caption = "R"
    globalBoolCheckBox285Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox285.Caption = Chr$(163)
    globalBoolCheckBox285Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
    Rows("93").Hidden = CheckBox2 = True      'Zeile anpassen
    CheckBox2.Visible = Rows("93").Hidden = False
End Sub

 
Private Sub CheckBox286_Click()
If CheckBox286.Caption = Chr$(163) Then
    CheckBox286.Caption = "R"
    globalBoolCheckBox286Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox286.Caption = Chr$(163)
    globalBoolCheckBox286Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox287_Click()
If CheckBox287.Caption = Chr$(163) Then
    CheckBox287.Caption = "R"
    globalBoolCheckBox287Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox287.Caption = Chr$(163)
    globalBoolCheckBox287Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox288_Click()
If CheckBox288.Caption = Chr$(163) Then
    CheckBox288.Caption = "R"
    globalBoolCheckBox288Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox288.Caption = Chr$(163)
    globalBoolCheckBox288Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox289_Click()
If CheckBox289.Caption = Chr$(163) Then
    CheckBox289.Caption = "R"
    globalBoolCheckBox289Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox289.Caption = Chr$(163)
    globalBoolCheckBox289Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox290_Click()
If CheckBox290.Caption = Chr$(163) Then
    CheckBox290.Caption = "R"
    globalBoolCheckBox290Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox290.Caption = Chr$(163)
    globalBoolCheckBox290Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox291_Click()
If CheckBox291.Caption = Chr$(163) Then
    CheckBox291.Caption = "R"
    globalBoolCheckBox291Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox291.Caption = Chr$(163)
    globalBoolCheckBox291Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox292_Click()
If CheckBox292.Caption = Chr$(163) Then
    CheckBox292.Caption = "R"
    globalBoolCheckBox292Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox292.Caption = Chr$(163)
    globalBoolCheckBox292Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox293_Click()
If CheckBox293.Caption = Chr$(163) Then
    CheckBox293.Caption = "R"
    globalBoolCheckBox293Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox293.Caption = Chr$(163)
    globalBoolCheckBox293Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox294_Click()
If CheckBox294.Caption = Chr$(163) Then
    CheckBox294.Caption = "R"
    globalBoolCheckBox294Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox294.Caption = Chr$(163)
    globalBoolCheckBox294Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox295_Click()
If CheckBox295.Caption = Chr$(163) Then
    CheckBox295.Caption = "R"
    globalBoolCheckBox295Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox295.Caption = Chr$(163)
    globalBoolCheckBox295Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox296_Click()
If CheckBox296.Caption = Chr$(163) Then
    CheckBox296.Caption = "R"
    globalBoolCheckBox296Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox296.Caption = Chr$(163)
    globalBoolCheckBox296Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox297_Click()
If CheckBox297.Caption = Chr$(163) Then
    CheckBox297.Caption = "R"
    globalBoolCheckBox297Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox297.Caption = Chr$(163)
    globalBoolCheckBox297Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox298_Click()
If CheckBox298.Caption = Chr$(163) Then
    CheckBox298.Caption = "R"
    globalBoolCheckBox298Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox298.Caption = Chr$(163)
    globalBoolCheckBox298Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox299_Click()
If CheckBox299.Caption = Chr$(163) Then
    CheckBox299.Caption = "R"
    globalBoolCheckBox299Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox299.Caption = Chr$(163)
    globalBoolCheckBox299Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox300_Click()
If CheckBox300.Caption = Chr$(163) Then
    CheckBox300.Caption = "R"
    globalBoolCheckBox300Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox300.Caption = Chr$(163)
    globalBoolCheckBox300Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox301_Click()
If CheckBox301.Caption = Chr$(163) Then
    CheckBox301.Caption = "R"
    globalBoolCheckBox301Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox301.Caption = Chr$(163)
    globalBoolCheckBox301Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox302_Click()
If CheckBox302.Caption = Chr$(163) Then
    CheckBox302.Caption = "R"
    globalBoolCheckBox302Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox302.Caption = Chr$(163)
    globalBoolCheckBox302Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox303_Click()
If CheckBox303.Caption = Chr$(163) Then
    CheckBox303.Caption = "R"
    globalBoolCheckBox303Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox303.Caption = Chr$(163)
    globalBoolCheckBox303Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox304_Click()
If CheckBox304.Caption = Chr$(163) Then
    CheckBox304.Caption = "R"
    globalBoolCheckBox304Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox304.Caption = Chr$(163)
    globalBoolCheckBox304Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox305_Click()
If CheckBox305.Caption = Chr$(163) Then
    CheckBox305.Caption = "R"
    globalBoolCheckBox305Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox305.Caption = Chr$(163)
    globalBoolCheckBox305Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox306_Click()
If CheckBox306.Caption = Chr$(163) Then
    CheckBox306.Caption = "R"
    globalBoolCheckBox306Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox306.Caption = Chr$(163)
    globalBoolCheckBox306Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox307_Click()
If CheckBox307.Caption = Chr$(163) Then
    CheckBox307.Caption = "R"
    globalBoolCheckBox307Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox307.Caption = Chr$(163)
    globalBoolCheckBox307Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox308_Click()
If CheckBox308.Caption = Chr$(163) Then
    CheckBox308.Caption = "R"
    globalBoolCheckBox308Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox308.Caption = Chr$(163)
    globalBoolCheckBox308Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox309_Click()
If CheckBox309.Caption = Chr$(163) Then
    CheckBox309.Caption = "R"
    globalBoolCheckBox309Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox309.Caption = Chr$(163)
    globalBoolCheckBox309Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox310_Click()
If CheckBox310.Caption = Chr$(163) Then
    CheckBox310.Caption = "R"
    globalBoolCheckBox310Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox310.Caption = Chr$(163)
    globalBoolCheckBox310Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox311_Click()
If CheckBox311.Caption = Chr$(163) Then
    CheckBox311.Caption = "R"
    globalBoolCheckBox311Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox311.Caption = Chr$(163)
    globalBoolCheckBox311Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox312_Click()
If CheckBox312.Caption = Chr$(163) Then
    CheckBox312.Caption = "R"
    globalBoolCheckBox312Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox312.Caption = Chr$(163)
    globalBoolCheckBox312Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox313_Click()
If CheckBox313.Caption = Chr$(163) Then
    CheckBox313.Caption = "R"
    globalBoolCheckBox313Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox313.Caption = Chr$(163)
    globalBoolCheckBox313Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox314_Click()
If CheckBox314.Caption = Chr$(163) Then
    CheckBox314.Caption = "R"
    globalBoolCheckBox314Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox314.Caption = Chr$(163)
    globalBoolCheckBox314Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox315_Click()
If CheckBox315.Caption = Chr$(163) Then
    CheckBox315.Caption = "R"
    globalBoolCheckBox315Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox315.Caption = Chr$(163)
    globalBoolCheckBox315Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox316_Click()
If CheckBox316.Caption = Chr$(163) Then
    CheckBox316.Caption = "R"
    globalBoolCheckBox316Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox316.Caption = Chr$(163)
    globalBoolCheckBox316Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox317_Click()
If CheckBox317.Caption = Chr$(163) Then
    CheckBox317.Caption = "R"
    globalBoolCheckBox317Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox317.Caption = Chr$(163)
    globalBoolCheckBox317Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox318_Click()
If CheckBox318.Caption = Chr$(163) Then
    CheckBox318.Caption = "R"
    globalBoolCheckBox318Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox318.Caption = Chr$(163)
    globalBoolCheckBox318Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox319_Click()
If CheckBox319.Caption = Chr$(163) Then
    CheckBox319.Caption = "R"
    globalBoolCheckBox319Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox319.Caption = Chr$(163)
    globalBoolCheckBox319Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox320_Click()
If CheckBox320.Caption = Chr$(163) Then
    CheckBox320.Caption = "R"
    globalBoolCheckBox320Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox320.Caption = Chr$(163)
    globalBoolCheckBox320Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox321_Click()
If CheckBox321.Caption = Chr$(163) Then
    CheckBox321.Caption = "R"
    globalBoolCheckBox321Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox321.Caption = Chr$(163)
    globalBoolCheckBox321Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox322_Click()
If CheckBox322.Caption = Chr$(163) Then
    CheckBox322.Caption = "R"
    globalBoolCheckBox322Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox322.Caption = Chr$(163)
    globalBoolCheckBox322Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox323_Click()
If CheckBox323.Caption = Chr$(163) Then
    CheckBox323.Caption = "R"
    globalBoolCheckBox323Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox323.Caption = Chr$(163)
    globalBoolCheckBox323Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox324_Click()
If CheckBox324.Caption = Chr$(163) Then
    CheckBox324.Caption = "R"
    globalBoolCheckBox324Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox324.Caption = Chr$(163)
    globalBoolCheckBox324Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox325_Click()
If CheckBox325.Caption = Chr$(163) Then
    CheckBox325.Caption = "R"
    globalBoolCheckBox325Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox325.Caption = Chr$(163)
    globalBoolCheckBox325Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox326_Click()
If CheckBox326.Caption = Chr$(163) Then
    CheckBox326.Caption = "R"
    globalBoolCheckBox326Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox326.Caption = Chr$(163)
    globalBoolCheckBox326Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox327_Click()
If CheckBox327.Caption = Chr$(163) Then
    CheckBox327.Caption = "R"
    globalBoolCheckBox327Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox327.Caption = Chr$(163)
    globalBoolCheckBox327Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox328_Click()
If CheckBox328.Caption = Chr$(163) Then
    CheckBox328.Caption = "R"
    globalBoolCheckBox328Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox328.Caption = Chr$(163)
    globalBoolCheckBox328Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox329_Click()
If CheckBox329.Caption = Chr$(163) Then
    CheckBox329.Caption = "R"
    globalBoolCheckBox329Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox329.Caption = Chr$(163)
    globalBoolCheckBox329Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox330_Click()
If CheckBox330.Caption = Chr$(163) Then
    CheckBox330.Caption = "R"
    globalBoolCheckBox330Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox330.Caption = Chr$(163)
    globalBoolCheckBox330Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox331_Click()
If CheckBox331.Caption = Chr$(163) Then
    CheckBox331.Caption = "R"
    globalBoolCheckBox331Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox331.Caption = Chr$(163)
    globalBoolCheckBox331Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox332_Click()
If CheckBox332.Caption = Chr$(163) Then
    CheckBox332.Caption = "R"
    globalBoolCheckBox332Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox332.Caption = Chr$(163)
    globalBoolCheckBox332Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox333_Click()
If CheckBox333.Caption = Chr$(163) Then
    CheckBox333.Caption = "R"
    globalBoolCheckBox333Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox333.Caption = Chr$(163)
    globalBoolCheckBox333Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox334_Click()
If CheckBox334.Caption = Chr$(163) Then
    CheckBox334.Caption = "R"
    globalBoolCheckBox334Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox334.Caption = Chr$(163)
    globalBoolCheckBox334Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox335_Click()
If CheckBox335.Caption = Chr$(163) Then
    CheckBox335.Caption = "R"
    globalBoolCheckBox335Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox335.Caption = Chr$(163)
    globalBoolCheckBox335Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox336_Click()
If CheckBox336.Caption = Chr$(163) Then
    CheckBox336.Caption = "R"
    globalBoolCheckBox336Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox336.Caption = Chr$(163)
    globalBoolCheckBox336Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox337_Click()
If CheckBox337.Caption = Chr$(163) Then
    CheckBox337.Caption = "R"
    globalBoolCheckBox337Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox337.Caption = Chr$(163)
    globalBoolCheckBox337Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox338_Click()
If CheckBox338.Caption = Chr$(163) Then
    CheckBox338.Caption = "R"
    globalBoolCheckBox338Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox338.Caption = Chr$(163)
    globalBoolCheckBox338Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox339_Click()
If CheckBox339.Caption = Chr$(163) Then
    CheckBox339.Caption = "R"
    globalBoolCheckBox339Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox339.Caption = Chr$(163)
    globalBoolCheckBox339Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox340_Click()
If CheckBox340.Caption = Chr$(163) Then
    CheckBox340.Caption = "R"
    globalBoolCheckBox340Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox340.Caption = Chr$(163)
    globalBoolCheckBox340Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox341_Click()
If CheckBox341.Caption = Chr$(163) Then
    CheckBox341.Caption = "R"
    globalBoolCheckBox341Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox341.Caption = Chr$(163)
    globalBoolCheckBox341Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox342_Click()
If CheckBox342.Caption = Chr$(163) Then
    CheckBox342.Caption = "R"
    globalBoolCheckBox342Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox342.Caption = Chr$(163)
    globalBoolCheckBox342Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox343_Click()
If CheckBox343.Caption = Chr$(163) Then
    CheckBox343.Caption = "R"
    globalBoolCheckBox343Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox343.Caption = Chr$(163)
    globalBoolCheckBox343Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox344_Click()
If CheckBox344.Caption = Chr$(163) Then
    CheckBox344.Caption = "R"
    globalBoolCheckBox344Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox344.Caption = Chr$(163)
    globalBoolCheckBox344Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox345_Click()
If CheckBox345.Caption = Chr$(163) Then
    CheckBox345.Caption = "R"
    globalBoolCheckBox345Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox345.Caption = Chr$(163)
    globalBoolCheckBox345Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox346_Click()
If CheckBox346.Caption = Chr$(163) Then
    CheckBox346.Caption = "R"
    globalBoolCheckBox346Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox346.Caption = Chr$(163)
    globalBoolCheckBox346Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox347_Click()
If CheckBox347.Caption = Chr$(163) Then
    CheckBox347.Caption = "R"
    globalBoolCheckBox347Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox347.Caption = Chr$(163)
    globalBoolCheckBox347Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox348_Click()
If CheckBox348.Caption = Chr$(163) Then
    CheckBox348.Caption = "R"
    globalBoolCheckBox348Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox348.Caption = Chr$(163)
    globalBoolCheckBox348Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox349_Click()
If CheckBox349.Caption = Chr$(163) Then
    CheckBox349.Caption = "R"
    globalBoolCheckBox349Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox349.Caption = Chr$(163)
    globalBoolCheckBox349Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox350_Click()
If CheckBox350.Caption = Chr$(163) Then
    CheckBox350.Caption = "R"
    globalBoolCheckBox350Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox350.Caption = Chr$(163)
    globalBoolCheckBox350Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox351_Click()
If CheckBox351.Caption = Chr$(163) Then
    CheckBox351.Caption = "R"
    globalBoolCheckBox351Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox351.Caption = Chr$(163)
    globalBoolCheckBox351Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox352_Click()
If CheckBox352.Caption = Chr$(163) Then
    CheckBox352.Caption = "R"
    globalBoolCheckBox352Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox352.Caption = Chr$(163)
    globalBoolCheckBox352Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox353_Click()
If CheckBox353.Caption = Chr$(163) Then
    CheckBox353.Caption = "R"
    globalBoolCheckBox353Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox353.Caption = Chr$(163)
    globalBoolCheckBox353Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox354_Click()
If CheckBox354.Caption = Chr$(163) Then
    CheckBox354.Caption = "R"
    globalBoolCheckBox354Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox354.Caption = Chr$(163)
    globalBoolCheckBox354Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox355_Click()
If CheckBox355.Caption = Chr$(163) Then
    CheckBox355.Caption = "R"
    globalBoolCheckBox355Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox355.Caption = Chr$(163)
    globalBoolCheckBox355Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox356_Click()
If CheckBox356.Caption = Chr$(163) Then
    CheckBox356.Caption = "R"
    globalBoolCheckBox356Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox356.Caption = Chr$(163)
    globalBoolCheckBox356Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox357_Click()
If CheckBox357.Caption = Chr$(163) Then
    CheckBox357.Caption = "R"
    globalBoolCheckBox357Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox357.Caption = Chr$(163)
    globalBoolCheckBox357Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox358_Click()
If CheckBox358.Caption = Chr$(163) Then
    CheckBox358.Caption = "R"
    globalBoolCheckBox358Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox358.Caption = Chr$(163)
    globalBoolCheckBox358Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox359_Click()
If CheckBox359.Caption = Chr$(163) Then
    CheckBox359.Caption = "R"
    globalBoolCheckBox359Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox359.Caption = Chr$(163)
    globalBoolCheckBox359Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox360_Click()
If CheckBox360.Caption = Chr$(163) Then
    CheckBox360.Caption = "R"
    globalBoolCheckBox360Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox360.Caption = Chr$(163)
    globalBoolCheckBox360Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox361_Click()
If CheckBox361.Caption = Chr$(163) Then
    CheckBox361.Caption = "R"
    globalBoolCheckBox361Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox361.Caption = Chr$(163)
    globalBoolCheckBox361Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox362_Click()
If CheckBox362.Caption = Chr$(163) Then
    CheckBox362.Caption = "R"
    globalBoolCheckBox362Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox362.Caption = Chr$(163)
    globalBoolCheckBox362Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox363_Click()
If CheckBox363.Caption = Chr$(163) Then
    CheckBox363.Caption = "R"
    globalBoolCheckBox363Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox363.Caption = Chr$(163)
    globalBoolCheckBox363Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox364_Click()
If CheckBox364.Caption = Chr$(163) Then
    CheckBox364.Caption = "R"
    globalBoolCheckBox364Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox364.Caption = Chr$(163)
    globalBoolCheckBox364Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox365_Click()
If CheckBox365.Caption = Chr$(163) Then
    CheckBox365.Caption = "R"
    globalBoolCheckBox365Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox365.Caption = Chr$(163)
    globalBoolCheckBox365Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox366_Click()
If CheckBox366.Caption = Chr$(163) Then
    CheckBox366.Caption = "R"
    globalBoolCheckBox366Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox366.Caption = Chr$(163)
    globalBoolCheckBox366Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox367_Click()
If CheckBox367.Caption = Chr$(163) Then
    CheckBox367.Caption = "R"
    globalBoolCheckBox367Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox367.Caption = Chr$(163)
    globalBoolCheckBox367Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox368_Click()
If CheckBox368.Caption = Chr$(163) Then
    CheckBox368.Caption = "R"
    globalBoolCheckBox368Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox368.Caption = Chr$(163)
    globalBoolCheckBox368Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox369_Click()
If CheckBox369.Caption = Chr$(163) Then
    CheckBox369.Caption = "R"
    globalBoolCheckBox369Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox369.Caption = Chr$(163)
    globalBoolCheckBox369Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox370_Click()
If CheckBox370.Caption = Chr$(163) Then
    CheckBox370.Caption = "R"
    globalBoolCheckBox370Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox370.Caption = Chr$(163)
    globalBoolCheckBox370Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox371_Click()
If CheckBox371.Caption = Chr$(163) Then
    CheckBox371.Caption = "R"
    globalBoolCheckBox371Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox371.Caption = Chr$(163)
    globalBoolCheckBox371Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox372_Click()
If CheckBox372.Caption = Chr$(163) Then
    CheckBox372.Caption = "R"
    globalBoolCheckBox372Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox372.Caption = Chr$(163)
    globalBoolCheckBox372Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox373_Click()
If CheckBox373.Caption = Chr$(163) Then
    CheckBox373.Caption = "R"
    globalBoolCheckBox373Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox373.Caption = Chr$(163)
    globalBoolCheckBox373Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox374_Click()
If CheckBox374.Caption = Chr$(163) Then
    CheckBox374.Caption = "R"
    globalBoolCheckBox374Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox374.Caption = Chr$(163)
    globalBoolCheckBox374Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox375_Click()
If CheckBox375.Caption = Chr$(163) Then
    CheckBox375.Caption = "R"
    globalBoolCheckBox375Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox375.Caption = Chr$(163)
    globalBoolCheckBox375Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox376_Click()
If CheckBox376.Caption = Chr$(163) Then
    CheckBox376.Caption = "R"
    globalBoolCheckBox376Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox376.Caption = Chr$(163)
    globalBoolCheckBox376Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox377_Click()
If CheckBox377.Caption = Chr$(163) Then
    CheckBox377.Caption = "R"
    globalBoolCheckBox377Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox377.Caption = Chr$(163)
    globalBoolCheckBox377Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox378_Click()
If CheckBox378.Caption = Chr$(163) Then
    CheckBox378.Caption = "R"
    globalBoolCheckBox378Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox378.Caption = Chr$(163)
    globalBoolCheckBox378Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox379_Click()
If CheckBox379.Caption = Chr$(163) Then
    CheckBox379.Caption = "R"
    globalBoolCheckBox379Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox379.Caption = Chr$(163)
    globalBoolCheckBox379Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox380_Click()
If CheckBox380.Caption = Chr$(163) Then
    CheckBox380.Caption = "R"
    globalBoolCheckBox380Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox380.Caption = Chr$(163)
    globalBoolCheckBox380Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox381_Click()
If CheckBox381.Caption = Chr$(163) Then
    CheckBox381.Caption = "R"
    globalBoolCheckBox381Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox381.Caption = Chr$(163)
    globalBoolCheckBox381Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox382_Click()
If CheckBox382.Caption = Chr$(163) Then
    CheckBox382.Caption = "R"
    globalBoolCheckBox382Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox382.Caption = Chr$(163)
    globalBoolCheckBox382Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox383_Click()
If CheckBox383.Caption = Chr$(163) Then
    CheckBox383.Caption = "R"
    globalBoolCheckBox383Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox383.Caption = Chr$(163)
    globalBoolCheckBox383Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox384_Click()
If CheckBox384.Caption = Chr$(163) Then
    CheckBox384.Caption = "R"
    globalBoolCheckBox384Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox384.Caption = Chr$(163)
    globalBoolCheckBox384Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox385_Click()
If CheckBox385.Caption = Chr$(163) Then
    CheckBox385.Caption = "R"
    globalBoolCheckBox385Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox385.Caption = Chr$(163)
    globalBoolCheckBox385Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox386_Click()
If CheckBox386.Caption = Chr$(163) Then
    CheckBox386.Caption = "R"
    globalBoolCheckBox386Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox386.Caption = Chr$(163)
    globalBoolCheckBox386Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox387_Click()
If CheckBox387.Caption = Chr$(163) Then
    CheckBox387.Caption = "R"
    globalBoolCheckBox387Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox387.Caption = Chr$(163)
    globalBoolCheckBox387Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox388_Click()
If CheckBox388.Caption = Chr$(163) Then
    CheckBox388.Caption = "R"
    globalBoolCheckBox388Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox388.Caption = Chr$(163)
    globalBoolCheckBox388Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox389_Click()
If CheckBox389.Caption = Chr$(163) Then
    CheckBox389.Caption = "R"
    globalBoolCheckBox389Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox389.Caption = Chr$(163)
    globalBoolCheckBox389Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox390_Click()
If CheckBox390.Caption = Chr$(163) Then
    CheckBox390.Caption = "R"
    globalBoolCheckBox390Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox390.Caption = Chr$(163)
    globalBoolCheckBox390Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox391_Click()
If CheckBox391.Caption = Chr$(163) Then
    CheckBox391.Caption = "R"
    globalBoolCheckBox391Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox391.Caption = Chr$(163)
    globalBoolCheckBox391Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox392_Click()
If CheckBox392.Caption = Chr$(163) Then
    CheckBox392.Caption = "R"
    globalBoolCheckBox392Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox392.Caption = Chr$(163)
    globalBoolCheckBox392Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox393_Click()
If CheckBox393.Caption = Chr$(163) Then
    CheckBox393.Caption = "R"
    globalBoolCheckBox393Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox393.Caption = Chr$(163)
    globalBoolCheckBox393Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox394_Click()
If CheckBox394.Caption = Chr$(163) Then
    CheckBox394.Caption = "R"
    globalBoolCheckBox394Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox394.Caption = Chr$(163)
    globalBoolCheckBox394Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox395_Click()
If CheckBox395.Caption = Chr$(163) Then
    CheckBox395.Caption = "R"
    globalBoolCheckBox395Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox395.Caption = Chr$(163)
    globalBoolCheckBox395Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox396_Click()
If CheckBox396.Caption = Chr$(163) Then
    CheckBox396.Caption = "R"
    globalBoolCheckBox396Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox396.Caption = Chr$(163)
    globalBoolCheckBox396Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox397_Click()
If CheckBox397.Caption = Chr$(163) Then
    CheckBox397.Caption = "R"
    globalBoolCheckBox397Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox397.Caption = Chr$(163)
    globalBoolCheckBox397Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox398_Click()
If CheckBox398.Caption = Chr$(163) Then
    CheckBox398.Caption = "R"
    globalBoolCheckBox398Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox398.Caption = Chr$(163)
    globalBoolCheckBox398Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox399_Click()
If CheckBox399.Caption = Chr$(163) Then
    CheckBox399.Caption = "R"
    globalBoolCheckBox399Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox399.Caption = Chr$(163)
    globalBoolCheckBox399Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox400_Click()
If CheckBox400.Caption = Chr$(163) Then
    CheckBox400.Caption = "R"
    globalBoolCheckBox400Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox400.Caption = Chr$(163)
    globalBoolCheckBox400Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox401_Click()
If CheckBox401.Caption = Chr$(163) Then
    CheckBox401.Caption = "R"
    globalBoolCheckBox401Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox401.Caption = Chr$(163)
    globalBoolCheckBox401Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox402_Click()
If CheckBox402.Caption = Chr$(163) Then
    CheckBox402.Caption = "R"
    globalBoolCheckBox402Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox402.Caption = Chr$(163)
    globalBoolCheckBox402Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox403_Click()
If CheckBox403.Caption = Chr$(163) Then
    CheckBox403.Caption = "R"
    globalBoolCheckBox403Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox403.Caption = Chr$(163)
    globalBoolCheckBox403Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox404_Click()
If CheckBox404.Caption = Chr$(163) Then
    CheckBox404.Caption = "R"
    globalBoolCheckBox404Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox404.Caption = Chr$(163)
    globalBoolCheckBox404Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox405_Click()
If CheckBox405.Caption = Chr$(163) Then
    CheckBox405.Caption = "R"
    globalBoolCheckBox405Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox405.Caption = Chr$(163)
    globalBoolCheckBox405Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox406_Click()
If CheckBox406.Caption = Chr$(163) Then
    CheckBox406.Caption = "R"
    globalBoolCheckBox406Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox406.Caption = Chr$(163)
    globalBoolCheckBox406Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox407_Click()
If CheckBox407.Caption = Chr$(163) Then
    CheckBox407.Caption = "R"
    globalBoolCheckBox407Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox407.Caption = Chr$(163)
    globalBoolCheckBox407Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox408_Click()
If CheckBox408.Caption = Chr$(163) Then
    CheckBox408.Caption = "R"
    globalBoolCheckBox408Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox408.Caption = Chr$(163)
    globalBoolCheckBox408Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox409_Click()
If CheckBox409.Caption = Chr$(163) Then
    CheckBox409.Caption = "R"
    globalBoolCheckBox409Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox409.Caption = Chr$(163)
    globalBoolCheckBox409Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox410_Click()
If CheckBox410.Caption = Chr$(163) Then
    CheckBox410.Caption = "R"
    globalBoolCheckBox410Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox410.Caption = Chr$(163)
    globalBoolCheckBox410Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox411_Click()
If CheckBox411.Caption = Chr$(163) Then
    CheckBox411.Caption = "R"
    globalBoolCheckBox411Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox411.Caption = Chr$(163)
    globalBoolCheckBox411Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox412_Click()
If CheckBox412.Caption = Chr$(163) Then
    CheckBox412.Caption = "R"
    globalBoolCheckBox412Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox412.Caption = Chr$(163)
    globalBoolCheckBox412Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox413_Click()
If CheckBox413.Caption = Chr$(163) Then
    CheckBox413.Caption = "R"
    globalBoolCheckBox413Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox413.Caption = Chr$(163)
    globalBoolCheckBox413Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox414_Click()
If CheckBox414.Caption = Chr$(163) Then
    CheckBox414.Caption = "R"
    globalBoolCheckBox414Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox414.Caption = Chr$(163)
    globalBoolCheckBox414Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox415_Click()
If CheckBox415.Caption = Chr$(163) Then
    CheckBox415.Caption = "R"
    globalBoolCheckBox415Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox415.Caption = Chr$(163)
    globalBoolCheckBox415Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox416_Click()
If CheckBox416.Caption = Chr$(163) Then
    CheckBox416.Caption = "R"
    globalBoolCheckBox416Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox416.Caption = Chr$(163)
    globalBoolCheckBox416Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox417_Click()
If CheckBox417.Caption = Chr$(163) Then
    CheckBox417.Caption = "R"
    globalBoolCheckBox417Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox417.Caption = Chr$(163)
    globalBoolCheckBox417Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox418_Click()
If CheckBox418.Caption = Chr$(163) Then
    CheckBox418.Caption = "R"
    globalBoolCheckBox418Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox418.Caption = Chr$(163)
    globalBoolCheckBox418Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox419_Click()
If CheckBox419.Caption = Chr$(163) Then
    CheckBox419.Caption = "R"
    globalBoolCheckBox419Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox419.Caption = Chr$(163)
    globalBoolCheckBox419Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox420_Click()
If CheckBox420.Caption = Chr$(163) Then
    CheckBox420.Caption = "R"
    globalBoolCheckBox420Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox420.Caption = Chr$(163)
    globalBoolCheckBox420Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox421_Click()
If CheckBox421.Caption = Chr$(163) Then
    CheckBox421.Caption = "R"
    globalBoolCheckBox421Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox421.Caption = Chr$(163)
    globalBoolCheckBox421Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox422_Click()
If CheckBox422.Caption = Chr$(163) Then
    CheckBox422.Caption = "R"
    globalBoolCheckBox422Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox422.Caption = Chr$(163)
    globalBoolCheckBox422Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox423_Click()
If CheckBox423.Caption = Chr$(163) Then
    CheckBox423.Caption = "R"
    globalBoolCheckBox423Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox423.Caption = Chr$(163)
    globalBoolCheckBox423Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox424_Click()
If CheckBox424.Caption = Chr$(163) Then
    CheckBox424.Caption = "R"
    globalBoolCheckBox424Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox424.Caption = Chr$(163)
    globalBoolCheckBox424Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox425_Click()
If CheckBox425.Caption = Chr$(163) Then
    CheckBox425.Caption = "R"
    globalBoolCheckBox425Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox425.Caption = Chr$(163)
    globalBoolCheckBox425Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox426_Click()
If CheckBox426.Caption = Chr$(163) Then
    CheckBox426.Caption = "R"
    globalBoolCheckBox426Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox426.Caption = Chr$(163)
    globalBoolCheckBox426Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox427_Click()
If CheckBox427.Caption = Chr$(163) Then
    CheckBox427.Caption = "R"
    globalBoolCheckBox427Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox427.Caption = Chr$(163)
    globalBoolCheckBox427Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox428_Click()
If CheckBox428.Caption = Chr$(163) Then
    CheckBox428.Caption = "R"
    globalBoolCheckBox428Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox428.Caption = Chr$(163)
    globalBoolCheckBox428Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox429_Click()
If CheckBox429.Caption = Chr$(163) Then
    CheckBox429.Caption = "R"
    globalBoolCheckBox429Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox429.Caption = Chr$(163)
    globalBoolCheckBox429Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox430_Click()
If CheckBox430.Caption = Chr$(163) Then
    CheckBox430.Caption = "R"
    globalBoolCheckBox430Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox430.Caption = Chr$(163)
    globalBoolCheckBox430Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox431_Click()
If CheckBox431.Caption = Chr$(163) Then
    CheckBox431.Caption = "R"
    globalBoolCheckBox431Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox431.Caption = Chr$(163)
    globalBoolCheckBox431Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox432_Click()
If CheckBox432.Caption = Chr$(163) Then
    CheckBox432.Caption = "R"
    globalBoolCheckBox432Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox432.Caption = Chr$(163)
    globalBoolCheckBox432Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox433_Click()
If CheckBox433.Caption = Chr$(163) Then
    CheckBox433.Caption = "R"
    globalBoolCheckBox433Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox433.Caption = Chr$(163)
    globalBoolCheckBox433Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox434_Click()
If CheckBox434.Caption = Chr$(163) Then
    CheckBox434.Caption = "R"
    globalBoolCheckBox434Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox434.Caption = Chr$(163)
    globalBoolCheckBox434Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox435_Click()
If CheckBox435.Caption = Chr$(163) Then
    CheckBox435.Caption = "R"
    globalBoolCheckBox435Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox435.Caption = Chr$(163)
    globalBoolCheckBox435Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox436_Click()
If CheckBox436.Caption = Chr$(163) Then
    CheckBox436.Caption = "R"
    globalBoolCheckBox436Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox436.Caption = Chr$(163)
    globalBoolCheckBox436Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox437_Click()
If CheckBox437.Caption = Chr$(163) Then
    CheckBox437.Caption = "R"
    globalBoolCheckBox437Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox437.Caption = Chr$(163)
    globalBoolCheckBox437Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox438_Click()
If CheckBox438.Caption = Chr$(163) Then
    CheckBox438.Caption = "R"
    globalBoolCheckBox438Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox438.Caption = Chr$(163)
    globalBoolCheckBox438Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox439_Click()
If CheckBox439.Caption = Chr$(163) Then
    CheckBox439.Caption = "R"
    globalBoolCheckBox439Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox439.Caption = Chr$(163)
    globalBoolCheckBox439Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox440_Click()
If CheckBox440.Caption = Chr$(163) Then
    CheckBox440.Caption = "R"
    globalBoolCheckBox440Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox440.Caption = Chr$(163)
    globalBoolCheckBox440Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox441_Click()
If CheckBox441.Caption = Chr$(163) Then
    CheckBox441.Caption = "R"
    globalBoolCheckBox441Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox441.Caption = Chr$(163)
    globalBoolCheckBox441Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox442_Click()
If CheckBox442.Caption = Chr$(163) Then
    CheckBox442.Caption = "R"
    globalBoolCheckBox442Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox442.Caption = Chr$(163)
    globalBoolCheckBox442Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox443_Click()
If CheckBox443.Caption = Chr$(163) Then
    CheckBox443.Caption = "R"
    globalBoolCheckBox443Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox443.Caption = Chr$(163)
    globalBoolCheckBox443Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox444_Click()
If CheckBox444.Caption = Chr$(163) Then
    CheckBox444.Caption = "R"
    globalBoolCheckBox444Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox444.Caption = Chr$(163)
    globalBoolCheckBox444Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox445_Click()
If CheckBox445.Caption = Chr$(163) Then
    CheckBox445.Caption = "R"
    globalBoolCheckBox445Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox445.Caption = Chr$(163)
    globalBoolCheckBox445Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox446_Click()
If CheckBox446.Caption = Chr$(163) Then
    CheckBox446.Caption = "R"
    globalBoolCheckBox446Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox446.Caption = Chr$(163)
    globalBoolCheckBox446Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox447_Click()
If CheckBox447.Caption = Chr$(163) Then
    CheckBox447.Caption = "R"
    globalBoolCheckBox447Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox447.Caption = Chr$(163)
    globalBoolCheckBox447Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox448_Click()
If CheckBox448.Caption = Chr$(163) Then
    CheckBox448.Caption = "R"
    globalBoolCheckBox448Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox448.Caption = Chr$(163)
    globalBoolCheckBox448Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox449_Click()
If CheckBox449.Caption = Chr$(163) Then
    CheckBox449.Caption = "R"
    globalBoolCheckBox449Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox449.Caption = Chr$(163)
    globalBoolCheckBox449Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox450_Click()
If CheckBox450.Caption = Chr$(163) Then
    CheckBox450.Caption = "R"
    globalBoolCheckBox450Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox450.Caption = Chr$(163)
    globalBoolCheckBox450Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox451_Click()
If CheckBox451.Caption = Chr$(163) Then
    CheckBox451.Caption = "R"
    globalBoolCheckBox451Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox451.Caption = Chr$(163)
    globalBoolCheckBox451Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox452_Click()
If CheckBox452.Caption = Chr$(163) Then
    CheckBox452.Caption = "R"
    globalBoolCheckBox452Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox452.Caption = Chr$(163)
    globalBoolCheckBox452Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox453_Click()
If CheckBox453.Caption = Chr$(163) Then
    CheckBox453.Caption = "R"
    globalBoolCheckBox453Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox453.Caption = Chr$(163)
    globalBoolCheckBox453Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox454_Click()
If CheckBox454.Caption = Chr$(163) Then
    CheckBox454.Caption = "R"
    globalBoolCheckBox454Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox454.Caption = Chr$(163)
    globalBoolCheckBox454Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox455_Click()
If CheckBox455.Caption = Chr$(163) Then
    CheckBox455.Caption = "R"
    globalBoolCheckBox455Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox455.Caption = Chr$(163)
    globalBoolCheckBox455Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox456_Click()
If CheckBox456.Caption = Chr$(163) Then
    CheckBox456.Caption = "R"
    globalBoolCheckBox456Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox456.Caption = Chr$(163)
    globalBoolCheckBox456Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox457_Click()
If CheckBox457.Caption = Chr$(163) Then
    CheckBox457.Caption = "R"
    globalBoolCheckBox457Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox457.Caption = Chr$(163)
    globalBoolCheckBox457Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox458_Click()
If CheckBox458.Caption = Chr$(163) Then
    CheckBox458.Caption = "R"
    globalBoolCheckBox458Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox458.Caption = Chr$(163)
    globalBoolCheckBox458Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox459_Click()
If CheckBox459.Caption = Chr$(163) Then
    CheckBox459.Caption = "R"
    globalBoolCheckBox459Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox459.Caption = Chr$(163)
    globalBoolCheckBox459Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox460_Click()
If CheckBox460.Caption = Chr$(163) Then
    CheckBox460.Caption = "R"
    globalBoolCheckBox460Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox460.Caption = Chr$(163)
    globalBoolCheckBox460Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox461_Click()
If CheckBox461.Caption = Chr$(163) Then
    CheckBox461.Caption = "R"
    globalBoolCheckBox461Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox461.Caption = Chr$(163)
    globalBoolCheckBox461Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox462_Click()
If CheckBox462.Caption = Chr$(163) Then
    CheckBox462.Caption = "R"
    globalBoolCheckBox462Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox462.Caption = Chr$(163)
    globalBoolCheckBox462Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox463_Click()
If CheckBox463.Caption = Chr$(163) Then
    CheckBox463.Caption = "R"
    globalBoolCheckBox463Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox463.Caption = Chr$(163)
    globalBoolCheckBox463Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox464_Click()
If CheckBox464.Caption = Chr$(163) Then
    CheckBox464.Caption = "R"
    globalBoolCheckBox464Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox464.Caption = Chr$(163)
    globalBoolCheckBox464Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox465_Click()
If CheckBox465.Caption = Chr$(163) Then
    CheckBox465.Caption = "R"
    globalBoolCheckBox465Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox465.Caption = Chr$(163)
    globalBoolCheckBox465Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox466_Click()
If CheckBox466.Caption = Chr$(163) Then
    CheckBox466.Caption = "R"
    globalBoolCheckBox466Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox466.Caption = Chr$(163)
    globalBoolCheckBox466Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox467_Click()
If CheckBox467.Caption = Chr$(163) Then
    CheckBox467.Caption = "R"
    globalBoolCheckBox467Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox467.Caption = Chr$(163)
    globalBoolCheckBox467Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox468_Click()
If CheckBox468.Caption = Chr$(163) Then
    CheckBox468.Caption = "R"
    globalBoolCheckBox468Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox468.Caption = Chr$(163)
    globalBoolCheckBox468Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox469_Click()
If CheckBox469.Caption = Chr$(163) Then
    CheckBox469.Caption = "R"
    globalBoolCheckBox469Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox469.Caption = Chr$(163)
    globalBoolCheckBox469Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox470_Click()
If CheckBox470.Caption = Chr$(163) Then
    CheckBox470.Caption = "R"
    globalBoolCheckBox470Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox470.Caption = Chr$(163)
    globalBoolCheckBox470Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox471_Click()
If CheckBox471.Caption = Chr$(163) Then
    CheckBox471.Caption = "R"
    globalBoolCheckBox471Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox471.Caption = Chr$(163)
    globalBoolCheckBox471Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox472_Click()
If CheckBox472.Caption = Chr$(163) Then
    CheckBox472.Caption = "R"
    globalBoolCheckBox472Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox472.Caption = Chr$(163)
    globalBoolCheckBox472Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox473_Click()
If CheckBox473.Caption = Chr$(163) Then
    CheckBox473.Caption = "R"
    globalBoolCheckBox473Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox473.Caption = Chr$(163)
    globalBoolCheckBox473Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox474_Click()
If CheckBox474.Caption = Chr$(163) Then
    CheckBox474.Caption = "R"
    globalBoolCheckBox474Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox474.Caption = Chr$(163)
    globalBoolCheckBox474Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox475_Click()
If CheckBox475.Caption = Chr$(163) Then
    CheckBox475.Caption = "R"
    globalBoolCheckBox475Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox475.Caption = Chr$(163)
    globalBoolCheckBox475Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox476_Click()
If CheckBox476.Caption = Chr$(163) Then
    CheckBox476.Caption = "R"
    globalBoolCheckBox476Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox476.Caption = Chr$(163)
    globalBoolCheckBox476Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox477_Click()
If CheckBox477.Caption = Chr$(163) Then
    CheckBox477.Caption = "R"
    globalBoolCheckBox477Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox477.Caption = Chr$(163)
    globalBoolCheckBox477Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox478_Click()
If CheckBox478.Caption = Chr$(163) Then
    CheckBox478.Caption = "R"
    globalBoolCheckBox478Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox478.Caption = Chr$(163)
    globalBoolCheckBox478Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox479_Click()
If CheckBox479.Caption = Chr$(163) Then
    CheckBox479.Caption = "R"
    globalBoolCheckBox479Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox479.Caption = Chr$(163)
    globalBoolCheckBox479Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox480_Click()
If CheckBox480.Caption = Chr$(163) Then
    CheckBox480.Caption = "R"
    globalBoolCheckBox480Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox480.Caption = Chr$(163)
    globalBoolCheckBox480Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox481_Click()
If CheckBox481.Caption = Chr$(163) Then
    CheckBox481.Caption = "R"
    globalBoolCheckBox481Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox481.Caption = Chr$(163)
    globalBoolCheckBox481Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox482_Click()
If CheckBox482.Caption = Chr$(163) Then
    CheckBox482.Caption = "R"
    globalBoolCheckBox482Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox482.Caption = Chr$(163)
    globalBoolCheckBox482Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox483_Click()
If CheckBox483.Caption = Chr$(163) Then
    CheckBox483.Caption = "R"
    globalBoolCheckBox483Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox483.Caption = Chr$(163)
    globalBoolCheckBox483Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox484_Click()
If CheckBox484.Caption = Chr$(163) Then
    CheckBox484.Caption = "R"
    globalBoolCheckBox484Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox484.Caption = Chr$(163)
    globalBoolCheckBox484Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox485_Click()
If CheckBox485.Caption = Chr$(163) Then
    CheckBox485.Caption = "R"
    globalBoolCheckBox485Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox485.Caption = Chr$(163)
    globalBoolCheckBox485Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox486_Click()
If CheckBox486.Caption = Chr$(163) Then
    CheckBox486.Caption = "R"
    globalBoolCheckBox486Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox486.Caption = Chr$(163)
    globalBoolCheckBox486Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox487_Click()
If CheckBox487.Caption = Chr$(163) Then
    CheckBox487.Caption = "R"
    globalBoolCheckBox487Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox487.Caption = Chr$(163)
    globalBoolCheckBox487Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox488_Click()
If CheckBox488.Caption = Chr$(163) Then
    CheckBox488.Caption = "R"
    globalBoolCheckBox488Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox488.Caption = Chr$(163)
    globalBoolCheckBox488Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox489_Click()
If CheckBox489.Caption = Chr$(163) Then
    CheckBox489.Caption = "R"
    globalBoolCheckBox489Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox489.Caption = Chr$(163)
    globalBoolCheckBox489Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox490_Click()
If CheckBox490.Caption = Chr$(163) Then
    CheckBox490.Caption = "R"
    globalBoolCheckBox490Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox490.Caption = Chr$(163)
    globalBoolCheckBox490Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox491_Click()
If CheckBox491.Caption = Chr$(163) Then
    CheckBox491.Caption = "R"
    globalBoolCheckBox491Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox491.Caption = Chr$(163)
    globalBoolCheckBox491Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox492_Click()
If CheckBox492.Caption = Chr$(163) Then
    CheckBox492.Caption = "R"
    globalBoolCheckBox492Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox492.Caption = Chr$(163)
    globalBoolCheckBox492Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox493_Click()
If CheckBox493.Caption = Chr$(163) Then
    CheckBox493.Caption = "R"
    globalBoolCheckBox493Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox493.Caption = Chr$(163)
    globalBoolCheckBox493Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox494_Click()
If CheckBox494.Caption = Chr$(163) Then
    CheckBox494.Caption = "R"
    globalBoolCheckBox494Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox494.Caption = Chr$(163)
    globalBoolCheckBox494Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox495_Click()
If CheckBox495.Caption = Chr$(163) Then
    CheckBox495.Caption = "R"
    globalBoolCheckBox495Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox495.Caption = Chr$(163)
    globalBoolCheckBox495Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox496_Click()
If CheckBox496.Caption = Chr$(163) Then
    CheckBox496.Caption = "R"
    globalBoolCheckBox496Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox496.Caption = Chr$(163)
    globalBoolCheckBox496Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox497_Click()
If CheckBox497.Caption = Chr$(163) Then
    CheckBox497.Caption = "R"
    globalBoolCheckBox497Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox497.Caption = Chr$(163)
    globalBoolCheckBox497Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox498_Click()
If CheckBox498.Caption = Chr$(163) Then
    CheckBox498.Caption = "R"
    globalBoolCheckBox498Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox498.Caption = Chr$(163)
    globalBoolCheckBox498Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox499_Click()
If CheckBox499.Caption = Chr$(163) Then
    CheckBox499.Caption = "R"
    globalBoolCheckBox499Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox499.Caption = Chr$(163)
    globalBoolCheckBox499Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox500_Click()
If CheckBox500.Caption = Chr$(163) Then
    CheckBox500.Caption = "R"
    globalBoolCheckBox500Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox500.Caption = Chr$(163)
    globalBoolCheckBox500Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox501_Click()
If CheckBox501.Caption = Chr$(163) Then
    CheckBox501.Caption = "R"
    globalBoolCheckBox501Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox501.Caption = Chr$(163)
    globalBoolCheckBox501Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox502_Click()
If CheckBox502.Caption = Chr$(163) Then
    CheckBox502.Caption = "R"
    globalBoolCheckBox502Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox502.Caption = Chr$(163)
    globalBoolCheckBox502Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox503_Click()
If CheckBox503.Caption = Chr$(163) Then
    CheckBox503.Caption = "R"
    globalBoolCheckBox503Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox503.Caption = Chr$(163)
    globalBoolCheckBox503Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox504_Click()
If CheckBox504.Caption = Chr$(163) Then
    CheckBox504.Caption = "R"
    globalBoolCheckBox504Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox504.Caption = Chr$(163)
    globalBoolCheckBox504Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox505_Click()
If CheckBox505.Caption = Chr$(163) Then
    CheckBox505.Caption = "R"
    globalBoolCheckBox505Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox505.Caption = Chr$(163)
    globalBoolCheckBox505Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox506_Click()
If CheckBox506.Caption = Chr$(163) Then
    CheckBox506.Caption = "R"
    globalBoolCheckBox506Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox506.Caption = Chr$(163)
    globalBoolCheckBox506Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox507_Click()
If CheckBox507.Caption = Chr$(163) Then
    CheckBox507.Caption = "R"
    globalBoolCheckBox507Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox507.Caption = Chr$(163)
    globalBoolCheckBox507Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox508_Click()
If CheckBox508.Caption = Chr$(163) Then
    CheckBox508.Caption = "R"
    globalBoolCheckBox508Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox508.Caption = Chr$(163)
    globalBoolCheckBox508Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox509_Click()
If CheckBox509.Caption = Chr$(163) Then
    CheckBox509.Caption = "R"
    globalBoolCheckBox509Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox509.Caption = Chr$(163)
    globalBoolCheckBox509Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox510_Click()
If CheckBox510.Caption = Chr$(163) Then
    CheckBox510.Caption = "R"
    globalBoolCheckBox510Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox510.Caption = Chr$(163)
    globalBoolCheckBox510Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox511_Click()
If CheckBox511.Caption = Chr$(163) Then
    CheckBox511.Caption = "R"
    globalBoolCheckBox511Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox511.Caption = Chr$(163)
    globalBoolCheckBox511Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox512_Click()
If CheckBox512.Caption = Chr$(163) Then
    CheckBox512.Caption = "R"
    globalBoolCheckBox512Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox512.Caption = Chr$(163)
    globalBoolCheckBox512Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox513_Click()
If CheckBox513.Caption = Chr$(163) Then
    CheckBox513.Caption = "R"
    globalBoolCheckBox513Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox513.Caption = Chr$(163)
    globalBoolCheckBox513Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox514_Click()
If CheckBox514.Caption = Chr$(163) Then
    CheckBox514.Caption = "R"
    globalBoolCheckBox514Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox514.Caption = Chr$(163)
    globalBoolCheckBox514Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox515_Click()
If CheckBox515.Caption = Chr$(163) Then
    CheckBox515.Caption = "R"
    globalBoolCheckBox515Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox515.Caption = Chr$(163)
    globalBoolCheckBox515Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox516_Click()
If CheckBox516.Caption = Chr$(163) Then
    CheckBox516.Caption = "R"
    globalBoolCheckBox516Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox516.Caption = Chr$(163)
    globalBoolCheckBox516Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox517_Click()
If CheckBox517.Caption = Chr$(163) Then
    CheckBox517.Caption = "R"
    globalBoolCheckBox517Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox517.Caption = Chr$(163)
    globalBoolCheckBox517Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox518_Click()
If CheckBox518.Caption = Chr$(163) Then
    CheckBox518.Caption = "R"
    globalBoolCheckBox518Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox518.Caption = Chr$(163)
    globalBoolCheckBox518Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox519_Click()
If CheckBox519.Caption = Chr$(163) Then
    CheckBox519.Caption = "R"
    globalBoolCheckBox519Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox519.Caption = Chr$(163)
    globalBoolCheckBox519Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox520_Click()
If CheckBox520.Caption = Chr$(163) Then
    CheckBox520.Caption = "R"
    globalBoolCheckBox520Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox520.Caption = Chr$(163)
    globalBoolCheckBox520Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox521_Click()
If CheckBox521.Caption = Chr$(163) Then
    CheckBox521.Caption = "R"
    globalBoolCheckBox521Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox521.Caption = Chr$(163)
    globalBoolCheckBox521Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox522_Click()
If CheckBox522.Caption = Chr$(163) Then
    CheckBox522.Caption = "R"
    globalBoolCheckBox522Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox522.Caption = Chr$(163)
    globalBoolCheckBox522Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox523_Click()
If CheckBox523.Caption = Chr$(163) Then
    CheckBox523.Caption = "R"
    globalBoolCheckBox523Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox523.Caption = Chr$(163)
    globalBoolCheckBox523Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox524_Click()
If CheckBox524.Caption = Chr$(163) Then
    CheckBox524.Caption = "R"
    globalBoolCheckBox524Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox524.Caption = Chr$(163)
    globalBoolCheckBox524Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox525_Click()
If CheckBox525.Caption = Chr$(163) Then
    CheckBox525.Caption = "R"
    globalBoolCheckBox525Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox525.Caption = Chr$(163)
    globalBoolCheckBox525Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox526_Click()
If CheckBox526.Caption = Chr$(163) Then
    CheckBox526.Caption = "R"
    globalBoolCheckBox526Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox526.Caption = Chr$(163)
    globalBoolCheckBox526Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox527_Click()
If CheckBox527.Caption = Chr$(163) Then
    CheckBox527.Caption = "R"
    globalBoolCheckBox527Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox527.Caption = Chr$(163)
    globalBoolCheckBox527Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox528_Click()
If CheckBox528.Caption = Chr$(163) Then
    CheckBox528.Caption = "R"
    globalBoolCheckBox528Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox528.Caption = Chr$(163)
    globalBoolCheckBox528Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox529_Click()
If CheckBox529.Caption = Chr$(163) Then
    CheckBox529.Caption = "R"
    globalBoolCheckBox529Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox529.Caption = Chr$(163)
    globalBoolCheckBox529Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox530_Click()
If CheckBox530.Caption = Chr$(163) Then
    CheckBox530.Caption = "R"
    globalBoolCheckBox530Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox530.Caption = Chr$(163)
    globalBoolCheckBox530Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox531_Click()
If CheckBox531.Caption = Chr$(163) Then
    CheckBox531.Caption = "R"
    globalBoolCheckBox531Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox531.Caption = Chr$(163)
    globalBoolCheckBox531Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox532_Click()
If CheckBox532.Caption = Chr$(163) Then
    CheckBox532.Caption = "R"
    globalBoolCheckBox532Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox532.Caption = Chr$(163)
    globalBoolCheckBox532Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox533_Click()
If CheckBox533.Caption = Chr$(163) Then
    CheckBox533.Caption = "R"
    globalBoolCheckBox533Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox533.Caption = Chr$(163)
    globalBoolCheckBox533Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox534_Click()
If CheckBox534.Caption = Chr$(163) Then
    CheckBox534.Caption = "R"
    globalBoolCheckBox534Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox534.Caption = Chr$(163)
    globalBoolCheckBox534Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox535_Click()
If CheckBox535.Caption = Chr$(163) Then
    CheckBox535.Caption = "R"
    globalBoolCheckBox535Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox535.Caption = Chr$(163)
    globalBoolCheckBox535Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox536_Click()
If CheckBox536.Caption = Chr$(163) Then
    CheckBox536.Caption = "R"
    globalBoolCheckBox536Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox536.Caption = Chr$(163)
    globalBoolCheckBox536Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox537_Click()
If CheckBox537.Caption = Chr$(163) Then
    CheckBox537.Caption = "R"
    globalBoolCheckBox537Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox537.Caption = Chr$(163)
    globalBoolCheckBox537Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox538_Click()
If CheckBox538.Caption = Chr$(163) Then
    CheckBox538.Caption = "R"
    globalBoolCheckBox538Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox538.Caption = Chr$(163)
    globalBoolCheckBox538Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox539_Click()
If CheckBox539.Caption = Chr$(163) Then
    CheckBox539.Caption = "R"
    globalBoolCheckBox539Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox539.Caption = Chr$(163)
    globalBoolCheckBox539Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox540_Click()
If CheckBox540.Caption = Chr$(163) Then
    CheckBox540.Caption = "R"
    globalBoolCheckBox540Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox540.Caption = Chr$(163)
    globalBoolCheckBox540Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox541_Click()
If CheckBox541.Caption = Chr$(163) Then
    CheckBox541.Caption = "R"
    globalBoolCheckBox541Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox541.Caption = Chr$(163)
    globalBoolCheckBox541Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox542_Click()
If CheckBox542.Caption = Chr$(163) Then
    CheckBox542.Caption = "R"
    globalBoolCheckBox542Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox542.Caption = Chr$(163)
    globalBoolCheckBox542Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox543_Click()
If CheckBox543.Caption = Chr$(163) Then
    CheckBox543.Caption = "R"
    globalBoolCheckBox543Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox543.Caption = Chr$(163)
    globalBoolCheckBox543Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox544_Click()
If CheckBox544.Caption = Chr$(163) Then
    CheckBox544.Caption = "R"
    globalBoolCheckBox544Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox544.Caption = Chr$(163)
    globalBoolCheckBox544Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox545_Click()
If CheckBox545.Caption = Chr$(163) Then
    CheckBox545.Caption = "R"
    globalBoolCheckBox545Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox545.Caption = Chr$(163)
    globalBoolCheckBox545Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox546_Click()
If CheckBox546.Caption = Chr$(163) Then
    CheckBox546.Caption = "R"
    globalBoolCheckBox546Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox546.Caption = Chr$(163)
    globalBoolCheckBox546Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox547_Click()
If CheckBox547.Caption = Chr$(163) Then
    CheckBox547.Caption = "R"
    globalBoolCheckBox547Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox547.Caption = Chr$(163)
    globalBoolCheckBox547Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox548_Click()
If CheckBox548.Caption = Chr$(163) Then
    CheckBox548.Caption = "R"
    globalBoolCheckBox548Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox548.Caption = Chr$(163)
    globalBoolCheckBox548Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox549_Click()
If CheckBox549.Caption = Chr$(163) Then
    CheckBox549.Caption = "R"
    globalBoolCheckBox549Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox549.Caption = Chr$(163)
    globalBoolCheckBox549Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox550_Click()
If CheckBox550.Caption = Chr$(163) Then
    CheckBox550.Caption = "R"
    globalBoolCheckBox550Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox550.Caption = Chr$(163)
    globalBoolCheckBox550Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox551_Click()
If CheckBox551.Caption = Chr$(163) Then
    CheckBox551.Caption = "R"
    globalBoolCheckBox551Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox551.Caption = Chr$(163)
    globalBoolCheckBox551Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox552_Click()
If CheckBox552.Caption = Chr$(163) Then
    CheckBox552.Caption = "R"
    globalBoolCheckBox552Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox552.Caption = Chr$(163)
    globalBoolCheckBox552Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox553_Click()
If CheckBox553.Caption = Chr$(163) Then
    CheckBox553.Caption = "R"
    globalBoolCheckBox553Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox553.Caption = Chr$(163)
    globalBoolCheckBox553Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox554_Click()
If CheckBox554.Caption = Chr$(163) Then
    CheckBox554.Caption = "R"
    globalBoolCheckBox554Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox554.Caption = Chr$(163)
    globalBoolCheckBox554Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox555_Click()
If CheckBox555.Caption = Chr$(163) Then
    CheckBox555.Caption = "R"
    globalBoolCheckBox555Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox555.Caption = Chr$(163)
    globalBoolCheckBox555Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox556_Click()
If CheckBox556.Caption = Chr$(163) Then
    CheckBox556.Caption = "R"
    globalBoolCheckBox556Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox556.Caption = Chr$(163)
    globalBoolCheckBox556Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox557_Click()
If CheckBox557.Caption = Chr$(163) Then
    CheckBox557.Caption = "R"
    globalBoolCheckBox557Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox557.Caption = Chr$(163)
    globalBoolCheckBox557Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox558_Click()
If CheckBox558.Caption = Chr$(163) Then
    CheckBox558.Caption = "R"
    globalBoolCheckBox558Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox558.Caption = Chr$(163)
    globalBoolCheckBox558Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox559_Click()
If CheckBox559.Caption = Chr$(163) Then
    CheckBox559.Caption = "R"
    globalBoolCheckBox559Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox559.Caption = Chr$(163)
    globalBoolCheckBox559Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox560_Click()
If CheckBox560.Caption = Chr$(163) Then
    CheckBox560.Caption = "R"
    globalBoolCheckBox560Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox560.Caption = Chr$(163)
    globalBoolCheckBox560Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox561_Click()
If CheckBox561.Caption = Chr$(163) Then
    CheckBox561.Caption = "R"
    globalBoolCheckBox561Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox561.Caption = Chr$(163)
    globalBoolCheckBox561Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox562_Click()
If CheckBox562.Caption = Chr$(163) Then
    CheckBox562.Caption = "R"
    globalBoolCheckBox562Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox562.Caption = Chr$(163)
    globalBoolCheckBox562Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox563_Click()
If CheckBox563.Caption = Chr$(163) Then
    CheckBox563.Caption = "R"
    globalBoolCheckBox563Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox563.Caption = Chr$(163)
    globalBoolCheckBox563Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox564_Click()
If CheckBox564.Caption = Chr$(163) Then
    CheckBox564.Caption = "R"
    globalBoolCheckBox564Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox564.Caption = Chr$(163)
    globalBoolCheckBox564Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox565_Click()
If CheckBox565.Caption = Chr$(163) Then
    CheckBox565.Caption = "R"
    globalBoolCheckBox565Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox565.Caption = Chr$(163)
    globalBoolCheckBox565Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox566_Click()
If CheckBox566.Caption = Chr$(163) Then
    CheckBox566.Caption = "R"
    globalBoolCheckBox566Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox566.Caption = Chr$(163)
    globalBoolCheckBox566Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox567_Click()
If CheckBox567.Caption = Chr$(163) Then
    CheckBox567.Caption = "R"
    globalBoolCheckBox567Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox567.Caption = Chr$(163)
    globalBoolCheckBox567Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox568_Click()
If CheckBox568.Caption = Chr$(163) Then
    CheckBox568.Caption = "R"
    globalBoolCheckBox568Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox568.Caption = Chr$(163)
    globalBoolCheckBox568Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox569_Click()
If CheckBox569.Caption = Chr$(163) Then
    CheckBox569.Caption = "R"
    globalBoolCheckBox569Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox569.Caption = Chr$(163)
    globalBoolCheckBox569Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox570_Click()
If CheckBox570.Caption = Chr$(163) Then
    CheckBox570.Caption = "R"
    globalBoolCheckBox570Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox570.Caption = Chr$(163)
    globalBoolCheckBox570Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox571_Click()
If CheckBox571.Caption = Chr$(163) Then
    CheckBox571.Caption = "R"
    globalBoolCheckBox571Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox571.Caption = Chr$(163)
    globalBoolCheckBox571Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox572_Click()
If CheckBox572.Caption = Chr$(163) Then
    CheckBox572.Caption = "R"
    globalBoolCheckBox572Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox572.Caption = Chr$(163)
    globalBoolCheckBox572Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox573_Click()
If CheckBox573.Caption = Chr$(163) Then
    CheckBox573.Caption = "R"
    globalBoolCheckBox573Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox573.Caption = Chr$(163)
    globalBoolCheckBox573Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox574_Click()
If CheckBox574.Caption = Chr$(163) Then
    CheckBox574.Caption = "R"
    globalBoolCheckBox574Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox574.Caption = Chr$(163)
    globalBoolCheckBox574Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox575_Click()
If CheckBox575.Caption = Chr$(163) Then
    CheckBox575.Caption = "R"
    globalBoolCheckBox575Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox575.Caption = Chr$(163)
    globalBoolCheckBox575Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox576_Click()
If CheckBox576.Caption = Chr$(163) Then
    CheckBox576.Caption = "R"
    globalBoolCheckBox576Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox576.Caption = Chr$(163)
    globalBoolCheckBox576Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox577_Click()
If CheckBox577.Caption = Chr$(163) Then
    CheckBox577.Caption = "R"
    globalBoolCheckBox577Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox577.Caption = Chr$(163)
    globalBoolCheckBox577Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox578_Click()
If CheckBox578.Caption = Chr$(163) Then
    CheckBox578.Caption = "R"
    globalBoolCheckBox578Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox578.Caption = Chr$(163)
    globalBoolCheckBox578Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox579_Click()
If CheckBox579.Caption = Chr$(163) Then
    CheckBox579.Caption = "R"
    globalBoolCheckBox579Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox579.Caption = Chr$(163)
    globalBoolCheckBox579Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox580_Click()
If CheckBox580.Caption = Chr$(163) Then
    CheckBox580.Caption = "R"
    globalBoolCheckBox580Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox580.Caption = Chr$(163)
    globalBoolCheckBox580Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox581_Click()
If CheckBox581.Caption = Chr$(163) Then
    CheckBox581.Caption = "R"
    globalBoolCheckBox581Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox581.Caption = Chr$(163)
    globalBoolCheckBox581Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox582_Click()
If CheckBox582.Caption = Chr$(163) Then
    CheckBox582.Caption = "R"
    globalBoolCheckBox582Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox582.Caption = Chr$(163)
    globalBoolCheckBox582Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox583_Click()
If CheckBox583.Caption = Chr$(163) Then
    CheckBox583.Caption = "R"
    globalBoolCheckBox583Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox583.Caption = Chr$(163)
    globalBoolCheckBox583Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox584_Click()
If CheckBox584.Caption = Chr$(163) Then
    CheckBox584.Caption = "R"
    globalBoolCheckBox584Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox584.Caption = Chr$(163)
    globalBoolCheckBox584Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox585_Click()
If CheckBox585.Caption = Chr$(163) Then
    CheckBox585.Caption = "R"
    globalBoolCheckBox585Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox585.Caption = Chr$(163)
    globalBoolCheckBox585Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox586_Click()
If CheckBox586.Caption = Chr$(163) Then
    CheckBox586.Caption = "R"
    globalBoolCheckBox586Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox586.Caption = Chr$(163)
    globalBoolCheckBox586Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox587_Click()
If CheckBox587.Caption = Chr$(163) Then
    CheckBox587.Caption = "R"
    globalBoolCheckBox587Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox587.Caption = Chr$(163)
    globalBoolCheckBox587Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox588_Click()
If CheckBox588.Caption = Chr$(163) Then
    CheckBox588.Caption = "R"
    globalBoolCheckBox588Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox588.Caption = Chr$(163)
    globalBoolCheckBox588Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox589_Click()
If CheckBox589.Caption = Chr$(163) Then
    CheckBox589.Caption = "R"
    globalBoolCheckBox589Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox589.Caption = Chr$(163)
    globalBoolCheckBox589Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox590_Click()
If CheckBox590.Caption = Chr$(163) Then
    CheckBox590.Caption = "R"
    globalBoolCheckBox590Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox590.Caption = Chr$(163)
    globalBoolCheckBox590Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox591_Click()
If CheckBox591.Caption = Chr$(163) Then
    CheckBox591.Caption = "R"
    globalBoolCheckBox591Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox591.Caption = Chr$(163)
    globalBoolCheckBox591Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox592_Click()
If CheckBox592.Caption = Chr$(163) Then
    CheckBox592.Caption = "R"
    globalBoolCheckBox592Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox592.Caption = Chr$(163)
    globalBoolCheckBox592Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox593_Click()
If CheckBox593.Caption = Chr$(163) Then
    CheckBox593.Caption = "R"
    globalBoolCheckBox593Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox593.Caption = Chr$(163)
    globalBoolCheckBox593Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox594_Click()
If CheckBox594.Caption = Chr$(163) Then
    CheckBox594.Caption = "R"
    globalBoolCheckBox594Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox594.Caption = Chr$(163)
    globalBoolCheckBox594Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox595_Click()
If CheckBox595.Caption = Chr$(163) Then
    CheckBox595.Caption = "R"
    globalBoolCheckBox595Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox595.Caption = Chr$(163)
    globalBoolCheckBox595Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox596_Click()
If CheckBox596.Caption = Chr$(163) Then
    CheckBox596.Caption = "R"
    globalBoolCheckBox596Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox596.Caption = Chr$(163)
    globalBoolCheckBox596Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox597_Click()
If CheckBox597.Caption = Chr$(163) Then
    CheckBox597.Caption = "R"
    globalBoolCheckBox597Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox597.Caption = Chr$(163)
    globalBoolCheckBox597Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox598_Click()
If CheckBox598.Caption = Chr$(163) Then
    CheckBox598.Caption = "R"
    globalBoolCheckBox598Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox598.Caption = Chr$(163)
    globalBoolCheckBox598Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox599_Click()
If CheckBox599.Caption = Chr$(163) Then
    CheckBox599.Caption = "R"
    globalBoolCheckBox599Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox599.Caption = Chr$(163)
    globalBoolCheckBox599Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox600_Click()
If CheckBox600.Caption = Chr$(163) Then
    CheckBox600.Caption = "R"
    globalBoolCheckBox600Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox600.Caption = Chr$(163)
    globalBoolCheckBox600Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox601_Click()
If CheckBox601.Caption = Chr$(163) Then
    CheckBox601.Caption = "R"
    globalBoolCheckBox601Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox601.Caption = Chr$(163)
    globalBoolCheckBox601Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox602_Click()
If CheckBox602.Caption = Chr$(163) Then
    CheckBox602.Caption = "R"
    globalBoolCheckBox602Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox602.Caption = Chr$(163)
    globalBoolCheckBox602Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox603_Click()
If CheckBox603.Caption = Chr$(163) Then
    CheckBox603.Caption = "R"
    globalBoolCheckBox603Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox603.Caption = Chr$(163)
    globalBoolCheckBox603Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox604_Click()
If CheckBox604.Caption = Chr$(163) Then
    CheckBox604.Caption = "R"
    globalBoolCheckBox604Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox604.Caption = Chr$(163)
    globalBoolCheckBox604Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox605_Click()
If CheckBox605.Caption = Chr$(163) Then
    CheckBox605.Caption = "R"
    globalBoolCheckBox605Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox605.Caption = Chr$(163)
    globalBoolCheckBox605Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox606_Click()
If CheckBox606.Caption = Chr$(163) Then
    CheckBox606.Caption = "R"
    globalBoolCheckBox606Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox606.Caption = Chr$(163)
    globalBoolCheckBox606Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox607_Click()
If CheckBox607.Caption = Chr$(163) Then
    CheckBox607.Caption = "R"
    globalBoolCheckBox607Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox607.Caption = Chr$(163)
    globalBoolCheckBox607Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox608_Click()
If CheckBox608.Caption = Chr$(163) Then
    CheckBox608.Caption = "R"
    globalBoolCheckBox608Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox608.Caption = Chr$(163)
    globalBoolCheckBox608Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox609_Click()
If CheckBox609.Caption = Chr$(163) Then
    CheckBox609.Caption = "R"
    globalBoolCheckBox609Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox609.Caption = Chr$(163)
    globalBoolCheckBox609Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox610_Click()
If CheckBox610.Caption = Chr$(163) Then
    CheckBox610.Caption = "R"
    globalBoolCheckBox610Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox610.Caption = Chr$(163)
    globalBoolCheckBox610Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox611_Click()
If CheckBox611.Caption = Chr$(163) Then
    CheckBox611.Caption = "R"
    globalBoolCheckBox611Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox611.Caption = Chr$(163)
    globalBoolCheckBox611Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox612_Click()
If CheckBox612.Caption = Chr$(163) Then
    CheckBox612.Caption = "R"
    globalBoolCheckBox612Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox612.Caption = Chr$(163)
    globalBoolCheckBox612Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox613_Click()
If CheckBox613.Caption = Chr$(163) Then
    CheckBox613.Caption = "R"
    globalBoolCheckBox613Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox613.Caption = Chr$(163)
    globalBoolCheckBox613Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox614_Click()
If CheckBox614.Caption = Chr$(163) Then
    CheckBox614.Caption = "R"
    globalBoolCheckBox614Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox614.Caption = Chr$(163)
    globalBoolCheckBox614Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox615_Click()
If CheckBox615.Caption = Chr$(163) Then
    CheckBox615.Caption = "R"
    globalBoolCheckBox615Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox615.Caption = Chr$(163)
    globalBoolCheckBox615Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox616_Click()
If CheckBox616.Caption = Chr$(163) Then
    CheckBox616.Caption = "R"
    globalBoolCheckBox616Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox616.Caption = Chr$(163)
    globalBoolCheckBox616Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox617_Click()
If CheckBox617.Caption = Chr$(163) Then
    CheckBox617.Caption = "R"
    globalBoolCheckBox617Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox617.Caption = Chr$(163)
    globalBoolCheckBox617Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox618_Click()
If CheckBox618.Caption = Chr$(163) Then
    CheckBox618.Caption = "R"
    globalBoolCheckBox618Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox618.Caption = Chr$(163)
    globalBoolCheckBox618Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox619_Click()
If CheckBox619.Caption = Chr$(163) Then
    CheckBox619.Caption = "R"
    globalBoolCheckBox619Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox619.Caption = Chr$(163)
    globalBoolCheckBox619Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox620_Click()
If CheckBox620.Caption = Chr$(163) Then
    CheckBox620.Caption = "R"
    globalBoolCheckBox620Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox620.Caption = Chr$(163)
    globalBoolCheckBox620Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox621_Click()
If CheckBox621.Caption = Chr$(163) Then
    CheckBox621.Caption = "R"
    globalBoolCheckBox621Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox621.Caption = Chr$(163)
    globalBoolCheckBox621Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox622_Click()
If CheckBox622.Caption = Chr$(163) Then
    CheckBox622.Caption = "R"
    globalBoolCheckBox622Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox622.Caption = Chr$(163)
    globalBoolCheckBox622Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox623_Click()
If CheckBox623.Caption = Chr$(163) Then
    CheckBox623.Caption = "R"
    globalBoolCheckBox623Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox623.Caption = Chr$(163)
    globalBoolCheckBox623Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox624_Click()
If CheckBox624.Caption = Chr$(163) Then
    CheckBox624.Caption = "R"
    globalBoolCheckBox624Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox624.Caption = Chr$(163)
    globalBoolCheckBox624Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox625_Click()
If CheckBox625.Caption = Chr$(163) Then
    CheckBox625.Caption = "R"
    globalBoolCheckBox625Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox625.Caption = Chr$(163)
    globalBoolCheckBox625Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox626_Click()
If CheckBox626.Caption = Chr$(163) Then
    CheckBox626.Caption = "R"
    globalBoolCheckBox626Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox626.Caption = Chr$(163)
    globalBoolCheckBox626Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox627_Click()
If CheckBox627.Caption = Chr$(163) Then
    CheckBox627.Caption = "R"
    globalBoolCheckBox627Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox627.Caption = Chr$(163)
    globalBoolCheckBox627Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox628_Click()
If CheckBox628.Caption = Chr$(163) Then
    CheckBox628.Caption = "R"
    globalBoolCheckBox628Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox628.Caption = Chr$(163)
    globalBoolCheckBox628Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox629_Click()
If CheckBox629.Caption = Chr$(163) Then
    CheckBox629.Caption = "R"
    globalBoolCheckBox629Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox629.Caption = Chr$(163)
    globalBoolCheckBox629Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox630_Click()
If CheckBox630.Caption = Chr$(163) Then
    CheckBox630.Caption = "R"
    globalBoolCheckBox630Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox630.Caption = Chr$(163)
    globalBoolCheckBox630Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox631_Click()
If CheckBox631.Caption = Chr$(163) Then
    CheckBox631.Caption = "R"
    globalBoolCheckBox631Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox631.Caption = Chr$(163)
    globalBoolCheckBox631Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox632_Click()
If CheckBox632.Caption = Chr$(163) Then
    CheckBox632.Caption = "R"
    globalBoolCheckBox632Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox632.Caption = Chr$(163)
    globalBoolCheckBox632Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox633_Click()
If CheckBox633.Caption = Chr$(163) Then
    CheckBox633.Caption = "R"
    globalBoolCheckBox633Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox633.Caption = Chr$(163)
    globalBoolCheckBox633Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox634_Click()
If CheckBox634.Caption = Chr$(163) Then
    CheckBox634.Caption = "R"
    globalBoolCheckBox634Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox634.Caption = Chr$(163)
    globalBoolCheckBox634Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox635_Click()
If CheckBox635.Caption = Chr$(163) Then
    CheckBox635.Caption = "R"
    globalBoolCheckBox635Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox635.Caption = Chr$(163)
    globalBoolCheckBox635Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox636_Click()
If CheckBox636.Caption = Chr$(163) Then
    CheckBox636.Caption = "R"
    globalBoolCheckBox636Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox636.Caption = Chr$(163)
    globalBoolCheckBox636Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox637_Click()
If CheckBox637.Caption = Chr$(163) Then
    CheckBox637.Caption = "R"
    globalBoolCheckBox637Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox637.Caption = Chr$(163)
    globalBoolCheckBox637Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox638_Click()
If CheckBox638.Caption = Chr$(163) Then
    CheckBox638.Caption = "R"
    globalBoolCheckBox638Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox638.Caption = Chr$(163)
    globalBoolCheckBox638Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox639_Click()
If CheckBox639.Caption = Chr$(163) Then
    CheckBox639.Caption = "R"
    globalBoolCheckBox639Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox639.Caption = Chr$(163)
    globalBoolCheckBox639Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox640_Click()
If CheckBox640.Caption = Chr$(163) Then
    CheckBox640.Caption = "R"
    globalBoolCheckBox640Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox640.Caption = Chr$(163)
    globalBoolCheckBox640Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox641_Click()
If CheckBox641.Caption = Chr$(163) Then
    CheckBox641.Caption = "R"
    globalBoolCheckBox641Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox641.Caption = Chr$(163)
    globalBoolCheckBox641Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox642_Click()
If CheckBox642.Caption = Chr$(163) Then
    CheckBox642.Caption = "R"
    globalBoolCheckBox642Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox642.Caption = Chr$(163)
    globalBoolCheckBox642Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox643_Click()
If CheckBox643.Caption = Chr$(163) Then
    CheckBox643.Caption = "R"
    globalBoolCheckBox643Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox643.Caption = Chr$(163)
    globalBoolCheckBox643Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox644_Click()
If CheckBox644.Caption = Chr$(163) Then
    CheckBox644.Caption = "R"
    globalBoolCheckBox644Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox644.Caption = Chr$(163)
    globalBoolCheckBox644Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox645_Click()
If CheckBox645.Caption = Chr$(163) Then
    CheckBox645.Caption = "R"
    globalBoolCheckBox645Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox645.Caption = Chr$(163)
    globalBoolCheckBox645Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox646_Click()
If CheckBox646.Caption = Chr$(163) Then
    CheckBox646.Caption = "R"
    globalBoolCheckBox646Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox646.Caption = Chr$(163)
    globalBoolCheckBox646Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox647_Click()
If CheckBox647.Caption = Chr$(163) Then
    CheckBox647.Caption = "R"
    globalBoolCheckBox647Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox647.Caption = Chr$(163)
    globalBoolCheckBox647Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox648_Click()
If CheckBox648.Caption = Chr$(163) Then
    CheckBox648.Caption = "R"
    globalBoolCheckBox648Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox648.Caption = Chr$(163)
    globalBoolCheckBox648Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox649_Click()
If CheckBox649.Caption = Chr$(163) Then
    CheckBox649.Caption = "R"
    globalBoolCheckBox649Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox649.Caption = Chr$(163)
    globalBoolCheckBox649Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox650_Click()
If CheckBox650.Caption = Chr$(163) Then
    CheckBox650.Caption = "R"
    globalBoolCheckBox650Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox650.Caption = Chr$(163)
    globalBoolCheckBox650Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox651_Click()
If CheckBox651.Caption = Chr$(163) Then
    CheckBox651.Caption = "R"
    globalBoolCheckBox651Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox651.Caption = Chr$(163)
    globalBoolCheckBox651Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox652_Click()
If CheckBox652.Caption = Chr$(163) Then
    CheckBox652.Caption = "R"
    globalBoolCheckBox652Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox652.Caption = Chr$(163)
    globalBoolCheckBox652Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox653_Click()
If CheckBox653.Caption = Chr$(163) Then
    CheckBox653.Caption = "R"
    globalBoolCheckBox653Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox653.Caption = Chr$(163)
    globalBoolCheckBox653Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox654_Click()
If CheckBox654.Caption = Chr$(163) Then
    CheckBox654.Caption = "R"
    globalBoolCheckBox654Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox654.Caption = Chr$(163)
    globalBoolCheckBox654Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox655_Click()
If CheckBox655.Caption = Chr$(163) Then
    CheckBox655.Caption = "R"
    globalBoolCheckBox655Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox655.Caption = Chr$(163)
    globalBoolCheckBox655Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox656_Click()
If CheckBox656.Caption = Chr$(163) Then
    CheckBox656.Caption = "R"
    globalBoolCheckBox656Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox656.Caption = Chr$(163)
    globalBoolCheckBox656Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox657_Click()
If CheckBox657.Caption = Chr$(163) Then
    CheckBox657.Caption = "R"
    globalBoolCheckBox657Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox657.Caption = Chr$(163)
    globalBoolCheckBox657Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox658_Click()
If CheckBox658.Caption = Chr$(163) Then
    CheckBox658.Caption = "R"
    globalBoolCheckBox658Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox658.Caption = Chr$(163)
    globalBoolCheckBox658Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox659_Click()
If CheckBox659.Caption = Chr$(163) Then
    CheckBox659.Caption = "R"
    globalBoolCheckBox659Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox659.Caption = Chr$(163)
    globalBoolCheckBox659Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox660_Click()
If CheckBox660.Caption = Chr$(163) Then
    CheckBox660.Caption = "R"
    globalBoolCheckBox660Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox660.Caption = Chr$(163)
    globalBoolCheckBox660Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox661_Click()
If CheckBox661.Caption = Chr$(163) Then
    CheckBox661.Caption = "R"
    globalBoolCheckBox661Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox661.Caption = Chr$(163)
    globalBoolCheckBox661Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox662_Click()
If CheckBox662.Caption = Chr$(163) Then
    CheckBox662.Caption = "R"
    globalBoolCheckBox662Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox662.Caption = Chr$(163)
    globalBoolCheckBox662Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox663_Click()
If CheckBox663.Caption = Chr$(163) Then
    CheckBox663.Caption = "R"
    globalBoolCheckBox663Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox663.Caption = Chr$(163)
    globalBoolCheckBox663Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox664_Click()
If CheckBox664.Caption = Chr$(163) Then
    CheckBox664.Caption = "R"
    globalBoolCheckBox664Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox664.Caption = Chr$(163)
    globalBoolCheckBox664Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox665_Click()
If CheckBox665.Caption = Chr$(163) Then
    CheckBox665.Caption = "R"
    globalBoolCheckBox665Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox665.Caption = Chr$(163)
    globalBoolCheckBox665Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox666_Click()
If CheckBox666.Caption = Chr$(163) Then
    CheckBox666.Caption = "R"
    globalBoolCheckBox666Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox666.Caption = Chr$(163)
    globalBoolCheckBox666Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox667_Click()
If CheckBox667.Caption = Chr$(163) Then
    CheckBox667.Caption = "R"
    globalBoolCheckBox667Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox667.Caption = Chr$(163)
    globalBoolCheckBox667Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox668_Click()
If CheckBox668.Caption = Chr$(163) Then
    CheckBox668.Caption = "R"
    globalBoolCheckBox668Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox668.Caption = Chr$(163)
    globalBoolCheckBox668Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox669_Click()
If CheckBox669.Caption = Chr$(163) Then
    CheckBox669.Caption = "R"
    globalBoolCheckBox669Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox669.Caption = Chr$(163)
    globalBoolCheckBox669Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox670_Click()
If CheckBox670.Caption = Chr$(163) Then
    CheckBox670.Caption = "R"
    globalBoolCheckBox670Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox670.Caption = Chr$(163)
    globalBoolCheckBox670Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox671_Click()
If CheckBox671.Caption = Chr$(163) Then
    CheckBox671.Caption = "R"
    globalBoolCheckBox671Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox671.Caption = Chr$(163)
    globalBoolCheckBox671Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox672_Click()
If CheckBox672.Caption = Chr$(163) Then
    CheckBox672.Caption = "R"
    globalBoolCheckBox672Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox672.Caption = Chr$(163)
    globalBoolCheckBox672Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox673_Click()
If CheckBox673.Caption = Chr$(163) Then
    CheckBox673.Caption = "R"
    globalBoolCheckBox673Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox673.Caption = Chr$(163)
    globalBoolCheckBox673Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox674_Click()
If CheckBox674.Caption = Chr$(163) Then
    CheckBox674.Caption = "R"
    globalBoolCheckBox674Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox674.Caption = Chr$(163)
    globalBoolCheckBox674Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox675_Click()
If CheckBox675.Caption = Chr$(163) Then
    CheckBox675.Caption = "R"
    globalBoolCheckBox675Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox675.Caption = Chr$(163)
    globalBoolCheckBox675Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox676_Click()
If CheckBox676.Caption = Chr$(163) Then
    CheckBox676.Caption = "R"
    globalBoolCheckBox676Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox676.Caption = Chr$(163)
    globalBoolCheckBox676Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox677_Click()
If CheckBox677.Caption = Chr$(163) Then
    CheckBox677.Caption = "R"
    globalBoolCheckBox677Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox677.Caption = Chr$(163)
    globalBoolCheckBox677Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox678_Click()
If CheckBox678.Caption = Chr$(163) Then
    CheckBox678.Caption = "R"
    globalBoolCheckBox678Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox678.Caption = Chr$(163)
    globalBoolCheckBox678Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox679_Click()
If CheckBox679.Caption = Chr$(163) Then
    CheckBox679.Caption = "R"
    globalBoolCheckBox679Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox679.Caption = Chr$(163)
    globalBoolCheckBox679Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox680_Click()
If CheckBox680.Caption = Chr$(163) Then
    CheckBox680.Caption = "R"
    globalBoolCheckBox680Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox680.Caption = Chr$(163)
    globalBoolCheckBox680Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox681_Click()
If CheckBox681.Caption = Chr$(163) Then
    CheckBox681.Caption = "R"
    globalBoolCheckBox681Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox681.Caption = Chr$(163)
    globalBoolCheckBox681Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox682_Click()
If CheckBox682.Caption = Chr$(163) Then
    CheckBox682.Caption = "R"
    globalBoolCheckBox682Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox682.Caption = Chr$(163)
    globalBoolCheckBox682Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox683_Click()
If CheckBox683.Caption = Chr$(163) Then
    CheckBox683.Caption = "R"
    globalBoolCheckBox683Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox683.Caption = Chr$(163)
    globalBoolCheckBox683Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox684_Click()
If CheckBox684.Caption = Chr$(163) Then
    CheckBox684.Caption = "R"
    globalBoolCheckBox684Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox684.Caption = Chr$(163)
    globalBoolCheckBox684Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox685_Click()
If CheckBox685.Caption = Chr$(163) Then
    CheckBox685.Caption = "R"
    globalBoolCheckBox685Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox685.Caption = Chr$(163)
    globalBoolCheckBox685Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox686_Click()
If CheckBox686.Caption = Chr$(163) Then
    CheckBox686.Caption = "R"
    globalBoolCheckBox686Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox686.Caption = Chr$(163)
    globalBoolCheckBox686Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox687_Click()
If CheckBox687.Caption = Chr$(163) Then
    CheckBox687.Caption = "R"
    globalBoolCheckBox687Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox687.Caption = Chr$(163)
    globalBoolCheckBox687Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox688_Click()
If CheckBox688.Caption = Chr$(163) Then
    CheckBox688.Caption = "R"
    globalBoolCheckBox688Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox688.Caption = Chr$(163)
    globalBoolCheckBox688Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox689_Click()
If CheckBox689.Caption = Chr$(163) Then
    CheckBox689.Caption = "R"
    globalBoolCheckBox689Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox689.Caption = Chr$(163)
    globalBoolCheckBox689Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox690_Click()
If CheckBox690.Caption = Chr$(163) Then
    CheckBox690.Caption = "R"
    globalBoolCheckBox690Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox690.Caption = Chr$(163)
    globalBoolCheckBox690Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox691_Click()
If CheckBox691.Caption = Chr$(163) Then
    CheckBox691.Caption = "R"
    globalBoolCheckBox691Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox691.Caption = Chr$(163)
    globalBoolCheckBox691Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox692_Click()
If CheckBox692.Caption = Chr$(163) Then
    CheckBox692.Caption = "R"
    globalBoolCheckBox692Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox692.Caption = Chr$(163)
    globalBoolCheckBox692Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox693_Click()
If CheckBox693.Caption = Chr$(163) Then
    CheckBox693.Caption = "R"
    globalBoolCheckBox693Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox693.Caption = Chr$(163)
    globalBoolCheckBox693Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox694_Click()
If CheckBox694.Caption = Chr$(163) Then
    CheckBox694.Caption = "R"
    globalBoolCheckBox694Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox694.Caption = Chr$(163)
    globalBoolCheckBox694Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox695_Click()
If CheckBox695.Caption = Chr$(163) Then
    CheckBox695.Caption = "R"
    globalBoolCheckBox695Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox695.Caption = Chr$(163)
    globalBoolCheckBox695Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox696_Click()
If CheckBox696.Caption = Chr$(163) Then
    CheckBox696.Caption = "R"
    globalBoolCheckBox696Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox696.Caption = Chr$(163)
    globalBoolCheckBox696Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox697_Click()
If CheckBox697.Caption = Chr$(163) Then
    CheckBox697.Caption = "R"
    globalBoolCheckBox697Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox697.Caption = Chr$(163)
    globalBoolCheckBox697Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox698_Click()
If CheckBox698.Caption = Chr$(163) Then
    CheckBox698.Caption = "R"
    globalBoolCheckBox698Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox698.Caption = Chr$(163)
    globalBoolCheckBox698Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox699_Click()
If CheckBox699.Caption = Chr$(163) Then
    CheckBox699.Caption = "R"
    globalBoolCheckBox699Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox699.Caption = Chr$(163)
    globalBoolCheckBox699Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox700_Click()
If CheckBox700.Caption = Chr$(163) Then
    CheckBox700.Caption = "R"
    globalBoolCheckBox700Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox700.Caption = Chr$(163)
    globalBoolCheckBox700Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox701_Click()
If CheckBox701.Caption = Chr$(163) Then
    CheckBox701.Caption = "R"
    globalBoolCheckBox701Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox701.Caption = Chr$(163)
    globalBoolCheckBox701Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox702_Click()
If CheckBox702.Caption = Chr$(163) Then
    CheckBox702.Caption = "R"
    globalBoolCheckBox702Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox702.Caption = Chr$(163)
    globalBoolCheckBox702Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox703_Click()
If CheckBox703.Caption = Chr$(163) Then
    CheckBox703.Caption = "R"
    globalBoolCheckBox703Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox703.Caption = Chr$(163)
    globalBoolCheckBox703Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox704_Click()
If CheckBox704.Caption = Chr$(163) Then
    CheckBox704.Caption = "R"
    globalBoolCheckBox704Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox704.Caption = Chr$(163)
    globalBoolCheckBox704Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox705_Click()
If CheckBox705.Caption = Chr$(163) Then
    CheckBox705.Caption = "R"
    globalBoolCheckBox705Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox705.Caption = Chr$(163)
    globalBoolCheckBox705Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox706_Click()
If CheckBox706.Caption = Chr$(163) Then
    CheckBox706.Caption = "R"
    globalBoolCheckBox706Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox706.Caption = Chr$(163)
    globalBoolCheckBox706Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox707_Click()
If CheckBox707.Caption = Chr$(163) Then
    CheckBox707.Caption = "R"
    globalBoolCheckBox707Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox707.Caption = Chr$(163)
    globalBoolCheckBox707Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox708_Click()
If CheckBox708.Caption = Chr$(163) Then
    CheckBox708.Caption = "R"
    globalBoolCheckBox708Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox708.Caption = Chr$(163)
    globalBoolCheckBox708Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox709_Click()
If CheckBox709.Caption = Chr$(163) Then
    CheckBox709.Caption = "R"
    globalBoolCheckBox709Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox709.Caption = Chr$(163)
    globalBoolCheckBox709Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox710_Click()
If CheckBox710.Caption = Chr$(163) Then
    CheckBox710.Caption = "R"
    globalBoolCheckBox710Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox710.Caption = Chr$(163)
    globalBoolCheckBox710Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox711_Click()
If CheckBox711.Caption = Chr$(163) Then
    CheckBox711.Caption = "R"
    globalBoolCheckBox711Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox711.Caption = Chr$(163)
    globalBoolCheckBox711Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox712_Click()
If CheckBox712.Caption = Chr$(163) Then
    CheckBox712.Caption = "R"
    globalBoolCheckBox712Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox712.Caption = Chr$(163)
    globalBoolCheckBox712Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox713_Click()
If CheckBox713.Caption = Chr$(163) Then
    CheckBox713.Caption = "R"
    globalBoolCheckBox713Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox713.Caption = Chr$(163)
    globalBoolCheckBox713Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox714_Click()
If CheckBox714.Caption = Chr$(163) Then
    CheckBox714.Caption = "R"
    globalBoolCheckBox714Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox714.Caption = Chr$(163)
    globalBoolCheckBox714Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox715_Click()
If CheckBox715.Caption = Chr$(163) Then
    CheckBox715.Caption = "R"
    globalBoolCheckBox715Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox715.Caption = Chr$(163)
    globalBoolCheckBox715Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox716_Click()
If CheckBox716.Caption = Chr$(163) Then
    CheckBox716.Caption = "R"
    globalBoolCheckBox716Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox716.Caption = Chr$(163)
    globalBoolCheckBox716Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox717_Click()
If CheckBox717.Caption = Chr$(163) Then
    CheckBox717.Caption = "R"
    globalBoolCheckBox717Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox717.Caption = Chr$(163)
    globalBoolCheckBox717Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox718_Click()
If CheckBox718.Caption = Chr$(163) Then
    CheckBox718.Caption = "R"
    globalBoolCheckBox718Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox718.Caption = Chr$(163)
    globalBoolCheckBox718Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox719_Click()
If CheckBox719.Caption = Chr$(163) Then
    CheckBox719.Caption = "R"
    globalBoolCheckBox719Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox719.Caption = Chr$(163)
    globalBoolCheckBox719Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox720_Click()
If CheckBox720.Caption = Chr$(163) Then
    CheckBox720.Caption = "R"
    globalBoolCheckBox720Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox720.Caption = Chr$(163)
    globalBoolCheckBox720Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox721_Click()
If CheckBox721.Caption = Chr$(163) Then
    CheckBox721.Caption = "R"
    globalBoolCheckBox721Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox721.Caption = Chr$(163)
    globalBoolCheckBox721Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox722_Click()
If CheckBox722.Caption = Chr$(163) Then
    CheckBox722.Caption = "R"
    globalBoolCheckBox722Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox722.Caption = Chr$(163)
    globalBoolCheckBox722Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox723_Click()
If CheckBox723.Caption = Chr$(163) Then
    CheckBox723.Caption = "R"
    globalBoolCheckBox723Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox723.Caption = Chr$(163)
    globalBoolCheckBox723Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox724_Click()
If CheckBox724.Caption = Chr$(163) Then
    CheckBox724.Caption = "R"
    globalBoolCheckBox724Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox724.Caption = Chr$(163)
    globalBoolCheckBox724Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox725_Click()
If CheckBox725.Caption = Chr$(163) Then
    CheckBox725.Caption = "R"
    globalBoolCheckBox725Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox725.Caption = Chr$(163)
    globalBoolCheckBox725Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox726_Click()
If CheckBox726.Caption = Chr$(163) Then
    CheckBox726.Caption = "R"
    globalBoolCheckBox726Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox726.Caption = Chr$(163)
    globalBoolCheckBox726Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox727_Click()
If CheckBox727.Caption = Chr$(163) Then
    CheckBox727.Caption = "R"
    globalBoolCheckBox727Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox727.Caption = Chr$(163)
    globalBoolCheckBox727Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox728_Click()
If CheckBox728.Caption = Chr$(163) Then
    CheckBox728.Caption = "R"
    globalBoolCheckBox728Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox728.Caption = Chr$(163)
    globalBoolCheckBox728Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox729_Click()
If CheckBox729.Caption = Chr$(163) Then
    CheckBox729.Caption = "R"
    globalBoolCheckBox729Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox729.Caption = Chr$(163)
    globalBoolCheckBox729Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox730_Click()
If CheckBox730.Caption = Chr$(163) Then
    CheckBox730.Caption = "R"
    globalBoolCheckBox730Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox730.Caption = Chr$(163)
    globalBoolCheckBox730Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox731_Click()
If CheckBox731.Caption = Chr$(163) Then
    CheckBox731.Caption = "R"
    globalBoolCheckBox731Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox731.Caption = Chr$(163)
    globalBoolCheckBox731Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox732_Click()
If CheckBox732.Caption = Chr$(163) Then
    CheckBox732.Caption = "R"
    globalBoolCheckBox732Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox732.Caption = Chr$(163)
    globalBoolCheckBox732Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox733_Click()
If CheckBox733.Caption = Chr$(163) Then
    CheckBox733.Caption = "R"
    globalBoolCheckBox733Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox733.Caption = Chr$(163)
    globalBoolCheckBox733Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox734_Click()
If CheckBox734.Caption = Chr$(163) Then
    CheckBox734.Caption = "R"
    globalBoolCheckBox734Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox734.Caption = Chr$(163)
    globalBoolCheckBox734Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox735_Click()
If CheckBox735.Caption = Chr$(163) Then
    CheckBox735.Caption = "R"
    globalBoolCheckBox735Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox735.Caption = Chr$(163)
    globalBoolCheckBox735Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox736_Click()
If CheckBox736.Caption = Chr$(163) Then
    CheckBox736.Caption = "R"
    globalBoolCheckBox736Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox736.Caption = Chr$(163)
    globalBoolCheckBox736Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox737_Click()
If CheckBox737.Caption = Chr$(163) Then
    CheckBox737.Caption = "R"
    globalBoolCheckBox737Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox737.Caption = Chr$(163)
    globalBoolCheckBox737Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox738_Click()
If CheckBox738.Caption = Chr$(163) Then
    CheckBox738.Caption = "R"
    globalBoolCheckBox738Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox738.Caption = Chr$(163)
    globalBoolCheckBox738Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox739_Click()
If CheckBox739.Caption = Chr$(163) Then
    CheckBox739.Caption = "R"
    globalBoolCheckBox739Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox739.Caption = Chr$(163)
    globalBoolCheckBox739Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox740_Click()
If CheckBox740.Caption = Chr$(163) Then
    CheckBox740.Caption = "R"
    globalBoolCheckBox740Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox740.Caption = Chr$(163)
    globalBoolCheckBox740Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox741_Click()
If CheckBox741.Caption = Chr$(163) Then
    CheckBox741.Caption = "R"
    globalBoolCheckBox741Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox741.Caption = Chr$(163)
    globalBoolCheckBox741Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox742_Click()
If CheckBox742.Caption = Chr$(163) Then
    CheckBox742.Caption = "R"
    globalBoolCheckBox742Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox742.Caption = Chr$(163)
    globalBoolCheckBox742Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox743_Click()
If CheckBox743.Caption = Chr$(163) Then
    CheckBox743.Caption = "R"
    globalBoolCheckBox743Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox743.Caption = Chr$(163)
    globalBoolCheckBox743Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox744_Click()
If CheckBox744.Caption = Chr$(163) Then
    CheckBox744.Caption = "R"
    globalBoolCheckBox744Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox744.Caption = Chr$(163)
    globalBoolCheckBox744Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox745_Click()
If CheckBox745.Caption = Chr$(163) Then
    CheckBox745.Caption = "R"
    globalBoolCheckBox745Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox745.Caption = Chr$(163)
    globalBoolCheckBox745Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox746_Click()
If CheckBox746.Caption = Chr$(163) Then
    CheckBox746.Caption = "R"
    globalBoolCheckBox746Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox746.Caption = Chr$(163)
    globalBoolCheckBox746Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox747_Click()
If CheckBox747.Caption = Chr$(163) Then
    CheckBox747.Caption = "R"
    globalBoolCheckBox747Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox747.Caption = Chr$(163)
    globalBoolCheckBox747Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox748_Click()
If CheckBox748.Caption = Chr$(163) Then
    CheckBox748.Caption = "R"
    globalBoolCheckBox748Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox748.Caption = Chr$(163)
    globalBoolCheckBox748Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox749_Click()
If CheckBox749.Caption = Chr$(163) Then
    CheckBox749.Caption = "R"
    globalBoolCheckBox749Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox749.Caption = Chr$(163)
    globalBoolCheckBox749Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox750_Click()
If CheckBox750.Caption = Chr$(163) Then
    CheckBox750.Caption = "R"
    globalBoolCheckBox750Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox750.Caption = Chr$(163)
    globalBoolCheckBox750Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox751_Click()
If CheckBox751.Caption = Chr$(163) Then
    CheckBox751.Caption = "R"
    globalBoolCheckBox751Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox751.Caption = Chr$(163)
    globalBoolCheckBox751Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox752_Click()
If CheckBox752.Caption = Chr$(163) Then
    CheckBox752.Caption = "R"
    globalBoolCheckBox752Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox752.Caption = Chr$(163)
    globalBoolCheckBox752Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox753_Click()
If CheckBox753.Caption = Chr$(163) Then
    CheckBox753.Caption = "R"
    globalBoolCheckBox753Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox753.Caption = Chr$(163)
    globalBoolCheckBox753Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox754_Click()
If CheckBox754.Caption = Chr$(163) Then
    CheckBox754.Caption = "R"
    globalBoolCheckBox754Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox754.Caption = Chr$(163)
    globalBoolCheckBox754Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox755_Click()
If CheckBox755.Caption = Chr$(163) Then
    CheckBox755.Caption = "R"
    globalBoolCheckBox755Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox755.Caption = Chr$(163)
    globalBoolCheckBox755Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox756_Click()
If CheckBox756.Caption = Chr$(163) Then
    CheckBox756.Caption = "R"
    globalBoolCheckBox756Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox756.Caption = Chr$(163)
    globalBoolCheckBox756Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox757_Click()
If CheckBox757.Caption = Chr$(163) Then
    CheckBox757.Caption = "R"
    globalBoolCheckBox757Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox757.Caption = Chr$(163)
    globalBoolCheckBox757Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox758_Click()
If CheckBox758.Caption = Chr$(163) Then
    CheckBox758.Caption = "R"
    globalBoolCheckBox758Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox758.Caption = Chr$(163)
    globalBoolCheckBox758Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox759_Click()
If CheckBox759.Caption = Chr$(163) Then
    CheckBox759.Caption = "R"
    globalBoolCheckBox759Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox759.Caption = Chr$(163)
    globalBoolCheckBox759Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox760_Click()
If CheckBox760.Caption = Chr$(163) Then
    CheckBox760.Caption = "R"
    globalBoolCheckBox760Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox760.Caption = Chr$(163)
    globalBoolCheckBox760Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox761_Click()
If CheckBox761.Caption = Chr$(163) Then
    CheckBox761.Caption = "R"
    globalBoolCheckBox761Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox761.Caption = Chr$(163)
    globalBoolCheckBox761Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox762_Click()
If CheckBox762.Caption = Chr$(163) Then
    CheckBox762.Caption = "R"
    globalBoolCheckBox762Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox762.Caption = Chr$(163)
    globalBoolCheckBox762Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox763_Click()
If CheckBox763.Caption = Chr$(163) Then
    CheckBox763.Caption = "R"
    globalBoolCheckBox763Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox763.Caption = Chr$(163)
    globalBoolCheckBox763Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox764_Click()
If CheckBox764.Caption = Chr$(163) Then
    CheckBox764.Caption = "R"
    globalBoolCheckBox764Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox764.Caption = Chr$(163)
    globalBoolCheckBox764Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox765_Click()
If CheckBox765.Caption = Chr$(163) Then
    CheckBox765.Caption = "R"
    globalBoolCheckBox765Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox765.Caption = Chr$(163)
    globalBoolCheckBox765Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox766_Click()
If CheckBox766.Caption = Chr$(163) Then
    CheckBox766.Caption = "R"
    globalBoolCheckBox766Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox766.Caption = Chr$(163)
    globalBoolCheckBox766Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox767_Click()
If CheckBox767.Caption = Chr$(163) Then
    CheckBox767.Caption = "R"
    globalBoolCheckBox767Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox767.Caption = Chr$(163)
    globalBoolCheckBox767Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox768_Click()
If CheckBox768.Caption = Chr$(163) Then
    CheckBox768.Caption = "R"
    globalBoolCheckBox768Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox768.Caption = Chr$(163)
    globalBoolCheckBox768Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox769_Click()
If CheckBox769.Caption = Chr$(163) Then
    CheckBox769.Caption = "R"
    globalBoolCheckBox769Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox769.Caption = Chr$(163)
    globalBoolCheckBox769Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox770_Click()
If CheckBox770.Caption = Chr$(163) Then
    CheckBox770.Caption = "R"
    globalBoolCheckBox770Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox770.Caption = Chr$(163)
    globalBoolCheckBox770Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox771_Click()
If CheckBox771.Caption = Chr$(163) Then
    CheckBox771.Caption = "R"
    globalBoolCheckBox771Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox771.Caption = Chr$(163)
    globalBoolCheckBox771Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox772_Click()
If CheckBox772.Caption = Chr$(163) Then
    CheckBox772.Caption = "R"
    globalBoolCheckBox772Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox772.Caption = Chr$(163)
    globalBoolCheckBox772Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox773_Click()
If CheckBox773.Caption = Chr$(163) Then
    CheckBox773.Caption = "R"
    globalBoolCheckBox773Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox773.Caption = Chr$(163)
    globalBoolCheckBox773Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox774_Click()
If CheckBox774.Caption = Chr$(163) Then
    CheckBox774.Caption = "R"
    globalBoolCheckBox774Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox774.Caption = Chr$(163)
    globalBoolCheckBox774Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox775_Click()
If CheckBox775.Caption = Chr$(163) Then
    CheckBox775.Caption = "R"
    globalBoolCheckBox775Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox775.Caption = Chr$(163)
    globalBoolCheckBox775Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox776_Click()
If CheckBox776.Caption = Chr$(163) Then
    CheckBox776.Caption = "R"
    globalBoolCheckBox776Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox776.Caption = Chr$(163)
    globalBoolCheckBox776Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox777_Click()
If CheckBox777.Caption = Chr$(163) Then
    CheckBox777.Caption = "R"
    globalBoolCheckBox777Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox777.Caption = Chr$(163)
    globalBoolCheckBox777Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox778_Click()
If CheckBox778.Caption = Chr$(163) Then
    CheckBox778.Caption = "R"
    globalBoolCheckBox778Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox778.Caption = Chr$(163)
    globalBoolCheckBox778Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox779_Click()
If CheckBox779.Caption = Chr$(163) Then
    CheckBox779.Caption = "R"
    globalBoolCheckBox779Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox779.Caption = Chr$(163)
    globalBoolCheckBox779Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox780_Click()
If CheckBox780.Caption = Chr$(163) Then
    CheckBox780.Caption = "R"
    globalBoolCheckBox780Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox780.Caption = Chr$(163)
    globalBoolCheckBox780Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox781_Click()
If CheckBox781.Caption = Chr$(163) Then
    CheckBox781.Caption = "R"
    globalBoolCheckBox781Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox781.Caption = Chr$(163)
    globalBoolCheckBox781Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox782_Click()
If CheckBox782.Caption = Chr$(163) Then
    CheckBox782.Caption = "R"
    globalBoolCheckBox782Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox782.Caption = Chr$(163)
    globalBoolCheckBox782Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox783_Click()
If CheckBox783.Caption = Chr$(163) Then
    CheckBox783.Caption = "R"
    globalBoolCheckBox783Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox783.Caption = Chr$(163)
    globalBoolCheckBox783Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox784_Click()
If CheckBox784.Caption = Chr$(163) Then
    CheckBox784.Caption = "R"
    globalBoolCheckBox784Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox784.Caption = Chr$(163)
    globalBoolCheckBox784Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox785_Click()
If CheckBox785.Caption = Chr$(163) Then
    CheckBox785.Caption = "R"
    globalBoolCheckBox785Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox785.Caption = Chr$(163)
    globalBoolCheckBox785Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox786_Click()
If CheckBox786.Caption = Chr$(163) Then
    CheckBox786.Caption = "R"
    globalBoolCheckBox786Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox786.Caption = Chr$(163)
    globalBoolCheckBox786Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox787_Click()
If CheckBox787.Caption = Chr$(163) Then
    CheckBox787.Caption = "R"
    globalBoolCheckBox787Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox787.Caption = Chr$(163)
    globalBoolCheckBox787Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox788_Click()
If CheckBox788.Caption = Chr$(163) Then
    CheckBox788.Caption = "R"
    globalBoolCheckBox788Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox788.Caption = Chr$(163)
    globalBoolCheckBox788Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox789_Click()
If CheckBox789.Caption = Chr$(163) Then
    CheckBox789.Caption = "R"
    globalBoolCheckBox789Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox789.Caption = Chr$(163)
    globalBoolCheckBox789Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox790_Click()
If CheckBox790.Caption = Chr$(163) Then
    CheckBox790.Caption = "R"
    globalBoolCheckBox790Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox790.Caption = Chr$(163)
    globalBoolCheckBox790Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox791_Click()
If CheckBox791.Caption = Chr$(163) Then
    CheckBox791.Caption = "R"
    globalBoolCheckBox791Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox791.Caption = Chr$(163)
    globalBoolCheckBox791Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox792_Click()
If CheckBox792.Caption = Chr$(163) Then
    CheckBox792.Caption = "R"
    globalBoolCheckBox792Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox792.Caption = Chr$(163)
    globalBoolCheckBox792Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox793_Click()
If CheckBox793.Caption = Chr$(163) Then
    CheckBox793.Caption = "R"
    globalBoolCheckBox793Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox793.Caption = Chr$(163)
    globalBoolCheckBox793Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox794_Click()
If CheckBox794.Caption = Chr$(163) Then
    CheckBox794.Caption = "R"
    globalBoolCheckBox794Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox794.Caption = Chr$(163)
    globalBoolCheckBox794Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox795_Click()
If CheckBox795.Caption = Chr$(163) Then
    CheckBox795.Caption = "R"
    globalBoolCheckBox795Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox795.Caption = Chr$(163)
    globalBoolCheckBox795Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox796_Click()
If CheckBox796.Caption = Chr$(163) Then
    CheckBox796.Caption = "R"
    globalBoolCheckBox796Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox796.Caption = Chr$(163)
    globalBoolCheckBox796Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox797_Click()
If CheckBox797.Caption = Chr$(163) Then
    CheckBox797.Caption = "R"
    globalBoolCheckBox797Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox797.Caption = Chr$(163)
    globalBoolCheckBox797Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox798_Click()
If CheckBox798.Caption = Chr$(163) Then
    CheckBox798.Caption = "R"
    globalBoolCheckBox798Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox798.Caption = Chr$(163)
    globalBoolCheckBox798Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox799_Click()
If CheckBox799.Caption = Chr$(163) Then
    CheckBox799.Caption = "R"
    globalBoolCheckBox799Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox799.Caption = Chr$(163)
    globalBoolCheckBox799Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox800_Click()
If CheckBox800.Caption = Chr$(163) Then
    CheckBox800.Caption = "R"
    globalBoolCheckBox800Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox800.Caption = Chr$(163)
    globalBoolCheckBox800Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox801_Click()
If CheckBox801.Caption = Chr$(163) Then
    CheckBox801.Caption = "R"
    globalBoolCheckBox801Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox801.Caption = Chr$(163)
    globalBoolCheckBox801Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox802_Click()
If CheckBox802.Caption = Chr$(163) Then
    CheckBox802.Caption = "R"
    globalBoolCheckBox802Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox802.Caption = Chr$(163)
    globalBoolCheckBox802Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox803_Click()
If CheckBox803.Caption = Chr$(163) Then
    CheckBox803.Caption = "R"
    globalBoolCheckBox803Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox803.Caption = Chr$(163)
    globalBoolCheckBox803Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox804_Click()
If CheckBox804.Caption = Chr$(163) Then
    CheckBox804.Caption = "R"
    globalBoolCheckBox804Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox804.Caption = Chr$(163)
    globalBoolCheckBox804Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox805_Click()
If CheckBox805.Caption = Chr$(163) Then
    CheckBox805.Caption = "R"
    globalBoolCheckBox805Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox805.Caption = Chr$(163)
    globalBoolCheckBox805Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox806_Click()
If CheckBox806.Caption = Chr$(163) Then
    CheckBox806.Caption = "R"
    globalBoolCheckBox806Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox806.Caption = Chr$(163)
    globalBoolCheckBox806Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox807_Click()
If CheckBox807.Caption = Chr$(163) Then
    CheckBox807.Caption = "R"
    globalBoolCheckBox807Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox807.Caption = Chr$(163)
    globalBoolCheckBox807Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox808_Click()
If CheckBox808.Caption = Chr$(163) Then
    CheckBox808.Caption = "R"
    globalBoolCheckBox808Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox808.Caption = Chr$(163)
    globalBoolCheckBox808Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox809_Click()
If CheckBox809.Caption = Chr$(163) Then
    CheckBox809.Caption = "R"
    globalBoolCheckBox809Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox809.Caption = Chr$(163)
    globalBoolCheckBox809Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox810_Click()
If CheckBox810.Caption = Chr$(163) Then
    CheckBox810.Caption = "R"
    globalBoolCheckBox810Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox810.Caption = Chr$(163)
    globalBoolCheckBox810Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox811_Click()
If CheckBox811.Caption = Chr$(163) Then
    CheckBox811.Caption = "R"
    globalBoolCheckBox811Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox811.Caption = Chr$(163)
    globalBoolCheckBox811Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox812_Click()
If CheckBox812.Caption = Chr$(163) Then
    CheckBox812.Caption = "R"
    globalBoolCheckBox812Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox812.Caption = Chr$(163)
    globalBoolCheckBox812Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox813_Click()
If CheckBox813.Caption = Chr$(163) Then
    CheckBox813.Caption = "R"
    globalBoolCheckBox813Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox813.Caption = Chr$(163)
    globalBoolCheckBox813Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox814_Click()
If CheckBox814.Caption = Chr$(163) Then
    CheckBox814.Caption = "R"
    globalBoolCheckBox814Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox814.Caption = Chr$(163)
    globalBoolCheckBox814Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox815_Click()
If CheckBox815.Caption = Chr$(163) Then
    CheckBox815.Caption = "R"
    globalBoolCheckBox815Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox815.Caption = Chr$(163)
    globalBoolCheckBox815Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox816_Click()
If CheckBox816.Caption = Chr$(163) Then
    CheckBox816.Caption = "R"
    globalBoolCheckBox816Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox816.Caption = Chr$(163)
    globalBoolCheckBox816Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox817_Click()
If CheckBox817.Caption = Chr$(163) Then
    CheckBox817.Caption = "R"
    globalBoolCheckBox817Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox817.Caption = Chr$(163)
    globalBoolCheckBox817Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox818_Click()
If CheckBox818.Caption = Chr$(163) Then
    CheckBox818.Caption = "R"
    globalBoolCheckBox818Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox818.Caption = Chr$(163)
    globalBoolCheckBox818Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox819_Click()
If CheckBox819.Caption = Chr$(163) Then
    CheckBox819.Caption = "R"
    globalBoolCheckBox819Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox819.Caption = Chr$(163)
    globalBoolCheckBox819Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox820_Click()
If CheckBox820.Caption = Chr$(163) Then
    CheckBox820.Caption = "R"
    globalBoolCheckBox820Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox820.Caption = Chr$(163)
    globalBoolCheckBox820Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox821_Click()
If CheckBox821.Caption = Chr$(163) Then
    CheckBox821.Caption = "R"
    globalBoolCheckBox821Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox821.Caption = Chr$(163)
    globalBoolCheckBox821Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox822_Click()
If CheckBox822.Caption = Chr$(163) Then
    CheckBox822.Caption = "R"
    globalBoolCheckBox822Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox822.Caption = Chr$(163)
    globalBoolCheckBox822Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox823_Click()
If CheckBox823.Caption = Chr$(163) Then
    CheckBox823.Caption = "R"
    globalBoolCheckBox823Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox823.Caption = Chr$(163)
    globalBoolCheckBox823Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox824_Click()
If CheckBox824.Caption = Chr$(163) Then
    CheckBox824.Caption = "R"
    globalBoolCheckBox824Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox824.Caption = Chr$(163)
    globalBoolCheckBox824Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox825_Click()
If CheckBox825.Caption = Chr$(163) Then
    CheckBox825.Caption = "R"
    globalBoolCheckBox825Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox825.Caption = Chr$(163)
    globalBoolCheckBox825Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox826_Click()
If CheckBox826.Caption = Chr$(163) Then
    CheckBox826.Caption = "R"
    globalBoolCheckBox826Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox826.Caption = Chr$(163)
    globalBoolCheckBox826Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox827_Click()
If CheckBox827.Caption = Chr$(163) Then
    CheckBox827.Caption = "R"
    globalBoolCheckBox827Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox827.Caption = Chr$(163)
    globalBoolCheckBox827Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox828_Click()
If CheckBox828.Caption = Chr$(163) Then
    CheckBox828.Caption = "R"
    globalBoolCheckBox828Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox828.Caption = Chr$(163)
    globalBoolCheckBox828Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox829_Click()
If CheckBox829.Caption = Chr$(163) Then
    CheckBox829.Caption = "R"
    globalBoolCheckBox829Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox829.Caption = Chr$(163)
    globalBoolCheckBox829Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox830_Click()
If CheckBox830.Caption = Chr$(163) Then
    CheckBox830.Caption = "R"
    globalBoolCheckBox830Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox830.Caption = Chr$(163)
    globalBoolCheckBox830Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox831_Click()
If CheckBox831.Caption = Chr$(163) Then
    CheckBox831.Caption = "R"
    globalBoolCheckBox831Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox831.Caption = Chr$(163)
    globalBoolCheckBox831Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox832_Click()
If CheckBox832.Caption = Chr$(163) Then
    CheckBox832.Caption = "R"
    globalBoolCheckBox832Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox832.Caption = Chr$(163)
    globalBoolCheckBox832Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox833_Click()
If CheckBox833.Caption = Chr$(163) Then
    CheckBox833.Caption = "R"
    globalBoolCheckBox833Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox833.Caption = Chr$(163)
    globalBoolCheckBox833Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox834_Click()
If CheckBox834.Caption = Chr$(163) Then
    CheckBox834.Caption = "R"
    globalBoolCheckBox834Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox834.Caption = Chr$(163)
    globalBoolCheckBox834Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox835_Click()
If CheckBox835.Caption = Chr$(163) Then
    CheckBox835.Caption = "R"
    globalBoolCheckBox835Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox835.Caption = Chr$(163)
    globalBoolCheckBox835Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox836_Click()
If CheckBox836.Caption = Chr$(163) Then
    CheckBox836.Caption = "R"
    globalBoolCheckBox836Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox836.Caption = Chr$(163)
    globalBoolCheckBox836Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox837_Click()
If CheckBox837.Caption = Chr$(163) Then
    CheckBox837.Caption = "R"
    globalBoolCheckBox837Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox837.Caption = Chr$(163)
    globalBoolCheckBox837Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox838_Click()
If CheckBox838.Caption = Chr$(163) Then
    CheckBox838.Caption = "R"
    globalBoolCheckBox838Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox838.Caption = Chr$(163)
    globalBoolCheckBox838Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox839_Click()
If CheckBox839.Caption = Chr$(163) Then
    CheckBox839.Caption = "R"
    globalBoolCheckBox839Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox839.Caption = Chr$(163)
    globalBoolCheckBox839Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox840_Click()
If CheckBox840.Caption = Chr$(163) Then
    CheckBox840.Caption = "R"
    globalBoolCheckBox840Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox840.Caption = Chr$(163)
    globalBoolCheckBox840Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox841_Click()
If CheckBox841.Caption = Chr$(163) Then
    CheckBox841.Caption = "R"
    globalBoolCheckBox841Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox841.Caption = Chr$(163)
    globalBoolCheckBox841Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox842_Click()
If CheckBox842.Caption = Chr$(163) Then
    CheckBox842.Caption = "R"
    globalBoolCheckBox842Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox842.Caption = Chr$(163)
    globalBoolCheckBox842Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox843_Click()
If CheckBox843.Caption = Chr$(163) Then
    CheckBox843.Caption = "R"
    globalBoolCheckBox843Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox843.Caption = Chr$(163)
    globalBoolCheckBox843Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox844_Click()
If CheckBox844.Caption = Chr$(163) Then
    CheckBox844.Caption = "R"
    globalBoolCheckBox844Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox844.Caption = Chr$(163)
    globalBoolCheckBox844Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox845_Click()
If CheckBox845.Caption = Chr$(163) Then
    CheckBox845.Caption = "R"
    globalBoolCheckBox845Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox845.Caption = Chr$(163)
    globalBoolCheckBox845Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox846_Click()
If CheckBox846.Caption = Chr$(163) Then
    CheckBox846.Caption = "R"
    globalBoolCheckBox846Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox846.Caption = Chr$(163)
    globalBoolCheckBox846Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox847_Click()
If CheckBox847.Caption = Chr$(163) Then
    CheckBox847.Caption = "R"
    globalBoolCheckBox847Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox847.Caption = Chr$(163)
    globalBoolCheckBox847Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox848_Click()
If CheckBox848.Caption = Chr$(163) Then
    CheckBox848.Caption = "R"
    globalBoolCheckBox848Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox848.Caption = Chr$(163)
    globalBoolCheckBox848Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox849_Click()
If CheckBox849.Caption = Chr$(163) Then
    CheckBox849.Caption = "R"
    globalBoolCheckBox849Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox849.Caption = Chr$(163)
    globalBoolCheckBox849Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox850_Click()
If CheckBox850.Caption = Chr$(163) Then
    CheckBox850.Caption = "R"
    globalBoolCheckBox850Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox850.Caption = Chr$(163)
    globalBoolCheckBox850Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox851_Click()
If CheckBox851.Caption = Chr$(163) Then
    CheckBox851.Caption = "R"
    globalBoolCheckBox851Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox851.Caption = Chr$(163)
    globalBoolCheckBox851Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox852_Click()
If CheckBox852.Caption = Chr$(163) Then
    CheckBox852.Caption = "R"
    globalBoolCheckBox852Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox852.Caption = Chr$(163)
    globalBoolCheckBox852Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox853_Click()
If CheckBox853.Caption = Chr$(163) Then
    CheckBox853.Caption = "R"
    globalBoolCheckBox853Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox853.Caption = Chr$(163)
    globalBoolCheckBox853Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox854_Click()
If CheckBox854.Caption = Chr$(163) Then
    CheckBox854.Caption = "R"
    globalBoolCheckBox854Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox854.Caption = Chr$(163)
    globalBoolCheckBox854Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox855_Click()
If CheckBox855.Caption = Chr$(163) Then
    CheckBox855.Caption = "R"
    globalBoolCheckBox855Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox855.Caption = Chr$(163)
    globalBoolCheckBox855Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox856_Click()
If CheckBox856.Caption = Chr$(163) Then
    CheckBox856.Caption = "R"
    globalBoolCheckBox856Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox856.Caption = Chr$(163)
    globalBoolCheckBox856Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox857_Click()
If CheckBox857.Caption = Chr$(163) Then
    CheckBox857.Caption = "R"
    globalBoolCheckBox857Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox857.Caption = Chr$(163)
    globalBoolCheckBox857Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox858_Click()
If CheckBox858.Caption = Chr$(163) Then
    CheckBox858.Caption = "R"
    globalBoolCheckBox858Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox858.Caption = Chr$(163)
    globalBoolCheckBox858Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox859_Click()
If CheckBox859.Caption = Chr$(163) Then
    CheckBox859.Caption = "R"
    globalBoolCheckBox859Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox859.Caption = Chr$(163)
    globalBoolCheckBox859Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox860_Click()
If CheckBox860.Caption = Chr$(163) Then
    CheckBox860.Caption = "R"
    globalBoolCheckBox860Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox860.Caption = Chr$(163)
    globalBoolCheckBox860Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox861_Click()
If CheckBox861.Caption = Chr$(163) Then
    CheckBox861.Caption = "R"
    globalBoolCheckBox861Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox861.Caption = Chr$(163)
    globalBoolCheckBox861Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox862_Click()
If CheckBox862.Caption = Chr$(163) Then
    CheckBox862.Caption = "R"
    globalBoolCheckBox862Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox862.Caption = Chr$(163)
    globalBoolCheckBox862Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox863_Click()
If CheckBox863.Caption = Chr$(163) Then
    CheckBox863.Caption = "R"
    globalBoolCheckBox863Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox863.Caption = Chr$(163)
    globalBoolCheckBox863Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox864_Click()
If CheckBox864.Caption = Chr$(163) Then
    CheckBox864.Caption = "R"
    globalBoolCheckBox864Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox864.Caption = Chr$(163)
    globalBoolCheckBox864Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox865_Click()
If CheckBox865.Caption = Chr$(163) Then
    CheckBox865.Caption = "R"
    globalBoolCheckBox865Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox865.Caption = Chr$(163)
    globalBoolCheckBox865Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox866_Click()
If CheckBox866.Caption = Chr$(163) Then
    CheckBox866.Caption = "R"
    globalBoolCheckBox866Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox866.Caption = Chr$(163)
    globalBoolCheckBox866Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox867_Click()
If CheckBox867.Caption = Chr$(163) Then
    CheckBox867.Caption = "R"
    globalBoolCheckBox867Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox867.Caption = Chr$(163)
    globalBoolCheckBox867Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox868_Click()
If CheckBox868.Caption = Chr$(163) Then
    CheckBox868.Caption = "R"
    globalBoolCheckBox868Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox868.Caption = Chr$(163)
    globalBoolCheckBox868Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox869_Click()
If CheckBox869.Caption = Chr$(163) Then
    CheckBox869.Caption = "R"
    globalBoolCheckBox869Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox869.Caption = Chr$(163)
    globalBoolCheckBox869Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox870_Click()
If CheckBox870.Caption = Chr$(163) Then
    CheckBox870.Caption = "R"
    globalBoolCheckBox870Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox870.Caption = Chr$(163)
    globalBoolCheckBox870Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox871_Click()
If CheckBox871.Caption = Chr$(163) Then
    CheckBox871.Caption = "R"
    globalBoolCheckBox871Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox871.Caption = Chr$(163)
    globalBoolCheckBox871Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox872_Click()
If CheckBox872.Caption = Chr$(163) Then
    CheckBox872.Caption = "R"
    globalBoolCheckBox872Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox872.Caption = Chr$(163)
    globalBoolCheckBox872Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox873_Click()
If CheckBox873.Caption = Chr$(163) Then
    CheckBox873.Caption = "R"
    globalBoolCheckBox873Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox873.Caption = Chr$(163)
    globalBoolCheckBox873Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox874_Click()
If CheckBox874.Caption = Chr$(163) Then
    CheckBox874.Caption = "R"
    globalBoolCheckBox874Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox874.Caption = Chr$(163)
    globalBoolCheckBox874Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox875_Click()
If CheckBox875.Caption = Chr$(163) Then
    CheckBox875.Caption = "R"
    globalBoolCheckBox875Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox875.Caption = Chr$(163)
    globalBoolCheckBox875Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox876_Click()
If CheckBox876.Caption = Chr$(163) Then
    CheckBox876.Caption = "R"
    globalBoolCheckBox876Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox876.Caption = Chr$(163)
    globalBoolCheckBox876Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox877_Click()
If CheckBox877.Caption = Chr$(163) Then
    CheckBox877.Caption = "R"
    globalBoolCheckBox877Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox877.Caption = Chr$(163)
    globalBoolCheckBox877Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox878_Click()
If CheckBox878.Caption = Chr$(163) Then
    CheckBox878.Caption = "R"
    globalBoolCheckBox878Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox878.Caption = Chr$(163)
    globalBoolCheckBox878Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox879_Click()
If CheckBox879.Caption = Chr$(163) Then
    CheckBox879.Caption = "R"
    globalBoolCheckBox879Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox879.Caption = Chr$(163)
    globalBoolCheckBox879Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox880_Click()
If CheckBox880.Caption = Chr$(163) Then
    CheckBox880.Caption = "R"
    globalBoolCheckBox880Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox880.Caption = Chr$(163)
    globalBoolCheckBox880Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox881_Click()
If CheckBox881.Caption = Chr$(163) Then
    CheckBox881.Caption = "R"
    globalBoolCheckBox881Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox881.Caption = Chr$(163)
    globalBoolCheckBox881Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox882_Click()
If CheckBox882.Caption = Chr$(163) Then
    CheckBox882.Caption = "R"
    globalBoolCheckBox882Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox882.Caption = Chr$(163)
    globalBoolCheckBox882Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox883_Click()
If CheckBox883.Caption = Chr$(163) Then
    CheckBox883.Caption = "R"
    globalBoolCheckBox883Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox883.Caption = Chr$(163)
    globalBoolCheckBox883Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox884_Click()
If CheckBox884.Caption = Chr$(163) Then
    CheckBox884.Caption = "R"
    globalBoolCheckBox884Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox884.Caption = Chr$(163)
    globalBoolCheckBox884Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox885_Click()
If CheckBox885.Caption = Chr$(163) Then
    CheckBox885.Caption = "R"
    globalBoolCheckBox885Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox885.Caption = Chr$(163)
    globalBoolCheckBox885Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox886_Click()
If CheckBox886.Caption = Chr$(163) Then
    CheckBox886.Caption = "R"
    globalBoolCheckBox886Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox886.Caption = Chr$(163)
    globalBoolCheckBox886Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox887_Click()
If CheckBox887.Caption = Chr$(163) Then
    CheckBox887.Caption = "R"
    globalBoolCheckBox887Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox887.Caption = Chr$(163)
    globalBoolCheckBox887Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox888_Click()
If CheckBox888.Caption = Chr$(163) Then
    CheckBox888.Caption = "R"
    globalBoolCheckBox888Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox888.Caption = Chr$(163)
    globalBoolCheckBox888Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox889_Click()
If CheckBox889.Caption = Chr$(163) Then
    CheckBox889.Caption = "R"
    globalBoolCheckBox889Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox889.Caption = Chr$(163)
    globalBoolCheckBox889Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox890_Click()
If CheckBox890.Caption = Chr$(163) Then
    CheckBox890.Caption = "R"
    globalBoolCheckBox890Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox890.Caption = Chr$(163)
    globalBoolCheckBox890Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox891_Click()
If CheckBox891.Caption = Chr$(163) Then
    CheckBox891.Caption = "R"
    globalBoolCheckBox891Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox891.Caption = Chr$(163)
    globalBoolCheckBox891Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox892_Click()
If CheckBox892.Caption = Chr$(163) Then
    CheckBox892.Caption = "R"
    globalBoolCheckBox892Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox892.Caption = Chr$(163)
    globalBoolCheckBox892Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox893_Click()
If CheckBox893.Caption = Chr$(163) Then
    CheckBox893.Caption = "R"
    globalBoolCheckBox893Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox893.Caption = Chr$(163)
    globalBoolCheckBox893Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox894_Click()
If CheckBox894.Caption = Chr$(163) Then
    CheckBox894.Caption = "R"
    globalBoolCheckBox894Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox894.Caption = Chr$(163)
    globalBoolCheckBox894Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox895_Click()
If CheckBox895.Caption = Chr$(163) Then
    CheckBox895.Caption = "R"
    globalBoolCheckBox895Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox895.Caption = Chr$(163)
    globalBoolCheckBox895Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox896_Click()
If CheckBox896.Caption = Chr$(163) Then
    CheckBox896.Caption = "R"
    globalBoolCheckBox896Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox896.Caption = Chr$(163)
    globalBoolCheckBox896Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox897_Click()
If CheckBox897.Caption = Chr$(163) Then
    CheckBox897.Caption = "R"
    globalBoolCheckBox897Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox897.Caption = Chr$(163)
    globalBoolCheckBox897Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox898_Click()
If CheckBox898.Caption = Chr$(163) Then
    CheckBox898.Caption = "R"
    globalBoolCheckBox898Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox898.Caption = Chr$(163)
    globalBoolCheckBox898Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox899_Click()
If CheckBox899.Caption = Chr$(163) Then
    CheckBox899.Caption = "R"
    globalBoolCheckBox899Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox899.Caption = Chr$(163)
    globalBoolCheckBox899Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox900_Click()
If CheckBox900.Caption = Chr$(163) Then
    CheckBox900.Caption = "R"
    globalBoolCheckBox900Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox900.Caption = Chr$(163)
    globalBoolCheckBox900Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox901_Click()
If CheckBox901.Caption = Chr$(163) Then
    CheckBox901.Caption = "R"
    globalBoolCheckBox901Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox901.Caption = Chr$(163)
    globalBoolCheckBox901Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox902_Click()
If CheckBox902.Caption = Chr$(163) Then
    CheckBox902.Caption = "R"
    globalBoolCheckBox902Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox902.Caption = Chr$(163)
    globalBoolCheckBox902Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox903_Click()
If CheckBox903.Caption = Chr$(163) Then
    CheckBox903.Caption = "R"
    globalBoolCheckBox903Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox903.Caption = Chr$(163)
    globalBoolCheckBox903Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox904_Click()
If CheckBox904.Caption = Chr$(163) Then
    CheckBox904.Caption = "R"
    globalBoolCheckBox904Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox904.Caption = Chr$(163)
    globalBoolCheckBox904Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox905_Click()
If CheckBox905.Caption = Chr$(163) Then
    CheckBox905.Caption = "R"
    globalBoolCheckBox905Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox905.Caption = Chr$(163)
    globalBoolCheckBox905Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox906_Click()
If CheckBox906.Caption = Chr$(163) Then
    CheckBox906.Caption = "R"
    globalBoolCheckBox906Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox906.Caption = Chr$(163)
    globalBoolCheckBox906Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox907_Click()
If CheckBox907.Caption = Chr$(163) Then
    CheckBox907.Caption = "R"
    globalBoolCheckBox907Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox907.Caption = Chr$(163)
    globalBoolCheckBox907Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox908_Click()
If CheckBox908.Caption = Chr$(163) Then
    CheckBox908.Caption = "R"
    globalBoolCheckBox908Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox908.Caption = Chr$(163)
    globalBoolCheckBox908Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox909_Click()
If CheckBox909.Caption = Chr$(163) Then
    CheckBox909.Caption = "R"
    globalBoolCheckBox909Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox909.Caption = Chr$(163)
    globalBoolCheckBox909Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox910_Click()
If CheckBox910.Caption = Chr$(163) Then
    CheckBox910.Caption = "R"
    globalBoolCheckBox910Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox910.Caption = Chr$(163)
    globalBoolCheckBox910Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox911_Click()
If CheckBox911.Caption = Chr$(163) Then
    CheckBox911.Caption = "R"
    globalBoolCheckBox911Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox911.Caption = Chr$(163)
    globalBoolCheckBox911Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox912_Click()
If CheckBox912.Caption = Chr$(163) Then
    CheckBox912.Caption = "R"
    globalBoolCheckBox912Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox912.Caption = Chr$(163)
    globalBoolCheckBox912Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox913_Click()
If CheckBox913.Caption = Chr$(163) Then
    CheckBox913.Caption = "R"
    globalBoolCheckBox913Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox913.Caption = Chr$(163)
    globalBoolCheckBox913Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox914_Click()
If CheckBox914.Caption = Chr$(163) Then
    CheckBox914.Caption = "R"
    globalBoolCheckBox914Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox914.Caption = Chr$(163)
    globalBoolCheckBox914Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox915_Click()
If CheckBox915.Caption = Chr$(163) Then
    CheckBox915.Caption = "R"
    globalBoolCheckBox915Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox915.Caption = Chr$(163)
    globalBoolCheckBox915Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox916_Click()
If CheckBox916.Caption = Chr$(163) Then
    CheckBox916.Caption = "R"
    globalBoolCheckBox916Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox916.Caption = Chr$(163)
    globalBoolCheckBox916Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox917_Click()
If CheckBox917.Caption = Chr$(163) Then
    CheckBox917.Caption = "R"
    globalBoolCheckBox917Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox917.Caption = Chr$(163)
    globalBoolCheckBox917Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox918_Click()
If CheckBox918.Caption = Chr$(163) Then
    CheckBox918.Caption = "R"
    globalBoolCheckBox918Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox918.Caption = Chr$(163)
    globalBoolCheckBox918Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox919_Click()
If CheckBox919.Caption = Chr$(163) Then
    CheckBox919.Caption = "R"
    globalBoolCheckBox919Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox919.Caption = Chr$(163)
    globalBoolCheckBox919Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox920_Click()
If CheckBox920.Caption = Chr$(163) Then
    CheckBox920.Caption = "R"
    globalBoolCheckBox920Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox920.Caption = Chr$(163)
    globalBoolCheckBox920Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox921_Click()
If CheckBox921.Caption = Chr$(163) Then
    CheckBox921.Caption = "R"
    globalBoolCheckBox921Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox921.Caption = Chr$(163)
    globalBoolCheckBox921Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox922_Click()
If CheckBox922.Caption = Chr$(163) Then
    CheckBox922.Caption = "R"
    globalBoolCheckBox922Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox922.Caption = Chr$(163)
    globalBoolCheckBox922Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox923_Click()
If CheckBox923.Caption = Chr$(163) Then
    CheckBox923.Caption = "R"
    globalBoolCheckBox923Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox923.Caption = Chr$(163)
    globalBoolCheckBox923Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox924_Click()
If CheckBox924.Caption = Chr$(163) Then
    CheckBox924.Caption = "R"
    globalBoolCheckBox924Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox924.Caption = Chr$(163)
    globalBoolCheckBox924Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox925_Click()
If CheckBox925.Caption = Chr$(163) Then
    CheckBox925.Caption = "R"
    globalBoolCheckBox925Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox925.Caption = Chr$(163)
    globalBoolCheckBox925Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox926_Click()
If CheckBox926.Caption = Chr$(163) Then
    CheckBox926.Caption = "R"
    globalBoolCheckBox926Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox926.Caption = Chr$(163)
    globalBoolCheckBox926Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox927_Click()
If CheckBox927.Caption = Chr$(163) Then
    CheckBox927.Caption = "R"
    globalBoolCheckBox927Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox927.Caption = Chr$(163)
    globalBoolCheckBox927Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox928_Click()
If CheckBox928.Caption = Chr$(163) Then
    CheckBox928.Caption = "R"
    globalBoolCheckBox928Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox928.Caption = Chr$(163)
    globalBoolCheckBox928Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox929_Click()
If CheckBox929.Caption = Chr$(163) Then
    CheckBox929.Caption = "R"
    globalBoolCheckBox929Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox929.Caption = Chr$(163)
    globalBoolCheckBox929Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox930_Click()
If CheckBox930.Caption = Chr$(163) Then
    CheckBox930.Caption = "R"
    globalBoolCheckBox930Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox930.Caption = Chr$(163)
    globalBoolCheckBox930Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox931_Click()
If CheckBox931.Caption = Chr$(163) Then
    CheckBox931.Caption = "R"
    globalBoolCheckBox931Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox931.Caption = Chr$(163)
    globalBoolCheckBox931Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox932_Click()
If CheckBox932.Caption = Chr$(163) Then
    CheckBox932.Caption = "R"
    globalBoolCheckBox932Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox932.Caption = Chr$(163)
    globalBoolCheckBox932Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox933_Click()
If CheckBox933.Caption = Chr$(163) Then
    CheckBox933.Caption = "R"
    globalBoolCheckBox933Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox933.Caption = Chr$(163)
    globalBoolCheckBox933Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox934_Click()
If CheckBox934.Caption = Chr$(163) Then
    CheckBox934.Caption = "R"
    globalBoolCheckBox934Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox934.Caption = Chr$(163)
    globalBoolCheckBox934Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox935_Click()
If CheckBox935.Caption = Chr$(163) Then
    CheckBox935.Caption = "R"
    globalBoolCheckBox935Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox935.Caption = Chr$(163)
    globalBoolCheckBox935Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox936_Click()
If CheckBox936.Caption = Chr$(163) Then
    CheckBox936.Caption = "R"
    globalBoolCheckBox936Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox936.Caption = Chr$(163)
    globalBoolCheckBox936Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox937_Click()
If CheckBox937.Caption = Chr$(163) Then
    CheckBox937.Caption = "R"
    globalBoolCheckBox937Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox937.Caption = Chr$(163)
    globalBoolCheckBox937Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox938_Click()
If CheckBox938.Caption = Chr$(163) Then
    CheckBox938.Caption = "R"
    globalBoolCheckBox938Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox938.Caption = Chr$(163)
    globalBoolCheckBox938Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox939_Click()
If CheckBox939.Caption = Chr$(163) Then
    CheckBox939.Caption = "R"
    globalBoolCheckBox939Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox939.Caption = Chr$(163)
    globalBoolCheckBox939Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox940_Click()
If CheckBox940.Caption = Chr$(163) Then
    CheckBox940.Caption = "R"
    globalBoolCheckBox940Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox940.Caption = Chr$(163)
    globalBoolCheckBox940Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox941_Click()
If CheckBox941.Caption = Chr$(163) Then
    CheckBox941.Caption = "R"
    globalBoolCheckBox941Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox941.Caption = Chr$(163)
    globalBoolCheckBox941Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox942_Click()
If CheckBox942.Caption = Chr$(163) Then
    CheckBox942.Caption = "R"
    globalBoolCheckBox942Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox942.Caption = Chr$(163)
    globalBoolCheckBox942Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox943_Click()
If CheckBox943.Caption = Chr$(163) Then
    CheckBox943.Caption = "R"
    globalBoolCheckBox943Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox943.Caption = Chr$(163)
    globalBoolCheckBox943Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox944_Click()
If CheckBox944.Caption = Chr$(163) Then
    CheckBox944.Caption = "R"
    globalBoolCheckBox944Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox944.Caption = Chr$(163)
    globalBoolCheckBox944Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox945_Click()
If CheckBox945.Caption = Chr$(163) Then
    CheckBox945.Caption = "R"
    globalBoolCheckBox945Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox945.Caption = Chr$(163)
    globalBoolCheckBox945Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox946_Click()
If CheckBox946.Caption = Chr$(163) Then
    CheckBox946.Caption = "R"
    globalBoolCheckBox946Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox946.Caption = Chr$(163)
    globalBoolCheckBox946Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox947_Click()
If CheckBox947.Caption = Chr$(163) Then
    CheckBox947.Caption = "R"
    globalBoolCheckBox947Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox947.Caption = Chr$(163)
    globalBoolCheckBox947Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox948_Click()
If CheckBox948.Caption = Chr$(163) Then
    CheckBox948.Caption = "R"
    globalBoolCheckBox948Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox948.Caption = Chr$(163)
    globalBoolCheckBox948Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox949_Click()
If CheckBox949.Caption = Chr$(163) Then
    CheckBox949.Caption = "R"
    globalBoolCheckBox949Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox949.Caption = Chr$(163)
    globalBoolCheckBox949Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox950_Click()
If CheckBox950.Caption = Chr$(163) Then
    CheckBox950.Caption = "R"
    globalBoolCheckBox950Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox950.Caption = Chr$(163)
    globalBoolCheckBox950Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox951_Click()
If CheckBox951.Caption = Chr$(163) Then
    CheckBox951.Caption = "R"
    globalBoolCheckBox951Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox951.Caption = Chr$(163)
    globalBoolCheckBox951Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox952_Click()
If CheckBox952.Caption = Chr$(163) Then
    CheckBox952.Caption = "R"
    globalBoolCheckBox952Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox952.Caption = Chr$(163)
    globalBoolCheckBox952Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox953_Click()
If CheckBox953.Caption = Chr$(163) Then
    CheckBox953.Caption = "R"
    globalBoolCheckBox953Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox953.Caption = Chr$(163)
    globalBoolCheckBox953Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox954_Click()
If CheckBox954.Caption = Chr$(163) Then
    CheckBox954.Caption = "R"
    globalBoolCheckBox954Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox954.Caption = Chr$(163)
    globalBoolCheckBox954Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox955_Click()
If CheckBox955.Caption = Chr$(163) Then
    CheckBox955.Caption = "R"
    globalBoolCheckBox955Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox955.Caption = Chr$(163)
    globalBoolCheckBox955Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox956_Click()
If CheckBox956.Caption = Chr$(163) Then
    CheckBox956.Caption = "R"
    globalBoolCheckBox956Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox956.Caption = Chr$(163)
    globalBoolCheckBox956Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox957_Click()
If CheckBox957.Caption = Chr$(163) Then
    CheckBox957.Caption = "R"
    globalBoolCheckBox957Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox957.Caption = Chr$(163)
    globalBoolCheckBox957Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox958_Click()
If CheckBox958.Caption = Chr$(163) Then
    CheckBox958.Caption = "R"
    globalBoolCheckBox958Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox958.Caption = Chr$(163)
    globalBoolCheckBox958Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox959_Click()
If CheckBox959.Caption = Chr$(163) Then
    CheckBox959.Caption = "R"
    globalBoolCheckBox959Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox959.Caption = Chr$(163)
    globalBoolCheckBox959Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox960_Click()
If CheckBox960.Caption = Chr$(163) Then
    CheckBox960.Caption = "R"
    globalBoolCheckBox960Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox960.Caption = Chr$(163)
    globalBoolCheckBox960Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox961_Click()
If CheckBox961.Caption = Chr$(163) Then
    CheckBox961.Caption = "R"
    globalBoolCheckBox961Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox961.Caption = Chr$(163)
    globalBoolCheckBox961Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox962_Click()
If CheckBox962.Caption = Chr$(163) Then
    CheckBox962.Caption = "R"
    globalBoolCheckBox962Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox962.Caption = Chr$(163)
    globalBoolCheckBox962Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox963_Click()
If CheckBox963.Caption = Chr$(163) Then
    CheckBox963.Caption = "R"
    globalBoolCheckBox963Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox963.Caption = Chr$(163)
    globalBoolCheckBox963Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox964_Click()
If CheckBox964.Caption = Chr$(163) Then
    CheckBox964.Caption = "R"
    globalBoolCheckBox964Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox964.Caption = Chr$(163)
    globalBoolCheckBox964Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox965_Click()
If CheckBox965.Caption = Chr$(163) Then
    CheckBox965.Caption = "R"
    globalBoolCheckBox965Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox965.Caption = Chr$(163)
    globalBoolCheckBox965Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox966_Click()
If CheckBox966.Caption = Chr$(163) Then
    CheckBox966.Caption = "R"
    globalBoolCheckBox966Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox966.Caption = Chr$(163)
    globalBoolCheckBox966Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox967_Click()
If CheckBox967.Caption = Chr$(163) Then
    CheckBox967.Caption = "R"
    globalBoolCheckBox967Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox967.Caption = Chr$(163)
    globalBoolCheckBox967Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox968_Click()
If CheckBox968.Caption = Chr$(163) Then
    CheckBox968.Caption = "R"
    globalBoolCheckBox968Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox968.Caption = Chr$(163)
    globalBoolCheckBox968Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox969_Click()
If CheckBox969.Caption = Chr$(163) Then
    CheckBox969.Caption = "R"
    globalBoolCheckBox969Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox969.Caption = Chr$(163)
    globalBoolCheckBox969Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox970_Click()
If CheckBox970.Caption = Chr$(163) Then
    CheckBox970.Caption = "R"
    globalBoolCheckBox970Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox970.Caption = Chr$(163)
    globalBoolCheckBox970Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox971_Click()
If CheckBox971.Caption = Chr$(163) Then
    CheckBox971.Caption = "R"
    globalBoolCheckBox971Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox971.Caption = Chr$(163)
    globalBoolCheckBox971Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox972_Click()
If CheckBox972.Caption = Chr$(163) Then
    CheckBox972.Caption = "R"
    globalBoolCheckBox972Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox972.Caption = Chr$(163)
    globalBoolCheckBox972Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox973_Click()
If CheckBox973.Caption = Chr$(163) Then
    CheckBox973.Caption = "R"
    globalBoolCheckBox973Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox973.Caption = Chr$(163)
    globalBoolCheckBox973Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox974_Click()
If CheckBox974.Caption = Chr$(163) Then
    CheckBox974.Caption = "R"
    globalBoolCheckBox974Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox974.Caption = Chr$(163)
    globalBoolCheckBox974Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox975_Click()
If CheckBox975.Caption = Chr$(163) Then
    CheckBox975.Caption = "R"
    globalBoolCheckBox975Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox975.Caption = Chr$(163)
    globalBoolCheckBox975Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox976_Click()
If CheckBox976.Caption = Chr$(163) Then
    CheckBox976.Caption = "R"
    globalBoolCheckBox976Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox976.Caption = Chr$(163)
    globalBoolCheckBox976Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox977_Click()
If CheckBox977.Caption = Chr$(163) Then
    CheckBox977.Caption = "R"
    globalBoolCheckBox977Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox977.Caption = Chr$(163)
    globalBoolCheckBox977Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox978_Click()
If CheckBox978.Caption = Chr$(163) Then
    CheckBox978.Caption = "R"
    globalBoolCheckBox978Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox978.Caption = Chr$(163)
    globalBoolCheckBox978Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox979_Click()
If CheckBox979.Caption = Chr$(163) Then
    CheckBox979.Caption = "R"
    globalBoolCheckBox979Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox979.Caption = Chr$(163)
    globalBoolCheckBox979Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox980_Click()
If CheckBox980.Caption = Chr$(163) Then
    CheckBox980.Caption = "R"
    globalBoolCheckBox980Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox980.Caption = Chr$(163)
    globalBoolCheckBox980Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox981_Click()
If CheckBox981.Caption = Chr$(163) Then
    CheckBox981.Caption = "R"
    globalBoolCheckBox981Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox981.Caption = Chr$(163)
    globalBoolCheckBox981Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox982_Click()
If CheckBox982.Caption = Chr$(163) Then
    CheckBox982.Caption = "R"
    globalBoolCheckBox982Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox982.Caption = Chr$(163)
    globalBoolCheckBox982Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox983_Click()
If CheckBox983.Caption = Chr$(163) Then
    CheckBox983.Caption = "R"
    globalBoolCheckBox983Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox983.Caption = Chr$(163)
    globalBoolCheckBox983Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox984_Click()
If CheckBox984.Caption = Chr$(163) Then
    CheckBox984.Caption = "R"
    globalBoolCheckBox984Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox984.Caption = Chr$(163)
    globalBoolCheckBox984Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox985_Click()
If CheckBox985.Caption = Chr$(163) Then
    CheckBox985.Caption = "R"
    globalBoolCheckBox985Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox985.Caption = Chr$(163)
    globalBoolCheckBox985Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox986_Click()
If CheckBox986.Caption = Chr$(163) Then
    CheckBox986.Caption = "R"
    globalBoolCheckBox986Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox986.Caption = Chr$(163)
    globalBoolCheckBox986Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox987_Click()
If CheckBox987.Caption = Chr$(163) Then
    CheckBox987.Caption = "R"
    globalBoolCheckBox987Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox987.Caption = Chr$(163)
    globalBoolCheckBox987Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox988_Click()
If CheckBox988.Caption = Chr$(163) Then
    CheckBox988.Caption = "R"
    globalBoolCheckBox988Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox988.Caption = Chr$(163)
    globalBoolCheckBox988Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox989_Click()
If CheckBox989.Caption = Chr$(163) Then
    CheckBox989.Caption = "R"
    globalBoolCheckBox989Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox989.Caption = Chr$(163)
    globalBoolCheckBox989Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox990_Click()
If CheckBox990.Caption = Chr$(163) Then
    CheckBox990.Caption = "R"
    globalBoolCheckBox990Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox990.Caption = Chr$(163)
    globalBoolCheckBox990Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox991_Click()
If CheckBox991.Caption = Chr$(163) Then
    CheckBox991.Caption = "R"
    globalBoolCheckBox991Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox991.Caption = Chr$(163)
    globalBoolCheckBox991Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox992_Click()
If CheckBox992.Caption = Chr$(163) Then
    CheckBox992.Caption = "R"
    globalBoolCheckBox992Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox992.Caption = Chr$(163)
    globalBoolCheckBox992Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox993_Click()
If CheckBox993.Caption = Chr$(163) Then
    CheckBox993.Caption = "R"
    globalBoolCheckBox993Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox993.Caption = Chr$(163)
    globalBoolCheckBox993Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox994_Click()
If CheckBox994.Caption = Chr$(163) Then
    CheckBox994.Caption = "R"
    globalBoolCheckBox994Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox994.Caption = Chr$(163)
    globalBoolCheckBox994Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox995_Click()
If CheckBox995.Caption = Chr$(163) Then
    CheckBox995.Caption = "R"
    globalBoolCheckBox995Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox995.Caption = Chr$(163)
    globalBoolCheckBox995Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox996_Click()
If CheckBox996.Caption = Chr$(163) Then
    CheckBox996.Caption = "R"
    globalBoolCheckBox996Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox996.Caption = Chr$(163)
    globalBoolCheckBox996Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox997_Click()
If CheckBox997.Caption = Chr$(163) Then
    CheckBox997.Caption = "R"
    globalBoolCheckBox997Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox997.Caption = Chr$(163)
    globalBoolCheckBox997Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox998_Click()
If CheckBox998.Caption = Chr$(163) Then
    CheckBox998.Caption = "R"
    globalBoolCheckBox998Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox998.Caption = Chr$(163)
    globalBoolCheckBox998Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox999_Click()
If CheckBox999.Caption = Chr$(163) Then
    CheckBox999.Caption = "R"
    globalBoolCheckBox999Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox999.Caption = Chr$(163)
    globalBoolCheckBox999Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1000_Click()
If CheckBox1000.Caption = Chr$(163) Then
    CheckBox1000.Caption = "R"
    globalBoolCheckBox1000Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1000.Caption = Chr$(163)
    globalBoolCheckBox1000Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1001_Click()
If CheckBox1001.Caption = Chr$(163) Then
    CheckBox1001.Caption = "R"
    globalBoolCheckBox1001Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1001.Caption = Chr$(163)
    globalBoolCheckBox1001Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1002_Click()
If CheckBox1002.Caption = Chr$(163) Then
    CheckBox1002.Caption = "R"
    globalBoolCheckBox1002Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1002.Caption = Chr$(163)
    globalBoolCheckBox1002Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1003_Click()
If CheckBox1003.Caption = Chr$(163) Then
    CheckBox1003.Caption = "R"
    globalBoolCheckBox1003Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1003.Caption = Chr$(163)
    globalBoolCheckBox1003Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1004_Click()
If CheckBox1004.Caption = Chr$(163) Then
    CheckBox1004.Caption = "R"
    globalBoolCheckBox1004Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1004.Caption = Chr$(163)
    globalBoolCheckBox1004Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1005_Click()
If CheckBox1005.Caption = Chr$(163) Then
    CheckBox1005.Caption = "R"
    globalBoolCheckBox1005Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1005.Caption = Chr$(163)
    globalBoolCheckBox1005Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1006_Click()
If CheckBox1006.Caption = Chr$(163) Then
    CheckBox1006.Caption = "R"
    globalBoolCheckBox1006Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1006.Caption = Chr$(163)
    globalBoolCheckBox1006Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1007_Click()
If CheckBox1007.Caption = Chr$(163) Then
    CheckBox1007.Caption = "R"
    globalBoolCheckBox1007Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1007.Caption = Chr$(163)
    globalBoolCheckBox1007Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1008_Click()
If CheckBox1008.Caption = Chr$(163) Then
    CheckBox1008.Caption = "R"
    globalBoolCheckBox1008Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1008.Caption = Chr$(163)
    globalBoolCheckBox1008Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1009_Click()
If CheckBox1009.Caption = Chr$(163) Then
    CheckBox1009.Caption = "R"
    globalBoolCheckBox1009Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1009.Caption = Chr$(163)
    globalBoolCheckBox1009Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1010_Click()
If CheckBox1010.Caption = Chr$(163) Then
    CheckBox1010.Caption = "R"
    globalBoolCheckBox1010Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1010.Caption = Chr$(163)
    globalBoolCheckBox1010Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1011_Click()
If CheckBox1011.Caption = Chr$(163) Then
    CheckBox1011.Caption = "R"
    globalBoolCheckBox1011Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1011.Caption = Chr$(163)
    globalBoolCheckBox1011Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1012_Click()
If CheckBox1012.Caption = Chr$(163) Then
    CheckBox1012.Caption = "R"
    globalBoolCheckBox1012Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1012.Caption = Chr$(163)
    globalBoolCheckBox1012Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1013_Click()
If CheckBox1013.Caption = Chr$(163) Then
    CheckBox1013.Caption = "R"
    globalBoolCheckBox1013Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1013.Caption = Chr$(163)
    globalBoolCheckBox1013Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1014_Click()
If CheckBox1014.Caption = Chr$(163) Then
    CheckBox1014.Caption = "R"
    globalBoolCheckBox1014Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1014.Caption = Chr$(163)
    globalBoolCheckBox1014Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1015_Click()
If CheckBox1015.Caption = Chr$(163) Then
    CheckBox1015.Caption = "R"
    globalBoolCheckBox1015Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1015.Caption = Chr$(163)
    globalBoolCheckBox1015Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1016_Click()
If CheckBox1016.Caption = Chr$(163) Then
    CheckBox1016.Caption = "R"
    globalBoolCheckBox1016Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1016.Caption = Chr$(163)
    globalBoolCheckBox1016Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1017_Click()
If CheckBox1017.Caption = Chr$(163) Then
    CheckBox1017.Caption = "R"
    globalBoolCheckBox1017Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1017.Caption = Chr$(163)
    globalBoolCheckBox1017Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1018_Click()
If CheckBox1018.Caption = Chr$(163) Then
    CheckBox1018.Caption = "R"
    globalBoolCheckBox1018Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1018.Caption = Chr$(163)
    globalBoolCheckBox1018Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1019_Click()
If CheckBox1019.Caption = Chr$(163) Then
    CheckBox1019.Caption = "R"
    globalBoolCheckBox1019Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1019.Caption = Chr$(163)
    globalBoolCheckBox1019Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1020_Click()
If CheckBox1020.Caption = Chr$(163) Then
    CheckBox1020.Caption = "R"
    globalBoolCheckBox1020Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1020.Caption = Chr$(163)
    globalBoolCheckBox1020Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1021_Click()
If CheckBox1021.Caption = Chr$(163) Then
    CheckBox1021.Caption = "R"
    globalBoolCheckBox1021Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1021.Caption = Chr$(163)
    globalBoolCheckBox1021Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1022_Click()
If CheckBox1022.Caption = Chr$(163) Then
    CheckBox1022.Caption = "R"
    globalBoolCheckBox1022Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1022.Caption = Chr$(163)
    globalBoolCheckBox1022Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1023_Click()
If CheckBox1023.Caption = Chr$(163) Then
    CheckBox1023.Caption = "R"
    globalBoolCheckBox1023Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1023.Caption = Chr$(163)
    globalBoolCheckBox1023Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1024_Click()
If CheckBox1024.Caption = Chr$(163) Then
    CheckBox1024.Caption = "R"
    globalBoolCheckBox1024Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1024.Caption = Chr$(163)
    globalBoolCheckBox1024Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1025_Click()
If CheckBox1025.Caption = Chr$(163) Then
    CheckBox1025.Caption = "R"
    globalBoolCheckBox1025Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1025.Caption = Chr$(163)
    globalBoolCheckBox1025Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1026_Click()
If CheckBox1026.Caption = Chr$(163) Then
    CheckBox1026.Caption = "R"
    globalBoolCheckBox1026Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1026.Caption = Chr$(163)
    globalBoolCheckBox1026Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1027_Click()
If CheckBox1027.Caption = Chr$(163) Then
    CheckBox1027.Caption = "R"
    globalBoolCheckBox1027Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1027.Caption = Chr$(163)
    globalBoolCheckBox1027Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1028_Click()
If CheckBox1028.Caption = Chr$(163) Then
    CheckBox1028.Caption = "R"
    globalBoolCheckBox1028Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1028.Caption = Chr$(163)
    globalBoolCheckBox1028Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1029_Click()
If CheckBox1029.Caption = Chr$(163) Then
    CheckBox1029.Caption = "R"
    globalBoolCheckBox1029Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1029.Caption = Chr$(163)
    globalBoolCheckBox1029Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1030_Click()
If CheckBox1030.Caption = Chr$(163) Then
    CheckBox1030.Caption = "R"
    globalBoolCheckBox1030Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1030.Caption = Chr$(163)
    globalBoolCheckBox1030Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1031_Click()
If CheckBox1031.Caption = Chr$(163) Then
    CheckBox1031.Caption = "R"
    globalBoolCheckBox1031Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1031.Caption = Chr$(163)
    globalBoolCheckBox1031Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1032_Click()
If CheckBox1032.Caption = Chr$(163) Then
    CheckBox1032.Caption = "R"
    globalBoolCheckBox1032Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1032.Caption = Chr$(163)
    globalBoolCheckBox1032Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1033_Click()
If CheckBox1033.Caption = Chr$(163) Then
    CheckBox1033.Caption = "R"
    globalBoolCheckBox1033Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1033.Caption = Chr$(163)
    globalBoolCheckBox1033Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1034_Click()
If CheckBox1034.Caption = Chr$(163) Then
    CheckBox1034.Caption = "R"
    globalBoolCheckBox1034Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1034.Caption = Chr$(163)
    globalBoolCheckBox1034Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1035_Click()
If CheckBox1035.Caption = Chr$(163) Then
    CheckBox1035.Caption = "R"
    globalBoolCheckBox1035Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1035.Caption = Chr$(163)
    globalBoolCheckBox1035Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1036_Click()
If CheckBox1036.Caption = Chr$(163) Then
    CheckBox1036.Caption = "R"
    globalBoolCheckBox1036Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1036.Caption = Chr$(163)
    globalBoolCheckBox1036Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1037_Click()
If CheckBox1037.Caption = Chr$(163) Then
    CheckBox1037.Caption = "R"
    globalBoolCheckBox1037Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1037.Caption = Chr$(163)
    globalBoolCheckBox1037Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1038_Click()
If CheckBox1038.Caption = Chr$(163) Then
    CheckBox1038.Caption = "R"
    globalBoolCheckBox1038Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1038.Caption = Chr$(163)
    globalBoolCheckBox1038Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1039_Click()
If CheckBox1039.Caption = Chr$(163) Then
    CheckBox1039.Caption = "R"
    globalBoolCheckBox1039Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1039.Caption = Chr$(163)
    globalBoolCheckBox1039Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1040_Click()
If CheckBox1040.Caption = Chr$(163) Then
    CheckBox1040.Caption = "R"
    globalBoolCheckBox1040Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1040.Caption = Chr$(163)
    globalBoolCheckBox1040Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1041_Click()
If CheckBox1041.Caption = Chr$(163) Then
    CheckBox1041.Caption = "R"
    globalBoolCheckBox1041Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1041.Caption = Chr$(163)
    globalBoolCheckBox1041Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1042_Click()
If CheckBox1042.Caption = Chr$(163) Then
    CheckBox1042.Caption = "R"
    globalBoolCheckBox1042Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1042.Caption = Chr$(163)
    globalBoolCheckBox1042Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1043_Click()
If CheckBox1043.Caption = Chr$(163) Then
    CheckBox1043.Caption = "R"
    globalBoolCheckBox1043Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1043.Caption = Chr$(163)
    globalBoolCheckBox1043Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1044_Click()
If CheckBox1044.Caption = Chr$(163) Then
    CheckBox1044.Caption = "R"
    globalBoolCheckBox1044Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1044.Caption = Chr$(163)
    globalBoolCheckBox1044Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1045_Click()
If CheckBox1045.Caption = Chr$(163) Then
    CheckBox1045.Caption = "R"
    globalBoolCheckBox1045Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1045.Caption = Chr$(163)
    globalBoolCheckBox1045Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1046_Click()
If CheckBox1046.Caption = Chr$(163) Then
    CheckBox1046.Caption = "R"
    globalBoolCheckBox1046Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1046.Caption = Chr$(163)
    globalBoolCheckBox1046Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1047_Click()
If CheckBox1047.Caption = Chr$(163) Then
    CheckBox1047.Caption = "R"
    globalBoolCheckBox1047Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1047.Caption = Chr$(163)
    globalBoolCheckBox1047Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1048_Click()
If CheckBox1048.Caption = Chr$(163) Then
    CheckBox1048.Caption = "R"
    globalBoolCheckBox1048Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1048.Caption = Chr$(163)
    globalBoolCheckBox1048Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1049_Click()
If CheckBox1049.Caption = Chr$(163) Then
    CheckBox1049.Caption = "R"
    globalBoolCheckBox1049Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1049.Caption = Chr$(163)
    globalBoolCheckBox1049Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1050_Click()
If CheckBox1050.Caption = Chr$(163) Then
    CheckBox1050.Caption = "R"
    globalBoolCheckBox1050Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1050.Caption = Chr$(163)
    globalBoolCheckBox1050Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1051_Click()
If CheckBox1051.Caption = Chr$(163) Then
    CheckBox1051.Caption = "R"
    globalBoolCheckBox1051Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1051.Caption = Chr$(163)
    globalBoolCheckBox1051Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1052_Click()
If CheckBox1052.Caption = Chr$(163) Then
    CheckBox1052.Caption = "R"
    globalBoolCheckBox1052Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1052.Caption = Chr$(163)
    globalBoolCheckBox1052Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1053_Click()
If CheckBox1053.Caption = Chr$(163) Then
    CheckBox1053.Caption = "R"
    globalBoolCheckBox1053Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1053.Caption = Chr$(163)
    globalBoolCheckBox1053Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1054_Click()
If CheckBox1054.Caption = Chr$(163) Then
    CheckBox1054.Caption = "R"
    globalBoolCheckBox1054Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1054.Caption = Chr$(163)
    globalBoolCheckBox1054Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1055_Click()
If CheckBox1055.Caption = Chr$(163) Then
    CheckBox1055.Caption = "R"
    globalBoolCheckBox1055Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1055.Caption = Chr$(163)
    globalBoolCheckBox1055Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1056_Click()
If CheckBox1056.Caption = Chr$(163) Then
    CheckBox1056.Caption = "R"
    globalBoolCheckBox1056Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1056.Caption = Chr$(163)
    globalBoolCheckBox1056Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1057_Click()
If CheckBox1057.Caption = Chr$(163) Then
    CheckBox1057.Caption = "R"
    globalBoolCheckBox1057Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1057.Caption = Chr$(163)
    globalBoolCheckBox1057Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1058_Click()
If CheckBox1058.Caption = Chr$(163) Then
    CheckBox1058.Caption = "R"
    globalBoolCheckBox1058Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1058.Caption = Chr$(163)
    globalBoolCheckBox1058Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1059_Click()
If CheckBox1059.Caption = Chr$(163) Then
    CheckBox1059.Caption = "R"
    globalBoolCheckBox1059Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1059.Caption = Chr$(163)
    globalBoolCheckBox1059Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1060_Click()
If CheckBox1060.Caption = Chr$(163) Then
    CheckBox1060.Caption = "R"
    globalBoolCheckBox1060Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1060.Caption = Chr$(163)
    globalBoolCheckBox1060Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1061_Click()
If CheckBox1061.Caption = Chr$(163) Then
    CheckBox1061.Caption = "R"
    globalBoolCheckBox1061Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1061.Caption = Chr$(163)
    globalBoolCheckBox1061Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1062_Click()
If CheckBox1062.Caption = Chr$(163) Then
    CheckBox1062.Caption = "R"
    globalBoolCheckBox1062Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1062.Caption = Chr$(163)
    globalBoolCheckBox1062Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1063_Click()
If CheckBox1063.Caption = Chr$(163) Then
    CheckBox1063.Caption = "R"
    globalBoolCheckBox1063Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1063.Caption = Chr$(163)
    globalBoolCheckBox1063Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1064_Click()
If CheckBox1064.Caption = Chr$(163) Then
    CheckBox1064.Caption = "R"
    globalBoolCheckBox1064Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1064.Caption = Chr$(163)
    globalBoolCheckBox1064Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1065_Click()
If CheckBox1065.Caption = Chr$(163) Then
    CheckBox1065.Caption = "R"
    globalBoolCheckBox1065Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1065.Caption = Chr$(163)
    globalBoolCheckBox1065Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1066_Click()
If CheckBox1066.Caption = Chr$(163) Then
    CheckBox1066.Caption = "R"
    globalBoolCheckBox1066Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1066.Caption = Chr$(163)
    globalBoolCheckBox1066Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1067_Click()
If CheckBox1067.Caption = Chr$(163) Then
    CheckBox1067.Caption = "R"
    globalBoolCheckBox1067Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1067.Caption = Chr$(163)
    globalBoolCheckBox1067Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1068_Click()
If CheckBox1068.Caption = Chr$(163) Then
    CheckBox1068.Caption = "R"
    globalBoolCheckBox1068Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1068.Caption = Chr$(163)
    globalBoolCheckBox1068Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1069_Click()
If CheckBox1069.Caption = Chr$(163) Then
    CheckBox1069.Caption = "R"
    globalBoolCheckBox1069Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1069.Caption = Chr$(163)
    globalBoolCheckBox1069Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1070_Click()
If CheckBox1070.Caption = Chr$(163) Then
    CheckBox1070.Caption = "R"
    globalBoolCheckBox1070Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1070.Caption = Chr$(163)
    globalBoolCheckBox1070Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1071_Click()
If CheckBox1071.Caption = Chr$(163) Then
    CheckBox1071.Caption = "R"
    globalBoolCheckBox1071Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1071.Caption = Chr$(163)
    globalBoolCheckBox1071Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1072_Click()
If CheckBox1072.Caption = Chr$(163) Then
    CheckBox1072.Caption = "R"
    globalBoolCheckBox1072Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1072.Caption = Chr$(163)
    globalBoolCheckBox1072Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1073_Click()
If CheckBox1073.Caption = Chr$(163) Then
    CheckBox1073.Caption = "R"
    globalBoolCheckBox1073Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1073.Caption = Chr$(163)
    globalBoolCheckBox1073Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1074_Click()
If CheckBox1074.Caption = Chr$(163) Then
    CheckBox1074.Caption = "R"
    globalBoolCheckBox1074Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1074.Caption = Chr$(163)
    globalBoolCheckBox1074Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1075_Click()
If CheckBox1075.Caption = Chr$(163) Then
    CheckBox1075.Caption = "R"
    globalBoolCheckBox1075Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1075.Caption = Chr$(163)
    globalBoolCheckBox1075Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1076_Click()
If CheckBox1076.Caption = Chr$(163) Then
    CheckBox1076.Caption = "R"
    globalBoolCheckBox1076Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1076.Caption = Chr$(163)
    globalBoolCheckBox1076Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1077_Click()
If CheckBox1077.Caption = Chr$(163) Then
    CheckBox1077.Caption = "R"
    globalBoolCheckBox1077Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1077.Caption = Chr$(163)
    globalBoolCheckBox1077Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1078_Click()
If CheckBox1078.Caption = Chr$(163) Then
    CheckBox1078.Caption = "R"
    globalBoolCheckBox1078Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1078.Caption = Chr$(163)
    globalBoolCheckBox1078Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1079_Click()
If CheckBox1079.Caption = Chr$(163) Then
    CheckBox1079.Caption = "R"
    globalBoolCheckBox1079Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1079.Caption = Chr$(163)
    globalBoolCheckBox1079Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1080_Click()
If CheckBox1080.Caption = Chr$(163) Then
    CheckBox1080.Caption = "R"
    globalBoolCheckBox1080Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1080.Caption = Chr$(163)
    globalBoolCheckBox1080Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1081_Click()
If CheckBox1081.Caption = Chr$(163) Then
    CheckBox1081.Caption = "R"
    globalBoolCheckBox1081Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1081.Caption = Chr$(163)
    globalBoolCheckBox1081Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1082_Click()
If CheckBox1082.Caption = Chr$(163) Then
    CheckBox1082.Caption = "R"
    globalBoolCheckBox1082Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1082.Caption = Chr$(163)
    globalBoolCheckBox1082Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1083_Click()
If CheckBox1083.Caption = Chr$(163) Then
    CheckBox1083.Caption = "R"
    globalBoolCheckBox1083Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1083.Caption = Chr$(163)
    globalBoolCheckBox1083Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1084_Click()
If CheckBox1084.Caption = Chr$(163) Then
    CheckBox1084.Caption = "R"
    globalBoolCheckBox1084Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1084.Caption = Chr$(163)
    globalBoolCheckBox1084Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1085_Click()
If CheckBox1085.Caption = Chr$(163) Then
    CheckBox1085.Caption = "R"
    globalBoolCheckBox1085Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1085.Caption = Chr$(163)
    globalBoolCheckBox1085Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1086_Click()
If CheckBox1086.Caption = Chr$(163) Then
    CheckBox1086.Caption = "R"
    globalBoolCheckBox1086Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1086.Caption = Chr$(163)
    globalBoolCheckBox1086Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1087_Click()
If CheckBox1087.Caption = Chr$(163) Then
    CheckBox1087.Caption = "R"
    globalBoolCheckBox1087Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1087.Caption = Chr$(163)
    globalBoolCheckBox1087Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1088_Click()
If CheckBox1088.Caption = Chr$(163) Then
    CheckBox1088.Caption = "R"
    globalBoolCheckBox1088Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1088.Caption = Chr$(163)
    globalBoolCheckBox1088Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1089_Click()
If CheckBox1089.Caption = Chr$(163) Then
    CheckBox1089.Caption = "R"
    globalBoolCheckBox1089Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1089.Caption = Chr$(163)
    globalBoolCheckBox1089Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1090_Click()
If CheckBox1090.Caption = Chr$(163) Then
    CheckBox1090.Caption = "R"
    globalBoolCheckBox1090Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1090.Caption = Chr$(163)
    globalBoolCheckBox1090Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1091_Click()
If CheckBox1091.Caption = Chr$(163) Then
    CheckBox1091.Caption = "R"
    globalBoolCheckBox1091Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1091.Caption = Chr$(163)
    globalBoolCheckBox1091Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1092_Click()
If CheckBox1092.Caption = Chr$(163) Then
    CheckBox1092.Caption = "R"
    globalBoolCheckBox1092Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1092.Caption = Chr$(163)
    globalBoolCheckBox1092Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1093_Click()
If CheckBox1093.Caption = Chr$(163) Then
    CheckBox1093.Caption = "R"
    globalBoolCheckBox1093Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1093.Caption = Chr$(163)
    globalBoolCheckBox1093Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1094_Click()
If CheckBox1094.Caption = Chr$(163) Then
    CheckBox1094.Caption = "R"
    globalBoolCheckBox1094Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1094.Caption = Chr$(163)
    globalBoolCheckBox1094Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1095_Click()
If CheckBox1095.Caption = Chr$(163) Then
    CheckBox1095.Caption = "R"
    globalBoolCheckBox1095Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1095.Caption = Chr$(163)
    globalBoolCheckBox1095Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1096_Click()
If CheckBox1096.Caption = Chr$(163) Then
    CheckBox1096.Caption = "R"
    globalBoolCheckBox1096Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1096.Caption = Chr$(163)
    globalBoolCheckBox1096Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1097_Click()
If CheckBox1097.Caption = Chr$(163) Then
    CheckBox1097.Caption = "R"
    globalBoolCheckBox1097Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1097.Caption = Chr$(163)
    globalBoolCheckBox1097Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1098_Click()
If CheckBox1098.Caption = Chr$(163) Then
    CheckBox1098.Caption = "R"
    globalBoolCheckBox1098Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1098.Caption = Chr$(163)
    globalBoolCheckBox1098Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1099_Click()
If CheckBox1099.Caption = Chr$(163) Then
    CheckBox1099.Caption = "R"
    globalBoolCheckBox1099Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1099.Caption = Chr$(163)
    globalBoolCheckBox1099Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1100_Click()
If CheckBox1100.Caption = Chr$(163) Then
    CheckBox1100.Caption = "R"
    globalBoolCheckBox1100Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1100.Caption = Chr$(163)
    globalBoolCheckBox1100Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1101_Click()
If CheckBox1101.Caption = Chr$(163) Then
    CheckBox1101.Caption = "R"
    globalBoolCheckBox1101Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1101.Caption = Chr$(163)
    globalBoolCheckBox1101Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1102_Click()
If CheckBox1102.Caption = Chr$(163) Then
    CheckBox1102.Caption = "R"
    globalBoolCheckBox1102Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1102.Caption = Chr$(163)
    globalBoolCheckBox1102Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1103_Click()
If CheckBox1103.Caption = Chr$(163) Then
    CheckBox1103.Caption = "R"
    globalBoolCheckBox1103Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1103.Caption = Chr$(163)
    globalBoolCheckBox1103Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1104_Click()
If CheckBox1104.Caption = Chr$(163) Then
    CheckBox1104.Caption = "R"
    globalBoolCheckBox1104Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1104.Caption = Chr$(163)
    globalBoolCheckBox1104Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1105_Click()
If CheckBox1105.Caption = Chr$(163) Then
    CheckBox1105.Caption = "R"
    globalBoolCheckBox1105Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1105.Caption = Chr$(163)
    globalBoolCheckBox1105Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1106_Click()
If CheckBox1106.Caption = Chr$(163) Then
    CheckBox1106.Caption = "R"
    globalBoolCheckBox1106Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1106.Caption = Chr$(163)
    globalBoolCheckBox1106Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1107_Click()
If CheckBox1107.Caption = Chr$(163) Then
    CheckBox1107.Caption = "R"
    globalBoolCheckBox1107Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1107.Caption = Chr$(163)
    globalBoolCheckBox1107Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1108_Click()
If CheckBox1108.Caption = Chr$(163) Then
    CheckBox1108.Caption = "R"
    globalBoolCheckBox1108Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1108.Caption = Chr$(163)
    globalBoolCheckBox1108Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1109_Click()
If CheckBox1109.Caption = Chr$(163) Then
    CheckBox1109.Caption = "R"
    globalBoolCheckBox1109Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1109.Caption = Chr$(163)
    globalBoolCheckBox1109Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1110_Click()
If CheckBox1110.Caption = Chr$(163) Then
    CheckBox1110.Caption = "R"
    globalBoolCheckBox1110Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1110.Caption = Chr$(163)
    globalBoolCheckBox1110Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1111_Click()
If CheckBox1111.Caption = Chr$(163) Then
    CheckBox1111.Caption = "R"
    globalBoolCheckBox1111Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1111.Caption = Chr$(163)
    globalBoolCheckBox1111Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1112_Click()
If CheckBox1112.Caption = Chr$(163) Then
    CheckBox1112.Caption = "R"
    globalBoolCheckBox1112Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1112.Caption = Chr$(163)
    globalBoolCheckBox1112Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1113_Click()
If CheckBox1113.Caption = Chr$(163) Then
    CheckBox1113.Caption = "R"
    globalBoolCheckBox1113Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1113.Caption = Chr$(163)
    globalBoolCheckBox1113Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1114_Click()
If CheckBox1114.Caption = Chr$(163) Then
    CheckBox1114.Caption = "R"
    globalBoolCheckBox1114Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1114.Caption = Chr$(163)
    globalBoolCheckBox1114Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1115_Click()
If CheckBox1115.Caption = Chr$(163) Then
    CheckBox1115.Caption = "R"
    globalBoolCheckBox1115Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1115.Caption = Chr$(163)
    globalBoolCheckBox1115Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1116_Click()
If CheckBox1116.Caption = Chr$(163) Then
    CheckBox1116.Caption = "R"
    globalBoolCheckBox1116Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1116.Caption = Chr$(163)
    globalBoolCheckBox1116Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1117_Click()
If CheckBox1117.Caption = Chr$(163) Then
    CheckBox1117.Caption = "R"
    globalBoolCheckBox1117Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1117.Caption = Chr$(163)
    globalBoolCheckBox1117Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1118_Click()
If CheckBox1118.Caption = Chr$(163) Then
    CheckBox1118.Caption = "R"
    globalBoolCheckBox1118Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1118.Caption = Chr$(163)
    globalBoolCheckBox1118Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1119_Click()
If CheckBox1119.Caption = Chr$(163) Then
    CheckBox1119.Caption = "R"
    globalBoolCheckBox1119Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1119.Caption = Chr$(163)
    globalBoolCheckBox1119Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1120_Click()
If CheckBox1120.Caption = Chr$(163) Then
    CheckBox1120.Caption = "R"
    globalBoolCheckBox1120Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1120.Caption = Chr$(163)
    globalBoolCheckBox1120Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1121_Click()
If CheckBox1121.Caption = Chr$(163) Then
    CheckBox1121.Caption = "R"
    globalBoolCheckBox1121Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1121.Caption = Chr$(163)
    globalBoolCheckBox1121Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1122_Click()
If CheckBox1122.Caption = Chr$(163) Then
    CheckBox1122.Caption = "R"
    globalBoolCheckBox1122Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1122.Caption = Chr$(163)
    globalBoolCheckBox1122Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1123_Click()
If CheckBox1123.Caption = Chr$(163) Then
    CheckBox1123.Caption = "R"
    globalBoolCheckBox1123Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1123.Caption = Chr$(163)
    globalBoolCheckBox1123Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1124_Click()
If CheckBox1124.Caption = Chr$(163) Then
    CheckBox1124.Caption = "R"
    globalBoolCheckBox1124Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1124.Caption = Chr$(163)
    globalBoolCheckBox1124Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1125_Click()
If CheckBox1125.Caption = Chr$(163) Then
    CheckBox1125.Caption = "R"
    globalBoolCheckBox1125Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1125.Caption = Chr$(163)
    globalBoolCheckBox1125Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1126_Click()
If CheckBox1126.Caption = Chr$(163) Then
    CheckBox1126.Caption = "R"
    globalBoolCheckBox1126Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1126.Caption = Chr$(163)
    globalBoolCheckBox1126Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1127_Click()
If CheckBox1127.Caption = Chr$(163) Then
    CheckBox1127.Caption = "R"
    globalBoolCheckBox1127Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1127.Caption = Chr$(163)
    globalBoolCheckBox1127Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1128_Click()
If CheckBox1128.Caption = Chr$(163) Then
    CheckBox1128.Caption = "R"
    globalBoolCheckBox1128Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1128.Caption = Chr$(163)
    globalBoolCheckBox1128Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1129_Click()
If CheckBox1129.Caption = Chr$(163) Then
    CheckBox1129.Caption = "R"
    globalBoolCheckBox1129Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1129.Caption = Chr$(163)
    globalBoolCheckBox1129Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1130_Click()
If CheckBox1130.Caption = Chr$(163) Then
    CheckBox1130.Caption = "R"
    globalBoolCheckBox1130Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1130.Caption = Chr$(163)
    globalBoolCheckBox1130Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1131_Click()
If CheckBox1131.Caption = Chr$(163) Then
    CheckBox1131.Caption = "R"
    globalBoolCheckBox1131Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1131.Caption = Chr$(163)
    globalBoolCheckBox1131Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1132_Click()
If CheckBox1132.Caption = Chr$(163) Then
    CheckBox1132.Caption = "R"
    globalBoolCheckBox1132Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1132.Caption = Chr$(163)
    globalBoolCheckBox1132Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1133_Click()
If CheckBox1133.Caption = Chr$(163) Then
    CheckBox1133.Caption = "R"
    globalBoolCheckBox1133Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1133.Caption = Chr$(163)
    globalBoolCheckBox1133Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1134_Click()
If CheckBox1134.Caption = Chr$(163) Then
    CheckBox1134.Caption = "R"
    globalBoolCheckBox1134Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1134.Caption = Chr$(163)
    globalBoolCheckBox1134Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1135_Click()
If CheckBox1135.Caption = Chr$(163) Then
    CheckBox1135.Caption = "R"
    globalBoolCheckBox1135Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1135.Caption = Chr$(163)
    globalBoolCheckBox1135Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1136_Click()
If CheckBox1136.Caption = Chr$(163) Then
    CheckBox1136.Caption = "R"
    globalBoolCheckBox1136Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1136.Caption = Chr$(163)
    globalBoolCheckBox1136Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1137_Click()
If CheckBox1137.Caption = Chr$(163) Then
    CheckBox1137.Caption = "R"
    globalBoolCheckBox1137Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1137.Caption = Chr$(163)
    globalBoolCheckBox1137Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1138_Click()
If CheckBox1138.Caption = Chr$(163) Then
    CheckBox1138.Caption = "R"
    globalBoolCheckBox1138Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1138.Caption = Chr$(163)
    globalBoolCheckBox1138Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1139_Click()
If CheckBox1139.Caption = Chr$(163) Then
    CheckBox1139.Caption = "R"
    globalBoolCheckBox1139Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1139.Caption = Chr$(163)
    globalBoolCheckBox1139Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1140_Click()
If CheckBox1140.Caption = Chr$(163) Then
    CheckBox1140.Caption = "R"
    globalBoolCheckBox1140Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1140.Caption = Chr$(163)
    globalBoolCheckBox1140Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1141_Click()
If CheckBox1141.Caption = Chr$(163) Then
    CheckBox1141.Caption = "R"
    globalBoolCheckBox1141Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1141.Caption = Chr$(163)
    globalBoolCheckBox1141Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1142_Click()
If CheckBox1142.Caption = Chr$(163) Then
    CheckBox1142.Caption = "R"
    globalBoolCheckBox1142Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1142.Caption = Chr$(163)
    globalBoolCheckBox1142Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1143_Click()
If CheckBox1143.Caption = Chr$(163) Then
    CheckBox1143.Caption = "R"
    globalBoolCheckBox1143Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1143.Caption = Chr$(163)
    globalBoolCheckBox1143Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1144_Click()
If CheckBox1144.Caption = Chr$(163) Then
    CheckBox1144.Caption = "R"
    globalBoolCheckBox1144Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1144.Caption = Chr$(163)
    globalBoolCheckBox1144Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1145_Click()
If CheckBox1145.Caption = Chr$(163) Then
    CheckBox1145.Caption = "R"
    globalBoolCheckBox1145Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1145.Caption = Chr$(163)
    globalBoolCheckBox1145Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1146_Click()
If CheckBox1146.Caption = Chr$(163) Then
    CheckBox1146.Caption = "R"
    globalBoolCheckBox1146Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1146.Caption = Chr$(163)
    globalBoolCheckBox1146Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1147_Click()
If CheckBox1147.Caption = Chr$(163) Then
    CheckBox1147.Caption = "R"
    globalBoolCheckBox1147Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1147.Caption = Chr$(163)
    globalBoolCheckBox1147Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1148_Click()
If CheckBox1148.Caption = Chr$(163) Then
    CheckBox1148.Caption = "R"
    globalBoolCheckBox1148Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1148.Caption = Chr$(163)
    globalBoolCheckBox1148Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1149_Click()
If CheckBox1149.Caption = Chr$(163) Then
    CheckBox1149.Caption = "R"
    globalBoolCheckBox1149Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1149.Caption = Chr$(163)
    globalBoolCheckBox1149Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1150_Click()
If CheckBox1150.Caption = Chr$(163) Then
    CheckBox1150.Caption = "R"
    globalBoolCheckBox1150Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1150.Caption = Chr$(163)
    globalBoolCheckBox1150Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1151_Click()
If CheckBox1151.Caption = Chr$(163) Then
    CheckBox1151.Caption = "R"
    globalBoolCheckBox1151Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1151.Caption = Chr$(163)
    globalBoolCheckBox1151Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1152_Click()
If CheckBox1152.Caption = Chr$(163) Then
    CheckBox1152.Caption = "R"
    globalBoolCheckBox1152Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1152.Caption = Chr$(163)
    globalBoolCheckBox1152Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1153_Click()
If CheckBox1153.Caption = Chr$(163) Then
    CheckBox1153.Caption = "R"
    globalBoolCheckBox1153Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1153.Caption = Chr$(163)
    globalBoolCheckBox1153Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1154_Click()
If CheckBox1154.Caption = Chr$(163) Then
    CheckBox1154.Caption = "R"
    globalBoolCheckBox1154Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1154.Caption = Chr$(163)
    globalBoolCheckBox1154Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1155_Click()
If CheckBox1155.Caption = Chr$(163) Then
    CheckBox1155.Caption = "R"
    globalBoolCheckBox1155Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1155.Caption = Chr$(163)
    globalBoolCheckBox1155Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1156_Click()
If CheckBox1156.Caption = Chr$(163) Then
    CheckBox1156.Caption = "R"
    globalBoolCheckBox1156Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1156.Caption = Chr$(163)
    globalBoolCheckBox1156Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1157_Click()
If CheckBox1157.Caption = Chr$(163) Then
    CheckBox1157.Caption = "R"
    globalBoolCheckBox1157Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1157.Caption = Chr$(163)
    globalBoolCheckBox1157Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1158_Click()
If CheckBox1158.Caption = Chr$(163) Then
    CheckBox1158.Caption = "R"
    globalBoolCheckBox1158Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1158.Caption = Chr$(163)
    globalBoolCheckBox1158Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1159_Click()
If CheckBox1159.Caption = Chr$(163) Then
    CheckBox1159.Caption = "R"
    globalBoolCheckBox1159Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1159.Caption = Chr$(163)
    globalBoolCheckBox1159Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1160_Click()
If CheckBox1160.Caption = Chr$(163) Then
    CheckBox1160.Caption = "R"
    globalBoolCheckBox1160Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1160.Caption = Chr$(163)
    globalBoolCheckBox1160Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1161_Click()
If CheckBox1161.Caption = Chr$(163) Then
    CheckBox1161.Caption = "R"
    globalBoolCheckBox1161Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1161.Caption = Chr$(163)
    globalBoolCheckBox1161Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1162_Click()
If CheckBox1162.Caption = Chr$(163) Then
    CheckBox1162.Caption = "R"
    globalBoolCheckBox1162Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1162.Caption = Chr$(163)
    globalBoolCheckBox1162Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1163_Click()
If CheckBox1163.Caption = Chr$(163) Then
    CheckBox1163.Caption = "R"
    globalBoolCheckBox1163Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1163.Caption = Chr$(163)
    globalBoolCheckBox1163Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1164_Click()
If CheckBox1164.Caption = Chr$(163) Then
    CheckBox1164.Caption = "R"
    globalBoolCheckBox1164Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1164.Caption = Chr$(163)
    globalBoolCheckBox1164Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1165_Click()
If CheckBox1165.Caption = Chr$(163) Then
    CheckBox1165.Caption = "R"
    globalBoolCheckBox1165Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1165.Caption = Chr$(163)
    globalBoolCheckBox1165Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1166_Click()
If CheckBox1166.Caption = Chr$(163) Then
    CheckBox1166.Caption = "R"
    globalBoolCheckBox1166Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1166.Caption = Chr$(163)
    globalBoolCheckBox1166Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1167_Click()
If CheckBox1167.Caption = Chr$(163) Then
    CheckBox1167.Caption = "R"
    globalBoolCheckBox1167Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1167.Caption = Chr$(163)
    globalBoolCheckBox1167Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1168_Click()
If CheckBox1168.Caption = Chr$(163) Then
    CheckBox1168.Caption = "R"
    globalBoolCheckBox1168Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1168.Caption = Chr$(163)
    globalBoolCheckBox1168Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1169_Click()
If CheckBox1169.Caption = Chr$(163) Then
    CheckBox1169.Caption = "R"
    globalBoolCheckBox1169Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1169.Caption = Chr$(163)
    globalBoolCheckBox1169Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1170_Click()
If CheckBox1170.Caption = Chr$(163) Then
    CheckBox1170.Caption = "R"
    globalBoolCheckBox1170Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1170.Caption = Chr$(163)
    globalBoolCheckBox1170Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1171_Click()
If CheckBox1171.Caption = Chr$(163) Then
    CheckBox1171.Caption = "R"
    globalBoolCheckBox1171Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1171.Caption = Chr$(163)
    globalBoolCheckBox1171Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1172_Click()
If CheckBox1172.Caption = Chr$(163) Then
    CheckBox1172.Caption = "R"
    globalBoolCheckBox1172Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1172.Caption = Chr$(163)
    globalBoolCheckBox1172Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1173_Click()
If CheckBox1173.Caption = Chr$(163) Then
    CheckBox1173.Caption = "R"
    globalBoolCheckBox1173Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1173.Caption = Chr$(163)
    globalBoolCheckBox1173Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1174_Click()
If CheckBox1174.Caption = Chr$(163) Then
    CheckBox1174.Caption = "R"
    globalBoolCheckBox1174Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1174.Caption = Chr$(163)
    globalBoolCheckBox1174Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1175_Click()
If CheckBox1175.Caption = Chr$(163) Then
    CheckBox1175.Caption = "R"
    globalBoolCheckBox1175Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1175.Caption = Chr$(163)
    globalBoolCheckBox1175Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1176_Click()
If CheckBox1176.Caption = Chr$(163) Then
    CheckBox1176.Caption = "R"
    globalBoolCheckBox1176Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1176.Caption = Chr$(163)
    globalBoolCheckBox1176Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1177_Click()
If CheckBox1177.Caption = Chr$(163) Then
    CheckBox1177.Caption = "R"
    globalBoolCheckBox1177Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1177.Caption = Chr$(163)
    globalBoolCheckBox1177Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1178_Click()
If CheckBox1178.Caption = Chr$(163) Then
    CheckBox1178.Caption = "R"
    globalBoolCheckBox1178Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1178.Caption = Chr$(163)
    globalBoolCheckBox1178Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1179_Click()
If CheckBox1179.Caption = Chr$(163) Then
    CheckBox1179.Caption = "R"
    globalBoolCheckBox1179Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1179.Caption = Chr$(163)
    globalBoolCheckBox1179Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1180_Click()
If CheckBox1180.Caption = Chr$(163) Then
    CheckBox1180.Caption = "R"
    globalBoolCheckBox1180Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1180.Caption = Chr$(163)
    globalBoolCheckBox1180Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1181_Click()
If CheckBox1181.Caption = Chr$(163) Then
    CheckBox1181.Caption = "R"
    globalBoolCheckBox1181Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1181.Caption = Chr$(163)
    globalBoolCheckBox1181Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1182_Click()
If CheckBox1182.Caption = Chr$(163) Then
    CheckBox1182.Caption = "R"
    globalBoolCheckBox1182Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1182.Caption = Chr$(163)
    globalBoolCheckBox1182Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1183_Click()
If CheckBox1183.Caption = Chr$(163) Then
    CheckBox1183.Caption = "R"
    globalBoolCheckBox1183Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1183.Caption = Chr$(163)
    globalBoolCheckBox1183Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1184_Click()
If CheckBox1184.Caption = Chr$(163) Then
    CheckBox1184.Caption = "R"
    globalBoolCheckBox1184Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1184.Caption = Chr$(163)
    globalBoolCheckBox1184Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1185_Click()
If CheckBox1185.Caption = Chr$(163) Then
    CheckBox1185.Caption = "R"
    globalBoolCheckBox1185Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1185.Caption = Chr$(163)
    globalBoolCheckBox1185Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1186_Click()
If CheckBox1186.Caption = Chr$(163) Then
    CheckBox1186.Caption = "R"
    globalBoolCheckBox1186Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1186.Caption = Chr$(163)
    globalBoolCheckBox1186Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1187_Click()
If CheckBox1187.Caption = Chr$(163) Then
    CheckBox1187.Caption = "R"
    globalBoolCheckBox1187Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1187.Caption = Chr$(163)
    globalBoolCheckBox1187Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1188_Click()
If CheckBox1188.Caption = Chr$(163) Then
    CheckBox1188.Caption = "R"
    globalBoolCheckBox1188Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1188.Caption = Chr$(163)
    globalBoolCheckBox1188Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1189_Click()
If CheckBox1189.Caption = Chr$(163) Then
    CheckBox1189.Caption = "R"
    globalBoolCheckBox1189Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1189.Caption = Chr$(163)
    globalBoolCheckBox1189Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1190_Click()
If CheckBox1190.Caption = Chr$(163) Then
    CheckBox1190.Caption = "R"
    globalBoolCheckBox1190Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1190.Caption = Chr$(163)
    globalBoolCheckBox1190Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1191_Click()
If CheckBox1191.Caption = Chr$(163) Then
    CheckBox1191.Caption = "R"
    globalBoolCheckBox1191Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1191.Caption = Chr$(163)
    globalBoolCheckBox1191Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1192_Click()
If CheckBox1192.Caption = Chr$(163) Then
    CheckBox1192.Caption = "R"
    globalBoolCheckBox1192Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1192.Caption = Chr$(163)
    globalBoolCheckBox1192Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1193_Click()
If CheckBox1193.Caption = Chr$(163) Then
    CheckBox1193.Caption = "R"
    globalBoolCheckBox1193Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1193.Caption = Chr$(163)
    globalBoolCheckBox1193Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1194_Click()
If CheckBox1194.Caption = Chr$(163) Then
    CheckBox1194.Caption = "R"
    globalBoolCheckBox1194Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1194.Caption = Chr$(163)
    globalBoolCheckBox1194Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1195_Click()
If CheckBox1195.Caption = Chr$(163) Then
    CheckBox1195.Caption = "R"
    globalBoolCheckBox1195Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1195.Caption = Chr$(163)
    globalBoolCheckBox1195Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1196_Click()
If CheckBox1196.Caption = Chr$(163) Then
    CheckBox1196.Caption = "R"
    globalBoolCheckBox1196Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1196.Caption = Chr$(163)
    globalBoolCheckBox1196Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1197_Click()
If CheckBox1197.Caption = Chr$(163) Then
    CheckBox1197.Caption = "R"
    globalBoolCheckBox1197Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1197.Caption = Chr$(163)
    globalBoolCheckBox1197Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1198_Click()
If CheckBox1198.Caption = Chr$(163) Then
    CheckBox1198.Caption = "R"
    globalBoolCheckBox1198Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1198.Caption = Chr$(163)
    globalBoolCheckBox1198Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1199_Click()
If CheckBox1199.Caption = Chr$(163) Then
    CheckBox1199.Caption = "R"
    globalBoolCheckBox1199Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1199.Caption = Chr$(163)
    globalBoolCheckBox1199Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1200_Click()
If CheckBox1200.Caption = Chr$(163) Then
    CheckBox1200.Caption = "R"
    globalBoolCheckBox1200Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1200.Caption = Chr$(163)
    globalBoolCheckBox1200Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1201_Click()
If CheckBox1201.Caption = Chr$(163) Then
    CheckBox1201.Caption = "R"
    globalBoolCheckBox1201Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1201.Caption = Chr$(163)
    globalBoolCheckBox1201Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1202_Click()
If CheckBox1202.Caption = Chr$(163) Then
    CheckBox1202.Caption = "R"
    globalBoolCheckBox1202Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1202.Caption = Chr$(163)
    globalBoolCheckBox1202Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1203_Click()
If CheckBox1203.Caption = Chr$(163) Then
    CheckBox1203.Caption = "R"
    globalBoolCheckBox1203Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1203.Caption = Chr$(163)
    globalBoolCheckBox1203Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1204_Click()
If CheckBox1204.Caption = Chr$(163) Then
    CheckBox1204.Caption = "R"
    globalBoolCheckBox1204Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1204.Caption = Chr$(163)
    globalBoolCheckBox1204Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1205_Click()
If CheckBox1205.Caption = Chr$(163) Then
    CheckBox1205.Caption = "R"
    globalBoolCheckBox1205Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1205.Caption = Chr$(163)
    globalBoolCheckBox1205Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1206_Click()
If CheckBox1206.Caption = Chr$(163) Then
    CheckBox1206.Caption = "R"
    globalBoolCheckBox1206Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1206.Caption = Chr$(163)
    globalBoolCheckBox1206Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1207_Click()
If CheckBox1207.Caption = Chr$(163) Then
    CheckBox1207.Caption = "R"
    globalBoolCheckBox1207Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1207.Caption = Chr$(163)
    globalBoolCheckBox1207Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1208_Click()
If CheckBox1208.Caption = Chr$(163) Then
    CheckBox1208.Caption = "R"
    globalBoolCheckBox1208Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1208.Caption = Chr$(163)
    globalBoolCheckBox1208Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1209_Click()
If CheckBox1209.Caption = Chr$(163) Then
    CheckBox1209.Caption = "R"
    globalBoolCheckBox1209Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1209.Caption = Chr$(163)
    globalBoolCheckBox1209Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1210_Click()
If CheckBox1210.Caption = Chr$(163) Then
    CheckBox1210.Caption = "R"
    globalBoolCheckBox1210Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1210.Caption = Chr$(163)
    globalBoolCheckBox1210Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1211_Click()
If CheckBox1211.Caption = Chr$(163) Then
    CheckBox1211.Caption = "R"
    globalBoolCheckBox1211Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1211.Caption = Chr$(163)
    globalBoolCheckBox1211Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1212_Click()
If CheckBox1212.Caption = Chr$(163) Then
    CheckBox1212.Caption = "R"
    globalBoolCheckBox1212Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1212.Caption = Chr$(163)
    globalBoolCheckBox1212Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1213_Click()
If CheckBox1213.Caption = Chr$(163) Then
    CheckBox1213.Caption = "R"
    globalBoolCheckBox1213Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1213.Caption = Chr$(163)
    globalBoolCheckBox1213Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1214_Click()
If CheckBox1214.Caption = Chr$(163) Then
    CheckBox1214.Caption = "R"
    globalBoolCheckBox1214Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1214.Caption = Chr$(163)
    globalBoolCheckBox1214Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1215_Click()
If CheckBox1215.Caption = Chr$(163) Then
    CheckBox1215.Caption = "R"
    globalBoolCheckBox1215Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1215.Caption = Chr$(163)
    globalBoolCheckBox1215Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1216_Click()
If CheckBox1216.Caption = Chr$(163) Then
    CheckBox1216.Caption = "R"
    globalBoolCheckBox1216Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1216.Caption = Chr$(163)
    globalBoolCheckBox1216Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1217_Click()
If CheckBox1217.Caption = Chr$(163) Then
    CheckBox1217.Caption = "R"
    globalBoolCheckBox1217Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1217.Caption = Chr$(163)
    globalBoolCheckBox1217Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1218_Click()
If CheckBox1218.Caption = Chr$(163) Then
    CheckBox1218.Caption = "R"
    globalBoolCheckBox1218Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1218.Caption = Chr$(163)
    globalBoolCheckBox1218Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1219_Click()
If CheckBox1219.Caption = Chr$(163) Then
    CheckBox1219.Caption = "R"
    globalBoolCheckBox1219Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1219.Caption = Chr$(163)
    globalBoolCheckBox1219Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1220_Click()
If CheckBox1220.Caption = Chr$(163) Then
    CheckBox1220.Caption = "R"
    globalBoolCheckBox1220Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1220.Caption = Chr$(163)
    globalBoolCheckBox1220Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1221_Click()
If CheckBox1221.Caption = Chr$(163) Then
    CheckBox1221.Caption = "R"
    globalBoolCheckBox1221Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1221.Caption = Chr$(163)
    globalBoolCheckBox1221Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1222_Click()
If CheckBox1222.Caption = Chr$(163) Then
    CheckBox1222.Caption = "R"
    globalBoolCheckBox1222Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1222.Caption = Chr$(163)
    globalBoolCheckBox1222Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1223_Click()
If CheckBox1223.Caption = Chr$(163) Then
    CheckBox1223.Caption = "R"
    globalBoolCheckBox1223Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1223.Caption = Chr$(163)
    globalBoolCheckBox1223Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1224_Click()
If CheckBox1224.Caption = Chr$(163) Then
    CheckBox1224.Caption = "R"
    globalBoolCheckBox1224Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1224.Caption = Chr$(163)
    globalBoolCheckBox1224Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1225_Click()
If CheckBox1225.Caption = Chr$(163) Then
    CheckBox1225.Caption = "R"
    globalBoolCheckBox1225Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1225.Caption = Chr$(163)
    globalBoolCheckBox1225Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1226_Click()
If CheckBox1226.Caption = Chr$(163) Then
    CheckBox1226.Caption = "R"
    globalBoolCheckBox1226Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1226.Caption = Chr$(163)
    globalBoolCheckBox1226Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1227_Click()
If CheckBox1227.Caption = Chr$(163) Then
    CheckBox1227.Caption = "R"
    globalBoolCheckBox1227Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1227.Caption = Chr$(163)
    globalBoolCheckBox1227Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1228_Click()
If CheckBox1228.Caption = Chr$(163) Then
    CheckBox1228.Caption = "R"
    globalBoolCheckBox1228Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1228.Caption = Chr$(163)
    globalBoolCheckBox1228Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1229_Click()
If CheckBox1229.Caption = Chr$(163) Then
    CheckBox1229.Caption = "R"
    globalBoolCheckBox1229Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1229.Caption = Chr$(163)
    globalBoolCheckBox1229Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1230_Click()
If CheckBox1230.Caption = Chr$(163) Then
    CheckBox1230.Caption = "R"
    globalBoolCheckBox1230Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1230.Caption = Chr$(163)
    globalBoolCheckBox1230Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1231_Click()
If CheckBox1231.Caption = Chr$(163) Then
    CheckBox1231.Caption = "R"
    globalBoolCheckBox1231Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1231.Caption = Chr$(163)
    globalBoolCheckBox1231Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1232_Click()
If CheckBox1232.Caption = Chr$(163) Then
    CheckBox1232.Caption = "R"
    globalBoolCheckBox1232Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1232.Caption = Chr$(163)
    globalBoolCheckBox1232Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1233_Click()
If CheckBox1233.Caption = Chr$(163) Then
    CheckBox1233.Caption = "R"
    globalBoolCheckBox1233Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1233.Caption = Chr$(163)
    globalBoolCheckBox1233Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1234_Click()
If CheckBox1234.Caption = Chr$(163) Then
    CheckBox1234.Caption = "R"
    globalBoolCheckBox1234Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1234.Caption = Chr$(163)
    globalBoolCheckBox1234Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1235_Click()
If CheckBox1235.Caption = Chr$(163) Then
    CheckBox1235.Caption = "R"
    globalBoolCheckBox1235Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1235.Caption = Chr$(163)
    globalBoolCheckBox1235Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1236_Click()
If CheckBox1236.Caption = Chr$(163) Then
    CheckBox1236.Caption = "R"
    globalBoolCheckBox1236Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1236.Caption = Chr$(163)
    globalBoolCheckBox1236Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1237_Click()
If CheckBox1237.Caption = Chr$(163) Then
    CheckBox1237.Caption = "R"
    globalBoolCheckBox1237Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1237.Caption = Chr$(163)
    globalBoolCheckBox1237Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1238_Click()
If CheckBox1238.Caption = Chr$(163) Then
    CheckBox1238.Caption = "R"
    globalBoolCheckBox1238Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1238.Caption = Chr$(163)
    globalBoolCheckBox1238Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1239_Click()
If CheckBox1239.Caption = Chr$(163) Then
    CheckBox1239.Caption = "R"
    globalBoolCheckBox1239Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1239.Caption = Chr$(163)
    globalBoolCheckBox1239Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1240_Click()
If CheckBox1240.Caption = Chr$(163) Then
    CheckBox1240.Caption = "R"
    globalBoolCheckBox1240Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1240.Caption = Chr$(163)
    globalBoolCheckBox1240Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1241_Click()
If CheckBox1241.Caption = Chr$(163) Then
    CheckBox1241.Caption = "R"
    globalBoolCheckBox1241Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1241.Caption = Chr$(163)
    globalBoolCheckBox1241Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1242_Click()
If CheckBox1242.Caption = Chr$(163) Then
    CheckBox1242.Caption = "R"
    globalBoolCheckBox1242Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1242.Caption = Chr$(163)
    globalBoolCheckBox1242Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1243_Click()
If CheckBox1243.Caption = Chr$(163) Then
    CheckBox1243.Caption = "R"
    globalBoolCheckBox1243Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1243.Caption = Chr$(163)
    globalBoolCheckBox1243Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1244_Click()
If CheckBox1244.Caption = Chr$(163) Then
    CheckBox1244.Caption = "R"
    globalBoolCheckBox1244Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1244.Caption = Chr$(163)
    globalBoolCheckBox1244Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1245_Click()
If CheckBox1245.Caption = Chr$(163) Then
    CheckBox1245.Caption = "R"
    globalBoolCheckBox1245Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1245.Caption = Chr$(163)
    globalBoolCheckBox1245Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1246_Click()
If CheckBox1246.Caption = Chr$(163) Then
    CheckBox1246.Caption = "R"
    globalBoolCheckBox1246Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1246.Caption = Chr$(163)
    globalBoolCheckBox1246Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1247_Click()
If CheckBox1247.Caption = Chr$(163) Then
    CheckBox1247.Caption = "R"
    globalBoolCheckBox1247Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1247.Caption = Chr$(163)
    globalBoolCheckBox1247Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1248_Click()
If CheckBox1248.Caption = Chr$(163) Then
    CheckBox1248.Caption = "R"
    globalBoolCheckBox1248Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1248.Caption = Chr$(163)
    globalBoolCheckBox1248Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1249_Click()
If CheckBox1249.Caption = Chr$(163) Then
    CheckBox1249.Caption = "R"
    globalBoolCheckBox1249Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1249.Caption = Chr$(163)
    globalBoolCheckBox1249Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1250_Click()
If CheckBox1250.Caption = Chr$(163) Then
    CheckBox1250.Caption = "R"
    globalBoolCheckBox1250Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1250.Caption = Chr$(163)
    globalBoolCheckBox1250Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1251_Click()
If CheckBox1251.Caption = Chr$(163) Then
    CheckBox1251.Caption = "R"
    globalBoolCheckBox1251Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1251.Caption = Chr$(163)
    globalBoolCheckBox1251Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1252_Click()
If CheckBox1252.Caption = Chr$(163) Then
    CheckBox1252.Caption = "R"
    globalBoolCheckBox1252Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1252.Caption = Chr$(163)
    globalBoolCheckBox1252Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1253_Click()
If CheckBox1253.Caption = Chr$(163) Then
    CheckBox1253.Caption = "R"
    globalBoolCheckBox1253Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1253.Caption = Chr$(163)
    globalBoolCheckBox1253Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1254_Click()
If CheckBox1254.Caption = Chr$(163) Then
    CheckBox1254.Caption = "R"
    globalBoolCheckBox1254Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1254.Caption = Chr$(163)
    globalBoolCheckBox1254Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1255_Click()
If CheckBox1255.Caption = Chr$(163) Then
    CheckBox1255.Caption = "R"
    globalBoolCheckBox1255Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1255.Caption = Chr$(163)
    globalBoolCheckBox1255Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1256_Click()
If CheckBox1256.Caption = Chr$(163) Then
    CheckBox1256.Caption = "R"
    globalBoolCheckBox1256Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1256.Caption = Chr$(163)
    globalBoolCheckBox1256Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1257_Click()
If CheckBox1257.Caption = Chr$(163) Then
    CheckBox1257.Caption = "R"
    globalBoolCheckBox1257Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1257.Caption = Chr$(163)
    globalBoolCheckBox1257Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1258_Click()
If CheckBox1258.Caption = Chr$(163) Then
    CheckBox1258.Caption = "R"
    globalBoolCheckBox1258Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1258.Caption = Chr$(163)
    globalBoolCheckBox1258Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1259_Click()
If CheckBox1259.Caption = Chr$(163) Then
    CheckBox1259.Caption = "R"
    globalBoolCheckBox1259Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1259.Caption = Chr$(163)
    globalBoolCheckBox1259Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1260_Click()
If CheckBox1260.Caption = Chr$(163) Then
    CheckBox1260.Caption = "R"
    globalBoolCheckBox1260Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1260.Caption = Chr$(163)
    globalBoolCheckBox1260Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1261_Click()
If CheckBox1261.Caption = Chr$(163) Then
    CheckBox1261.Caption = "R"
    globalBoolCheckBox1261Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1261.Caption = Chr$(163)
    globalBoolCheckBox1261Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1262_Click()
If CheckBox1262.Caption = Chr$(163) Then
    CheckBox1262.Caption = "R"
    globalBoolCheckBox1262Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1262.Caption = Chr$(163)
    globalBoolCheckBox1262Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1263_Click()
If CheckBox1263.Caption = Chr$(163) Then
    CheckBox1263.Caption = "R"
    globalBoolCheckBox1263Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1263.Caption = Chr$(163)
    globalBoolCheckBox1263Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1264_Click()
If CheckBox1264.Caption = Chr$(163) Then
    CheckBox1264.Caption = "R"
    globalBoolCheckBox1264Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1264.Caption = Chr$(163)
    globalBoolCheckBox1264Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1265_Click()
If CheckBox1265.Caption = Chr$(163) Then
    CheckBox1265.Caption = "R"
    globalBoolCheckBox1265Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1265.Caption = Chr$(163)
    globalBoolCheckBox1265Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1266_Click()
If CheckBox1266.Caption = Chr$(163) Then
    CheckBox1266.Caption = "R"
    globalBoolCheckBox1266Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1266.Caption = Chr$(163)
    globalBoolCheckBox1266Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1267_Click()
If CheckBox1267.Caption = Chr$(163) Then
    CheckBox1267.Caption = "R"
    globalBoolCheckBox1267Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1267.Caption = Chr$(163)
    globalBoolCheckBox1267Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1268_Click()
If CheckBox1268.Caption = Chr$(163) Then
    CheckBox1268.Caption = "R"
    globalBoolCheckBox1268Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1268.Caption = Chr$(163)
    globalBoolCheckBox1268Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1269_Click()
If CheckBox1269.Caption = Chr$(163) Then
    CheckBox1269.Caption = "R"
    globalBoolCheckBox1269Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1269.Caption = Chr$(163)
    globalBoolCheckBox1269Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1270_Click()
If CheckBox1270.Caption = Chr$(163) Then
    CheckBox1270.Caption = "R"
    globalBoolCheckBox1270Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1270.Caption = Chr$(163)
    globalBoolCheckBox1270Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1271_Click()
If CheckBox1271.Caption = Chr$(163) Then
    CheckBox1271.Caption = "R"
    globalBoolCheckBox1271Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1271.Caption = Chr$(163)
    globalBoolCheckBox1271Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1272_Click()
If CheckBox1272.Caption = Chr$(163) Then
    CheckBox1272.Caption = "R"
    globalBoolCheckBox1272Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1272.Caption = Chr$(163)
    globalBoolCheckBox1272Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1273_Click()
If CheckBox1273.Caption = Chr$(163) Then
    CheckBox1273.Caption = "R"
    globalBoolCheckBox1273Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1273.Caption = Chr$(163)
    globalBoolCheckBox1273Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1274_Click()
If CheckBox1274.Caption = Chr$(163) Then
    CheckBox1274.Caption = "R"
    globalBoolCheckBox1274Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1274.Caption = Chr$(163)
    globalBoolCheckBox1274Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1275_Click()
If CheckBox1275.Caption = Chr$(163) Then
    CheckBox1275.Caption = "R"
    globalBoolCheckBox1275Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1275.Caption = Chr$(163)
    globalBoolCheckBox1275Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1276_Click()
If CheckBox1276.Caption = Chr$(163) Then
    CheckBox1276.Caption = "R"
    globalBoolCheckBox1276Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1276.Caption = Chr$(163)
    globalBoolCheckBox1276Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1277_Click()
If CheckBox1277.Caption = Chr$(163) Then
    CheckBox1277.Caption = "R"
    globalBoolCheckBox1277Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1277.Caption = Chr$(163)
    globalBoolCheckBox1277Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1278_Click()
If CheckBox1278.Caption = Chr$(163) Then
    CheckBox1278.Caption = "R"
    globalBoolCheckBox1278Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1278.Caption = Chr$(163)
    globalBoolCheckBox1278Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1279_Click()
If CheckBox1279.Caption = Chr$(163) Then
    CheckBox1279.Caption = "R"
    globalBoolCheckBox1279Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1279.Caption = Chr$(163)
    globalBoolCheckBox1279Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1280_Click()
If CheckBox1280.Caption = Chr$(163) Then
    CheckBox1280.Caption = "R"
    globalBoolCheckBox1280Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1280.Caption = Chr$(163)
    globalBoolCheckBox1280Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1281_Click()
If CheckBox1281.Caption = Chr$(163) Then
    CheckBox1281.Caption = "R"
    globalBoolCheckBox1281Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1281.Caption = Chr$(163)
    globalBoolCheckBox1281Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1282_Click()
If CheckBox1282.Caption = Chr$(163) Then
    CheckBox1282.Caption = "R"
    globalBoolCheckBox1282Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1282.Caption = Chr$(163)
    globalBoolCheckBox1282Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1283_Click()
If CheckBox1283.Caption = Chr$(163) Then
    CheckBox1283.Caption = "R"
    globalBoolCheckBox1283Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1283.Caption = Chr$(163)
    globalBoolCheckBox1283Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1284_Click()
If CheckBox1284.Caption = Chr$(163) Then
    CheckBox1284.Caption = "R"
    globalBoolCheckBox1284Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1284.Caption = Chr$(163)
    globalBoolCheckBox1284Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1285_Click()
If CheckBox1285.Caption = Chr$(163) Then
    CheckBox1285.Caption = "R"
    globalBoolCheckBox1285Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1285.Caption = Chr$(163)
    globalBoolCheckBox1285Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1286_Click()
If CheckBox1286.Caption = Chr$(163) Then
    CheckBox1286.Caption = "R"
    globalBoolCheckBox1286Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1286.Caption = Chr$(163)
    globalBoolCheckBox1286Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1287_Click()
If CheckBox1287.Caption = Chr$(163) Then
    CheckBox1287.Caption = "R"
    globalBoolCheckBox1287Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1287.Caption = Chr$(163)
    globalBoolCheckBox1287Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1288_Click()
If CheckBox1288.Caption = Chr$(163) Then
    CheckBox1288.Caption = "R"
    globalBoolCheckBox1288Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1288.Caption = Chr$(163)
    globalBoolCheckBox1288Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1289_Click()
If CheckBox1289.Caption = Chr$(163) Then
    CheckBox1289.Caption = "R"
    globalBoolCheckBox1289Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1289.Caption = Chr$(163)
    globalBoolCheckBox1289Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1290_Click()
If CheckBox1290.Caption = Chr$(163) Then
    CheckBox1290.Caption = "R"
    globalBoolCheckBox1290Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1290.Caption = Chr$(163)
    globalBoolCheckBox1290Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1291_Click()
If CheckBox1291.Caption = Chr$(163) Then
    CheckBox1291.Caption = "R"
    globalBoolCheckBox1291Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1291.Caption = Chr$(163)
    globalBoolCheckBox1291Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1292_Click()
If CheckBox1292.Caption = Chr$(163) Then
    CheckBox1292.Caption = "R"
    globalBoolCheckBox1292Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1292.Caption = Chr$(163)
    globalBoolCheckBox1292Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1293_Click()
If CheckBox1293.Caption = Chr$(163) Then
    CheckBox1293.Caption = "R"
    globalBoolCheckBox1293Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1293.Caption = Chr$(163)
    globalBoolCheckBox1293Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1294_Click()
If CheckBox1294.Caption = Chr$(163) Then
    CheckBox1294.Caption = "R"
    globalBoolCheckBox1294Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1294.Caption = Chr$(163)
    globalBoolCheckBox1294Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1295_Click()
If CheckBox1295.Caption = Chr$(163) Then
    CheckBox1295.Caption = "R"
    globalBoolCheckBox1295Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1295.Caption = Chr$(163)
    globalBoolCheckBox1295Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1296_Click()
If CheckBox1296.Caption = Chr$(163) Then
    CheckBox1296.Caption = "R"
    globalBoolCheckBox1296Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1296.Caption = Chr$(163)
    globalBoolCheckBox1296Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1297_Click()
If CheckBox1297.Caption = Chr$(163) Then
    CheckBox1297.Caption = "R"
    globalBoolCheckBox1297Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1297.Caption = Chr$(163)
    globalBoolCheckBox1297Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1298_Click()
If CheckBox1298.Caption = Chr$(163) Then
    CheckBox1298.Caption = "R"
    globalBoolCheckBox1298Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1298.Caption = Chr$(163)
    globalBoolCheckBox1298Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1299_Click()
If CheckBox1299.Caption = Chr$(163) Then
    CheckBox1299.Caption = "R"
    globalBoolCheckBox1299Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1299.Caption = Chr$(163)
    globalBoolCheckBox1299Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1300_Click()
If CheckBox1300.Caption = Chr$(163) Then
    CheckBox1300.Caption = "R"
    globalBoolCheckBox1300Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1300.Caption = Chr$(163)
    globalBoolCheckBox1300Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1301_Click()
If CheckBox1301.Caption = Chr$(163) Then
    CheckBox1301.Caption = "R"
    globalBoolCheckBox1301Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1301.Caption = Chr$(163)
    globalBoolCheckBox1301Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1302_Click()
If CheckBox1302.Caption = Chr$(163) Then
    CheckBox1302.Caption = "R"
    globalBoolCheckBox1302Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1302.Caption = Chr$(163)
    globalBoolCheckBox1302Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1303_Click()
If CheckBox1303.Caption = Chr$(163) Then
    CheckBox1303.Caption = "R"
    globalBoolCheckBox1303Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1303.Caption = Chr$(163)
    globalBoolCheckBox1303Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1304_Click()
If CheckBox1304.Caption = Chr$(163) Then
    CheckBox1304.Caption = "R"
    globalBoolCheckBox1304Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1304.Caption = Chr$(163)
    globalBoolCheckBox1304Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1305_Click()
If CheckBox1305.Caption = Chr$(163) Then
    CheckBox1305.Caption = "R"
    globalBoolCheckBox1305Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1305.Caption = Chr$(163)
    globalBoolCheckBox1305Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1306_Click()
If CheckBox1306.Caption = Chr$(163) Then
    CheckBox1306.Caption = "R"
    globalBoolCheckBox1306Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1306.Caption = Chr$(163)
    globalBoolCheckBox1306Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1307_Click()
If CheckBox1307.Caption = Chr$(163) Then
    CheckBox1307.Caption = "R"
    globalBoolCheckBox1307Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1307.Caption = Chr$(163)
    globalBoolCheckBox1307Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1308_Click()
If CheckBox1308.Caption = Chr$(163) Then
    CheckBox1308.Caption = "R"
    globalBoolCheckBox1308Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1308.Caption = Chr$(163)
    globalBoolCheckBox1308Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1309_Click()
If CheckBox1309.Caption = Chr$(163) Then
    CheckBox1309.Caption = "R"
    globalBoolCheckBox1309Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1309.Caption = Chr$(163)
    globalBoolCheckBox1309Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1310_Click()
If CheckBox1310.Caption = Chr$(163) Then
    CheckBox1310.Caption = "R"
    globalBoolCheckBox1310Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1310.Caption = Chr$(163)
    globalBoolCheckBox1310Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1311_Click()
If CheckBox1311.Caption = Chr$(163) Then
    CheckBox1311.Caption = "R"
    globalBoolCheckBox1311Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1311.Caption = Chr$(163)
    globalBoolCheckBox1311Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1312_Click()
If CheckBox1312.Caption = Chr$(163) Then
    CheckBox1312.Caption = "R"
    globalBoolCheckBox1312Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1312.Caption = Chr$(163)
    globalBoolCheckBox1312Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1313_Click()
If CheckBox1313.Caption = Chr$(163) Then
    CheckBox1313.Caption = "R"
    globalBoolCheckBox1313Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1313.Caption = Chr$(163)
    globalBoolCheckBox1313Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1314_Click()
If CheckBox1314.Caption = Chr$(163) Then
    CheckBox1314.Caption = "R"
    globalBoolCheckBox1314Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1314.Caption = Chr$(163)
    globalBoolCheckBox1314Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1315_Click()
If CheckBox1315.Caption = Chr$(163) Then
    CheckBox1315.Caption = "R"
    globalBoolCheckBox1315Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1315.Caption = Chr$(163)
    globalBoolCheckBox1315Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1316_Click()
If CheckBox1316.Caption = Chr$(163) Then
    CheckBox1316.Caption = "R"
    globalBoolCheckBox1316Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1316.Caption = Chr$(163)
    globalBoolCheckBox1316Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1317_Click()
If CheckBox1317.Caption = Chr$(163) Then
    CheckBox1317.Caption = "R"
    globalBoolCheckBox1317Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1317.Caption = Chr$(163)
    globalBoolCheckBox1317Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1318_Click()
If CheckBox1318.Caption = Chr$(163) Then
    CheckBox1318.Caption = "R"
    globalBoolCheckBox1318Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1318.Caption = Chr$(163)
    globalBoolCheckBox1318Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1319_Click()
If CheckBox1319.Caption = Chr$(163) Then
    CheckBox1319.Caption = "R"
    globalBoolCheckBox1319Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1319.Caption = Chr$(163)
    globalBoolCheckBox1319Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1320_Click()
If CheckBox1320.Caption = Chr$(163) Then
    CheckBox1320.Caption = "R"
    globalBoolCheckBox1320Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1320.Caption = Chr$(163)
    globalBoolCheckBox1320Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1321_Click()
If CheckBox1321.Caption = Chr$(163) Then
    CheckBox1321.Caption = "R"
    globalBoolCheckBox1321Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1321.Caption = Chr$(163)
    globalBoolCheckBox1321Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1322_Click()
If CheckBox1322.Caption = Chr$(163) Then
    CheckBox1322.Caption = "R"
    globalBoolCheckBox1322Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1322.Caption = Chr$(163)
    globalBoolCheckBox1322Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1323_Click()
If CheckBox1323.Caption = Chr$(163) Then
    CheckBox1323.Caption = "R"
    globalBoolCheckBox1323Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1323.Caption = Chr$(163)
    globalBoolCheckBox1323Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1324_Click()
If CheckBox1324.Caption = Chr$(163) Then
    CheckBox1324.Caption = "R"
    globalBoolCheckBox1324Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1324.Caption = Chr$(163)
    globalBoolCheckBox1324Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1325_Click()
If CheckBox1325.Caption = Chr$(163) Then
    CheckBox1325.Caption = "R"
    globalBoolCheckBox1325Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1325.Caption = Chr$(163)
    globalBoolCheckBox1325Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1326_Click()
If CheckBox1326.Caption = Chr$(163) Then
    CheckBox1326.Caption = "R"
    globalBoolCheckBox1326Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1326.Caption = Chr$(163)
    globalBoolCheckBox1326Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1327_Click()
If CheckBox1327.Caption = Chr$(163) Then
    CheckBox1327.Caption = "R"
    globalBoolCheckBox1327Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1327.Caption = Chr$(163)
    globalBoolCheckBox1327Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1328_Click()
If CheckBox1328.Caption = Chr$(163) Then
    CheckBox1328.Caption = "R"
    globalBoolCheckBox1328Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1328.Caption = Chr$(163)
    globalBoolCheckBox1328Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1329_Click()
If CheckBox1329.Caption = Chr$(163) Then
    CheckBox1329.Caption = "R"
    globalBoolCheckBox1329Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1329.Caption = Chr$(163)
    globalBoolCheckBox1329Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1330_Click()
If CheckBox1330.Caption = Chr$(163) Then
    CheckBox1330.Caption = "R"
    globalBoolCheckBox1330Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1330.Caption = Chr$(163)
    globalBoolCheckBox1330Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1331_Click()
If CheckBox1331.Caption = Chr$(163) Then
    CheckBox1331.Caption = "R"
    globalBoolCheckBox1331Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1331.Caption = Chr$(163)
    globalBoolCheckBox1331Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1332_Click()
If CheckBox1332.Caption = Chr$(163) Then
    CheckBox1332.Caption = "R"
    globalBoolCheckBox1332Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1332.Caption = Chr$(163)
    globalBoolCheckBox1332Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1333_Click()
If CheckBox1333.Caption = Chr$(163) Then
    CheckBox1333.Caption = "R"
    globalBoolCheckBox1333Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1333.Caption = Chr$(163)
    globalBoolCheckBox1333Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1334_Click()
If CheckBox1334.Caption = Chr$(163) Then
    CheckBox1334.Caption = "R"
    globalBoolCheckBox1334Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1334.Caption = Chr$(163)
    globalBoolCheckBox1334Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1335_Click()
If CheckBox1335.Caption = Chr$(163) Then
    CheckBox1335.Caption = "R"
    globalBoolCheckBox1335Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1335.Caption = Chr$(163)
    globalBoolCheckBox1335Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1336_Click()
If CheckBox1336.Caption = Chr$(163) Then
    CheckBox1336.Caption = "R"
    globalBoolCheckBox1336Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1336.Caption = Chr$(163)
    globalBoolCheckBox1336Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1337_Click()
If CheckBox1337.Caption = Chr$(163) Then
    CheckBox1337.Caption = "R"
    globalBoolCheckBox1337Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1337.Caption = Chr$(163)
    globalBoolCheckBox1337Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1338_Click()
If CheckBox1338.Caption = Chr$(163) Then
    CheckBox1338.Caption = "R"
    globalBoolCheckBox1338Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1338.Caption = Chr$(163)
    globalBoolCheckBox1338Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1339_Click()
If CheckBox1339.Caption = Chr$(163) Then
    CheckBox1339.Caption = "R"
    globalBoolCheckBox1339Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1339.Caption = Chr$(163)
    globalBoolCheckBox1339Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1340_Click()
If CheckBox1340.Caption = Chr$(163) Then
    CheckBox1340.Caption = "R"
    globalBoolCheckBox1340Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1340.Caption = Chr$(163)
    globalBoolCheckBox1340Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1341_Click()
If CheckBox1341.Caption = Chr$(163) Then
    CheckBox1341.Caption = "R"
    globalBoolCheckBox1341Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1341.Caption = Chr$(163)
    globalBoolCheckBox1341Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1342_Click()
If CheckBox1342.Caption = Chr$(163) Then
    CheckBox1342.Caption = "R"
    globalBoolCheckBox1342Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1342.Caption = Chr$(163)
    globalBoolCheckBox1342Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1343_Click()
If CheckBox1343.Caption = Chr$(163) Then
    CheckBox1343.Caption = "R"
    globalBoolCheckBox1343Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1343.Caption = Chr$(163)
    globalBoolCheckBox1343Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1344_Click()
If CheckBox1344.Caption = Chr$(163) Then
    CheckBox1344.Caption = "R"
    globalBoolCheckBox1344Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1344.Caption = Chr$(163)
    globalBoolCheckBox1344Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1345_Click()
If CheckBox1345.Caption = Chr$(163) Then
    CheckBox1345.Caption = "R"
    globalBoolCheckBox1345Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1345.Caption = Chr$(163)
    globalBoolCheckBox1345Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1346_Click()
If CheckBox1346.Caption = Chr$(163) Then
    CheckBox1346.Caption = "R"
    globalBoolCheckBox1346Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1346.Caption = Chr$(163)
    globalBoolCheckBox1346Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1347_Click()
If CheckBox1347.Caption = Chr$(163) Then
    CheckBox1347.Caption = "R"
    globalBoolCheckBox1347Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1347.Caption = Chr$(163)
    globalBoolCheckBox1347Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1348_Click()
If CheckBox1348.Caption = Chr$(163) Then
    CheckBox1348.Caption = "R"
    globalBoolCheckBox1348Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1348.Caption = Chr$(163)
    globalBoolCheckBox1348Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1349_Click()
If CheckBox1349.Caption = Chr$(163) Then
    CheckBox1349.Caption = "R"
    globalBoolCheckBox1349Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1349.Caption = Chr$(163)
    globalBoolCheckBox1349Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1350_Click()
If CheckBox1350.Caption = Chr$(163) Then
    CheckBox1350.Caption = "R"
    globalBoolCheckBox1350Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1350.Caption = Chr$(163)
    globalBoolCheckBox1350Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1351_Click()
If CheckBox1351.Caption = Chr$(163) Then
    CheckBox1351.Caption = "R"
    globalBoolCheckBox1351Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1351.Caption = Chr$(163)
    globalBoolCheckBox1351Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1352_Click()
If CheckBox1352.Caption = Chr$(163) Then
    CheckBox1352.Caption = "R"
    globalBoolCheckBox1352Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1352.Caption = Chr$(163)
    globalBoolCheckBox1352Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1353_Click()
If CheckBox1353.Caption = Chr$(163) Then
    CheckBox1353.Caption = "R"
    globalBoolCheckBox1353Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1353.Caption = Chr$(163)
    globalBoolCheckBox1353Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1354_Click()
If CheckBox1354.Caption = Chr$(163) Then
    CheckBox1354.Caption = "R"
    globalBoolCheckBox1354Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1354.Caption = Chr$(163)
    globalBoolCheckBox1354Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1355_Click()
If CheckBox1355.Caption = Chr$(163) Then
    CheckBox1355.Caption = "R"
    globalBoolCheckBox1355Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1355.Caption = Chr$(163)
    globalBoolCheckBox1355Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1356_Click()
If CheckBox1356.Caption = Chr$(163) Then
    CheckBox1356.Caption = "R"
    globalBoolCheckBox1356Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1356.Caption = Chr$(163)
    globalBoolCheckBox1356Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1357_Click()
If CheckBox1357.Caption = Chr$(163) Then
    CheckBox1357.Caption = "R"
    globalBoolCheckBox1357Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1357.Caption = Chr$(163)
    globalBoolCheckBox1357Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1358_Click()
If CheckBox1358.Caption = Chr$(163) Then
    CheckBox1358.Caption = "R"
    globalBoolCheckBox1358Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1358.Caption = Chr$(163)
    globalBoolCheckBox1358Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1359_Click()
If CheckBox1359.Caption = Chr$(163) Then
    CheckBox1359.Caption = "R"
    globalBoolCheckBox1359Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1359.Caption = Chr$(163)
    globalBoolCheckBox1359Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1360_Click()
If CheckBox1360.Caption = Chr$(163) Then
    CheckBox1360.Caption = "R"
    globalBoolCheckBox1360Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1360.Caption = Chr$(163)
    globalBoolCheckBox1360Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1361_Click()
If CheckBox1361.Caption = Chr$(163) Then
    CheckBox1361.Caption = "R"
    globalBoolCheckBox1361Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1361.Caption = Chr$(163)
    globalBoolCheckBox1361Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1362_Click()
If CheckBox1362.Caption = Chr$(163) Then
    CheckBox1362.Caption = "R"
    globalBoolCheckBox1362Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1362.Caption = Chr$(163)
    globalBoolCheckBox1362Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1363_Click()
If CheckBox1363.Caption = Chr$(163) Then
    CheckBox1363.Caption = "R"
    globalBoolCheckBox1363Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1363.Caption = Chr$(163)
    globalBoolCheckBox1363Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1364_Click()
If CheckBox1364.Caption = Chr$(163) Then
    CheckBox1364.Caption = "R"
    globalBoolCheckBox1364Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1364.Caption = Chr$(163)
    globalBoolCheckBox1364Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1365_Click()
If CheckBox1365.Caption = Chr$(163) Then
    CheckBox1365.Caption = "R"
    globalBoolCheckBox1365Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1365.Caption = Chr$(163)
    globalBoolCheckBox1365Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1366_Click()
If CheckBox1366.Caption = Chr$(163) Then
    CheckBox1366.Caption = "R"
    globalBoolCheckBox1366Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1366.Caption = Chr$(163)
    globalBoolCheckBox1366Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1367_Click()
If CheckBox1367.Caption = Chr$(163) Then
    CheckBox1367.Caption = "R"
    globalBoolCheckBox1367Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1367.Caption = Chr$(163)
    globalBoolCheckBox1367Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1368_Click()
If CheckBox1368.Caption = Chr$(163) Then
    CheckBox1368.Caption = "R"
    globalBoolCheckBox1368Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1368.Caption = Chr$(163)
    globalBoolCheckBox1368Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1369_Click()
If CheckBox1369.Caption = Chr$(163) Then
    CheckBox1369.Caption = "R"
    globalBoolCheckBox1369Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1369.Caption = Chr$(163)
    globalBoolCheckBox1369Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1370_Click()
If CheckBox1370.Caption = Chr$(163) Then
    CheckBox1370.Caption = "R"
    globalBoolCheckBox1370Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1370.Caption = Chr$(163)
    globalBoolCheckBox1370Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1371_Click()
If CheckBox1371.Caption = Chr$(163) Then
    CheckBox1371.Caption = "R"
    globalBoolCheckBox1371Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1371.Caption = Chr$(163)
    globalBoolCheckBox1371Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1372_Click()
If CheckBox1372.Caption = Chr$(163) Then
    CheckBox1372.Caption = "R"
    globalBoolCheckBox1372Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1372.Caption = Chr$(163)
    globalBoolCheckBox1372Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1373_Click()
If CheckBox1373.Caption = Chr$(163) Then
    CheckBox1373.Caption = "R"
    globalBoolCheckBox1373Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1373.Caption = Chr$(163)
    globalBoolCheckBox1373Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1374_Click()
If CheckBox1374.Caption = Chr$(163) Then
    CheckBox1374.Caption = "R"
    globalBoolCheckBox1374Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1374.Caption = Chr$(163)
    globalBoolCheckBox1374Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1375_Click()
If CheckBox1375.Caption = Chr$(163) Then
    CheckBox1375.Caption = "R"
    globalBoolCheckBox1375Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1375.Caption = Chr$(163)
    globalBoolCheckBox1375Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1376_Click()
If CheckBox1376.Caption = Chr$(163) Then
    CheckBox1376.Caption = "R"
    globalBoolCheckBox1376Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1376.Caption = Chr$(163)
    globalBoolCheckBox1376Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1377_Click()
If CheckBox1377.Caption = Chr$(163) Then
    CheckBox1377.Caption = "R"
    globalBoolCheckBox1377Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1377.Caption = Chr$(163)
    globalBoolCheckBox1377Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1378_Click()
If CheckBox1378.Caption = Chr$(163) Then
    CheckBox1378.Caption = "R"
    globalBoolCheckBox1378Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1378.Caption = Chr$(163)
    globalBoolCheckBox1378Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1379_Click()
If CheckBox1379.Caption = Chr$(163) Then
    CheckBox1379.Caption = "R"
    globalBoolCheckBox1379Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1379.Caption = Chr$(163)
    globalBoolCheckBox1379Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1380_Click()
If CheckBox1380.Caption = Chr$(163) Then
    CheckBox1380.Caption = "R"
    globalBoolCheckBox1380Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1380.Caption = Chr$(163)
    globalBoolCheckBox1380Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1381_Click()
If CheckBox1381.Caption = Chr$(163) Then
    CheckBox1381.Caption = "R"
    globalBoolCheckBox1381Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1381.Caption = Chr$(163)
    globalBoolCheckBox1381Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1382_Click()
If CheckBox1382.Caption = Chr$(163) Then
    CheckBox1382.Caption = "R"
    globalBoolCheckBox1382Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1382.Caption = Chr$(163)
    globalBoolCheckBox1382Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1383_Click()
If CheckBox1383.Caption = Chr$(163) Then
    CheckBox1383.Caption = "R"
    globalBoolCheckBox1383Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1383.Caption = Chr$(163)
    globalBoolCheckBox1383Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1384_Click()
If CheckBox1384.Caption = Chr$(163) Then
    CheckBox1384.Caption = "R"
    globalBoolCheckBox1384Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1384.Caption = Chr$(163)
    globalBoolCheckBox1384Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1385_Click()
If CheckBox1385.Caption = Chr$(163) Then
    CheckBox1385.Caption = "R"
    globalBoolCheckBox1385Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1385.Caption = Chr$(163)
    globalBoolCheckBox1385Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1386_Click()
If CheckBox1386.Caption = Chr$(163) Then
    CheckBox1386.Caption = "R"
    globalBoolCheckBox1386Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1386.Caption = Chr$(163)
    globalBoolCheckBox1386Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1387_Click()
If CheckBox1387.Caption = Chr$(163) Then
    CheckBox1387.Caption = "R"
    globalBoolCheckBox1387Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1387.Caption = Chr$(163)
    globalBoolCheckBox1387Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1388_Click()
If CheckBox1388.Caption = Chr$(163) Then
    CheckBox1388.Caption = "R"
    globalBoolCheckBox1388Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1388.Caption = Chr$(163)
    globalBoolCheckBox1388Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1389_Click()
If CheckBox1389.Caption = Chr$(163) Then
    CheckBox1389.Caption = "R"
    globalBoolCheckBox1389Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1389.Caption = Chr$(163)
    globalBoolCheckBox1389Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1390_Click()
If CheckBox1390.Caption = Chr$(163) Then
    CheckBox1390.Caption = "R"
    globalBoolCheckBox1390Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1390.Caption = Chr$(163)
    globalBoolCheckBox1390Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1391_Click()
If CheckBox1391.Caption = Chr$(163) Then
    CheckBox1391.Caption = "R"
    globalBoolCheckBox1391Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1391.Caption = Chr$(163)
    globalBoolCheckBox1391Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1392_Click()
If CheckBox1392.Caption = Chr$(163) Then
    CheckBox1392.Caption = "R"
    globalBoolCheckBox1392Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1392.Caption = Chr$(163)
    globalBoolCheckBox1392Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1393_Click()
If CheckBox1393.Caption = Chr$(163) Then
    CheckBox1393.Caption = "R"
    globalBoolCheckBox1393Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1393.Caption = Chr$(163)
    globalBoolCheckBox1393Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1394_Click()
If CheckBox1394.Caption = Chr$(163) Then
    CheckBox1394.Caption = "R"
    globalBoolCheckBox1394Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1394.Caption = Chr$(163)
    globalBoolCheckBox1394Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1395_Click()
If CheckBox1395.Caption = Chr$(163) Then
    CheckBox1395.Caption = "R"
    globalBoolCheckBox1395Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1395.Caption = Chr$(163)
    globalBoolCheckBox1395Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1396_Click()
If CheckBox1396.Caption = Chr$(163) Then
    CheckBox1396.Caption = "R"
    globalBoolCheckBox1396Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1396.Caption = Chr$(163)
    globalBoolCheckBox1396Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1397_Click()
If CheckBox1397.Caption = Chr$(163) Then
    CheckBox1397.Caption = "R"
    globalBoolCheckBox1397Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1397.Caption = Chr$(163)
    globalBoolCheckBox1397Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1398_Click()
If CheckBox1398.Caption = Chr$(163) Then
    CheckBox1398.Caption = "R"
    globalBoolCheckBox1398Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1398.Caption = Chr$(163)
    globalBoolCheckBox1398Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1399_Click()
If CheckBox1399.Caption = Chr$(163) Then
    CheckBox1399.Caption = "R"
    globalBoolCheckBox1399Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1399.Caption = Chr$(163)
    globalBoolCheckBox1399Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1400_Click()
If CheckBox1400.Caption = Chr$(163) Then
    CheckBox1400.Caption = "R"
    globalBoolCheckBox1400Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1400.Caption = Chr$(163)
    globalBoolCheckBox1400Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1401_Click()
If CheckBox1401.Caption = Chr$(163) Then
    CheckBox1401.Caption = "R"
    globalBoolCheckBox1401Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1401.Caption = Chr$(163)
    globalBoolCheckBox1401Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1402_Click()
If CheckBox1402.Caption = Chr$(163) Then
    CheckBox1402.Caption = "R"
    globalBoolCheckBox1402Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1402.Caption = Chr$(163)
    globalBoolCheckBox1402Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1403_Click()
If CheckBox1403.Caption = Chr$(163) Then
    CheckBox1403.Caption = "R"
    globalBoolCheckBox1403Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1403.Caption = Chr$(163)
    globalBoolCheckBox1403Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1404_Click()
If CheckBox1404.Caption = Chr$(163) Then
    CheckBox1404.Caption = "R"
    globalBoolCheckBox1404Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1404.Caption = Chr$(163)
    globalBoolCheckBox1404Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1405_Click()
If CheckBox1405.Caption = Chr$(163) Then
    CheckBox1405.Caption = "R"
    globalBoolCheckBox1405Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1405.Caption = Chr$(163)
    globalBoolCheckBox1405Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1406_Click()
If CheckBox1406.Caption = Chr$(163) Then
    CheckBox1406.Caption = "R"
    globalBoolCheckBox1406Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1406.Caption = Chr$(163)
    globalBoolCheckBox1406Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1407_Click()
If CheckBox1407.Caption = Chr$(163) Then
    CheckBox1407.Caption = "R"
    globalBoolCheckBox1407Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1407.Caption = Chr$(163)
    globalBoolCheckBox1407Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1408_Click()
If CheckBox1408.Caption = Chr$(163) Then
    CheckBox1408.Caption = "R"
    globalBoolCheckBox1408Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1408.Caption = Chr$(163)
    globalBoolCheckBox1408Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1409_Click()
If CheckBox1409.Caption = Chr$(163) Then
    CheckBox1409.Caption = "R"
    globalBoolCheckBox1409Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1409.Caption = Chr$(163)
    globalBoolCheckBox1409Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1410_Click()
If CheckBox1410.Caption = Chr$(163) Then
    CheckBox1410.Caption = "R"
    globalBoolCheckBox1410Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1410.Caption = Chr$(163)
    globalBoolCheckBox1410Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1411_Click()
If CheckBox1411.Caption = Chr$(163) Then
    CheckBox1411.Caption = "R"
    globalBoolCheckBox1411Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1411.Caption = Chr$(163)
    globalBoolCheckBox1411Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1412_Click()
If CheckBox1412.Caption = Chr$(163) Then
    CheckBox1412.Caption = "R"
    globalBoolCheckBox1412Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1412.Caption = Chr$(163)
    globalBoolCheckBox1412Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1413_Click()
If CheckBox1413.Caption = Chr$(163) Then
    CheckBox1413.Caption = "R"
    globalBoolCheckBox1413Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1413.Caption = Chr$(163)
    globalBoolCheckBox1413Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1414_Click()
If CheckBox1414.Caption = Chr$(163) Then
    CheckBox1414.Caption = "R"
    globalBoolCheckBox1414Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1414.Caption = Chr$(163)
    globalBoolCheckBox1414Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1415_Click()
If CheckBox1415.Caption = Chr$(163) Then
    CheckBox1415.Caption = "R"
    globalBoolCheckBox1415Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1415.Caption = Chr$(163)
    globalBoolCheckBox1415Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1416_Click()
If CheckBox1416.Caption = Chr$(163) Then
    CheckBox1416.Caption = "R"
    globalBoolCheckBox1416Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1416.Caption = Chr$(163)
    globalBoolCheckBox1416Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1417_Click()
If CheckBox1417.Caption = Chr$(163) Then
    CheckBox1417.Caption = "R"
    globalBoolCheckBox1417Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1417.Caption = Chr$(163)
    globalBoolCheckBox1417Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1418_Click()
If CheckBox1418.Caption = Chr$(163) Then
    CheckBox1418.Caption = "R"
    globalBoolCheckBox1418Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1418.Caption = Chr$(163)
    globalBoolCheckBox1418Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1419_Click()
If CheckBox1419.Caption = Chr$(163) Then
    CheckBox1419.Caption = "R"
    globalBoolCheckBox1419Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1419.Caption = Chr$(163)
    globalBoolCheckBox1419Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1420_Click()
If CheckBox1420.Caption = Chr$(163) Then
    CheckBox1420.Caption = "R"
    globalBoolCheckBox1420Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1420.Caption = Chr$(163)
    globalBoolCheckBox1420Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1421_Click()
If CheckBox1421.Caption = Chr$(163) Then
    CheckBox1421.Caption = "R"
    globalBoolCheckBox1421Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1421.Caption = Chr$(163)
    globalBoolCheckBox1421Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1422_Click()
If CheckBox1422.Caption = Chr$(163) Then
    CheckBox1422.Caption = "R"
    globalBoolCheckBox1422Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1422.Caption = Chr$(163)
    globalBoolCheckBox1422Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1423_Click()
If CheckBox1423.Caption = Chr$(163) Then
    CheckBox1423.Caption = "R"
    globalBoolCheckBox1423Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1423.Caption = Chr$(163)
    globalBoolCheckBox1423Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1424_Click()
If CheckBox1424.Caption = Chr$(163) Then
    CheckBox1424.Caption = "R"
    globalBoolCheckBox1424Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1424.Caption = Chr$(163)
    globalBoolCheckBox1424Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1425_Click()
If CheckBox1425.Caption = Chr$(163) Then
    CheckBox1425.Caption = "R"
    globalBoolCheckBox1425Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1425.Caption = Chr$(163)
    globalBoolCheckBox1425Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1426_Click()
If CheckBox1426.Caption = Chr$(163) Then
    CheckBox1426.Caption = "R"
    globalBoolCheckBox1426Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1426.Caption = Chr$(163)
    globalBoolCheckBox1426Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1427_Click()
If CheckBox1427.Caption = Chr$(163) Then
    CheckBox1427.Caption = "R"
    globalBoolCheckBox1427Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1427.Caption = Chr$(163)
    globalBoolCheckBox1427Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1428_Click()
If CheckBox1428.Caption = Chr$(163) Then
    CheckBox1428.Caption = "R"
    globalBoolCheckBox1428Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1428.Caption = Chr$(163)
    globalBoolCheckBox1428Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1429_Click()
If CheckBox1429.Caption = Chr$(163) Then
    CheckBox1429.Caption = "R"
    globalBoolCheckBox1429Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1429.Caption = Chr$(163)
    globalBoolCheckBox1429Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1430_Click()
If CheckBox1430.Caption = Chr$(163) Then
    CheckBox1430.Caption = "R"
    globalBoolCheckBox1430Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1430.Caption = Chr$(163)
    globalBoolCheckBox1430Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1431_Click()
If CheckBox1431.Caption = Chr$(163) Then
    CheckBox1431.Caption = "R"
    globalBoolCheckBox1431Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1431.Caption = Chr$(163)
    globalBoolCheckBox1431Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1432_Click()
If CheckBox1432.Caption = Chr$(163) Then
    CheckBox1432.Caption = "R"
    globalBoolCheckBox1432Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1432.Caption = Chr$(163)
    globalBoolCheckBox1432Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1433_Click()
If CheckBox1433.Caption = Chr$(163) Then
    CheckBox1433.Caption = "R"
    globalBoolCheckBox1433Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1433.Caption = Chr$(163)
    globalBoolCheckBox1433Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1434_Click()
If CheckBox1434.Caption = Chr$(163) Then
    CheckBox1434.Caption = "R"
    globalBoolCheckBox1434Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1434.Caption = Chr$(163)
    globalBoolCheckBox1434Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1435_Click()
If CheckBox1435.Caption = Chr$(163) Then
    CheckBox1435.Caption = "R"
    globalBoolCheckBox1435Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1435.Caption = Chr$(163)
    globalBoolCheckBox1435Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1436_Click()
If CheckBox1436.Caption = Chr$(163) Then
    CheckBox1436.Caption = "R"
    globalBoolCheckBox1436Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1436.Caption = Chr$(163)
    globalBoolCheckBox1436Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1437_Click()
If CheckBox1437.Caption = Chr$(163) Then
    CheckBox1437.Caption = "R"
    globalBoolCheckBox1437Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1437.Caption = Chr$(163)
    globalBoolCheckBox1437Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1438_Click()
If CheckBox1438.Caption = Chr$(163) Then
    CheckBox1438.Caption = "R"
    globalBoolCheckBox1438Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1438.Caption = Chr$(163)
    globalBoolCheckBox1438Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1439_Click()
If CheckBox1439.Caption = Chr$(163) Then
    CheckBox1439.Caption = "R"
    globalBoolCheckBox1439Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1439.Caption = Chr$(163)
    globalBoolCheckBox1439Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1440_Click()
If CheckBox1440.Caption = Chr$(163) Then
    CheckBox1440.Caption = "R"
    globalBoolCheckBox1440Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1440.Caption = Chr$(163)
    globalBoolCheckBox1440Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1441_Click()
If CheckBox1441.Caption = Chr$(163) Then
    CheckBox1441.Caption = "R"
    globalBoolCheckBox1441Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1441.Caption = Chr$(163)
    globalBoolCheckBox1441Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1442_Click()
If CheckBox1442.Caption = Chr$(163) Then
    CheckBox1442.Caption = "R"
    globalBoolCheckBox1442Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1442.Caption = Chr$(163)
    globalBoolCheckBox1442Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1443_Click()
If CheckBox1443.Caption = Chr$(163) Then
    CheckBox1443.Caption = "R"
    globalBoolCheckBox1443Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1443.Caption = Chr$(163)
    globalBoolCheckBox1443Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1444_Click()
If CheckBox1444.Caption = Chr$(163) Then
    CheckBox1444.Caption = "R"
    globalBoolCheckBox1444Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1444.Caption = Chr$(163)
    globalBoolCheckBox1444Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1445_Click()
If CheckBox1445.Caption = Chr$(163) Then
    CheckBox1445.Caption = "R"
    globalBoolCheckBox1445Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1445.Caption = Chr$(163)
    globalBoolCheckBox1445Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1446_Click()
If CheckBox1446.Caption = Chr$(163) Then
    CheckBox1446.Caption = "R"
    globalBoolCheckBox1446Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1446.Caption = Chr$(163)
    globalBoolCheckBox1446Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1447_Click()
If CheckBox1447.Caption = Chr$(163) Then
    CheckBox1447.Caption = "R"
    globalBoolCheckBox1447Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1447.Caption = Chr$(163)
    globalBoolCheckBox1447Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1448_Click()
If CheckBox1448.Caption = Chr$(163) Then
    CheckBox1448.Caption = "R"
    globalBoolCheckBox1448Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1448.Caption = Chr$(163)
    globalBoolCheckBox1448Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1449_Click()
If CheckBox1449.Caption = Chr$(163) Then
    CheckBox1449.Caption = "R"
    globalBoolCheckBox1449Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1449.Caption = Chr$(163)
    globalBoolCheckBox1449Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1450_Click()
If CheckBox1450.Caption = Chr$(163) Then
    CheckBox1450.Caption = "R"
    globalBoolCheckBox1450Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1450.Caption = Chr$(163)
    globalBoolCheckBox1450Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1451_Click()
If CheckBox1451.Caption = Chr$(163) Then
    CheckBox1451.Caption = "R"
    globalBoolCheckBox1451Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1451.Caption = Chr$(163)
    globalBoolCheckBox1451Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1452_Click()
If CheckBox1452.Caption = Chr$(163) Then
    CheckBox1452.Caption = "R"
    globalBoolCheckBox1452Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1452.Caption = Chr$(163)
    globalBoolCheckBox1452Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1453_Click()
If CheckBox1453.Caption = Chr$(163) Then
    CheckBox1453.Caption = "R"
    globalBoolCheckBox1453Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1453.Caption = Chr$(163)
    globalBoolCheckBox1453Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1454_Click()
If CheckBox1454.Caption = Chr$(163) Then
    CheckBox1454.Caption = "R"
    globalBoolCheckBox1454Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1454.Caption = Chr$(163)
    globalBoolCheckBox1454Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1455_Click()
If CheckBox1455.Caption = Chr$(163) Then
    CheckBox1455.Caption = "R"
    globalBoolCheckBox1455Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1455.Caption = Chr$(163)
    globalBoolCheckBox1455Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1456_Click()
If CheckBox1456.Caption = Chr$(163) Then
    CheckBox1456.Caption = "R"
    globalBoolCheckBox1456Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1456.Caption = Chr$(163)
    globalBoolCheckBox1456Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1457_Click()
If CheckBox1457.Caption = Chr$(163) Then
    CheckBox1457.Caption = "R"
    globalBoolCheckBox1457Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1457.Caption = Chr$(163)
    globalBoolCheckBox1457Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1458_Click()
If CheckBox1458.Caption = Chr$(163) Then
    CheckBox1458.Caption = "R"
    globalBoolCheckBox1458Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1458.Caption = Chr$(163)
    globalBoolCheckBox1458Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1459_Click()
If CheckBox1459.Caption = Chr$(163) Then
    CheckBox1459.Caption = "R"
    globalBoolCheckBox1459Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1459.Caption = Chr$(163)
    globalBoolCheckBox1459Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1460_Click()
If CheckBox1460.Caption = Chr$(163) Then
    CheckBox1460.Caption = "R"
    globalBoolCheckBox1460Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1460.Caption = Chr$(163)
    globalBoolCheckBox1460Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1461_Click()
If CheckBox1461.Caption = Chr$(163) Then
    CheckBox1461.Caption = "R"
    globalBoolCheckBox1461Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1461.Caption = Chr$(163)
    globalBoolCheckBox1461Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1462_Click()
If CheckBox1462.Caption = Chr$(163) Then
    CheckBox1462.Caption = "R"
    globalBoolCheckBox1462Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1462.Caption = Chr$(163)
    globalBoolCheckBox1462Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1463_Click()
If CheckBox1463.Caption = Chr$(163) Then
    CheckBox1463.Caption = "R"
    globalBoolCheckBox1463Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1463.Caption = Chr$(163)
    globalBoolCheckBox1463Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1464_Click()
If CheckBox1464.Caption = Chr$(163) Then
    CheckBox1464.Caption = "R"
    globalBoolCheckBox1464Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1464.Caption = Chr$(163)
    globalBoolCheckBox1464Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1465_Click()
If CheckBox1465.Caption = Chr$(163) Then
    CheckBox1465.Caption = "R"
    globalBoolCheckBox1465Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1465.Caption = Chr$(163)
    globalBoolCheckBox1465Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1466_Click()
If CheckBox1466.Caption = Chr$(163) Then
    CheckBox1466.Caption = "R"
    globalBoolCheckBox1466Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1466.Caption = Chr$(163)
    globalBoolCheckBox1466Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1467_Click()
If CheckBox1467.Caption = Chr$(163) Then
    CheckBox1467.Caption = "R"
    globalBoolCheckBox1467Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1467.Caption = Chr$(163)
    globalBoolCheckBox1467Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1468_Click()
If CheckBox1468.Caption = Chr$(163) Then
    CheckBox1468.Caption = "R"
    globalBoolCheckBox1468Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1468.Caption = Chr$(163)
    globalBoolCheckBox1468Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1469_Click()
If CheckBox1469.Caption = Chr$(163) Then
    CheckBox1469.Caption = "R"
    globalBoolCheckBox1469Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1469.Caption = Chr$(163)
    globalBoolCheckBox1469Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1470_Click()
If CheckBox1470.Caption = Chr$(163) Then
    CheckBox1470.Caption = "R"
    globalBoolCheckBox1470Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1470.Caption = Chr$(163)
    globalBoolCheckBox1470Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1471_Click()
If CheckBox1471.Caption = Chr$(163) Then
    CheckBox1471.Caption = "R"
    globalBoolCheckBox1471Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1471.Caption = Chr$(163)
    globalBoolCheckBox1471Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1472_Click()
If CheckBox1472.Caption = Chr$(163) Then
    CheckBox1472.Caption = "R"
    globalBoolCheckBox1472Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1472.Caption = Chr$(163)
    globalBoolCheckBox1472Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1473_Click()
If CheckBox1473.Caption = Chr$(163) Then
    CheckBox1473.Caption = "R"
    globalBoolCheckBox1473Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1473.Caption = Chr$(163)
    globalBoolCheckBox1473Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1474_Click()
If CheckBox1474.Caption = Chr$(163) Then
    CheckBox1474.Caption = "R"
    globalBoolCheckBox1474Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1474.Caption = Chr$(163)
    globalBoolCheckBox1474Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1475_Click()
If CheckBox1475.Caption = Chr$(163) Then
    CheckBox1475.Caption = "R"
    globalBoolCheckBox1475Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1475.Caption = Chr$(163)
    globalBoolCheckBox1475Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1476_Click()
If CheckBox1476.Caption = Chr$(163) Then
    CheckBox1476.Caption = "R"
    globalBoolCheckBox1476Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1476.Caption = Chr$(163)
    globalBoolCheckBox1476Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1477_Click()
If CheckBox1477.Caption = Chr$(163) Then
    CheckBox1477.Caption = "R"
    globalBoolCheckBox1477Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1477.Caption = Chr$(163)
    globalBoolCheckBox1477Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1478_Click()
If CheckBox1478.Caption = Chr$(163) Then
    CheckBox1478.Caption = "R"
    globalBoolCheckBox1478Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1478.Caption = Chr$(163)
    globalBoolCheckBox1478Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1479_Click()
If CheckBox1479.Caption = Chr$(163) Then
    CheckBox1479.Caption = "R"
    globalBoolCheckBox1479Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1479.Caption = Chr$(163)
    globalBoolCheckBox1479Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1480_Click()
If CheckBox1480.Caption = Chr$(163) Then
    CheckBox1480.Caption = "R"
    globalBoolCheckBox1480Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1480.Caption = Chr$(163)
    globalBoolCheckBox1480Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1481_Click()
If CheckBox1481.Caption = Chr$(163) Then
    CheckBox1481.Caption = "R"
    globalBoolCheckBox1481Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1481.Caption = Chr$(163)
    globalBoolCheckBox1481Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1482_Click()
If CheckBox1482.Caption = Chr$(163) Then
    CheckBox1482.Caption = "R"
    globalBoolCheckBox1482Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1482.Caption = Chr$(163)
    globalBoolCheckBox1482Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1483_Click()
If CheckBox1483.Caption = Chr$(163) Then
    CheckBox1483.Caption = "R"
    globalBoolCheckBox1483Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1483.Caption = Chr$(163)
    globalBoolCheckBox1483Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1484_Click()
If CheckBox1484.Caption = Chr$(163) Then
    CheckBox1484.Caption = "R"
    globalBoolCheckBox1484Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1484.Caption = Chr$(163)
    globalBoolCheckBox1484Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1485_Click()
If CheckBox1485.Caption = Chr$(163) Then
    CheckBox1485.Caption = "R"
    globalBoolCheckBox1485Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1485.Caption = Chr$(163)
    globalBoolCheckBox1485Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1486_Click()
If CheckBox1486.Caption = Chr$(163) Then
    CheckBox1486.Caption = "R"
    globalBoolCheckBox1486Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1486.Caption = Chr$(163)
    globalBoolCheckBox1486Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1487_Click()
If CheckBox1487.Caption = Chr$(163) Then
    CheckBox1487.Caption = "R"
    globalBoolCheckBox1487Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1487.Caption = Chr$(163)
    globalBoolCheckBox1487Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1488_Click()
If CheckBox1488.Caption = Chr$(163) Then
    CheckBox1488.Caption = "R"
    globalBoolCheckBox1488Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1488.Caption = Chr$(163)
    globalBoolCheckBox1488Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1489_Click()
If CheckBox1489.Caption = Chr$(163) Then
    CheckBox1489.Caption = "R"
    globalBoolCheckBox1489Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1489.Caption = Chr$(163)
    globalBoolCheckBox1489Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1490_Click()
If CheckBox1490.Caption = Chr$(163) Then
    CheckBox1490.Caption = "R"
    globalBoolCheckBox1490Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1490.Caption = Chr$(163)
    globalBoolCheckBox1490Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1491_Click()
If CheckBox1491.Caption = Chr$(163) Then
    CheckBox1491.Caption = "R"
    globalBoolCheckBox1491Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1491.Caption = Chr$(163)
    globalBoolCheckBox1491Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1492_Click()
If CheckBox1492.Caption = Chr$(163) Then
    CheckBox1492.Caption = "R"
    globalBoolCheckBox1492Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1492.Caption = Chr$(163)
    globalBoolCheckBox1492Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1493_Click()
If CheckBox1493.Caption = Chr$(163) Then
    CheckBox1493.Caption = "R"
    globalBoolCheckBox1493Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1493.Caption = Chr$(163)
    globalBoolCheckBox1493Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1494_Click()
If CheckBox1494.Caption = Chr$(163) Then
    CheckBox1494.Caption = "R"
    globalBoolCheckBox1494Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1494.Caption = Chr$(163)
    globalBoolCheckBox1494Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1495_Click()
If CheckBox1495.Caption = Chr$(163) Then
    CheckBox1495.Caption = "R"
    globalBoolCheckBox1495Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1495.Caption = Chr$(163)
    globalBoolCheckBox1495Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1496_Click()
If CheckBox1496.Caption = Chr$(163) Then
    CheckBox1496.Caption = "R"
    globalBoolCheckBox1496Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1496.Caption = Chr$(163)
    globalBoolCheckBox1496Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1497_Click()
If CheckBox1497.Caption = Chr$(163) Then
    CheckBox1497.Caption = "R"
    globalBoolCheckBox1497Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1497.Caption = Chr$(163)
    globalBoolCheckBox1497Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1498_Click()
If CheckBox1498.Caption = Chr$(163) Then
    CheckBox1498.Caption = "R"
    globalBoolCheckBox1498Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1498.Caption = Chr$(163)
    globalBoolCheckBox1498Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1499_Click()
If CheckBox1499.Caption = Chr$(163) Then
    CheckBox1499.Caption = "R"
    globalBoolCheckBox1499Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1499.Caption = Chr$(163)
    globalBoolCheckBox1499Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub

 
Private Sub CheckBox1500_Click()
If CheckBox1500.Caption = Chr$(163) Then
    CheckBox1500.Caption = "R"
    globalBoolCheckBox1500Ausgewählt = True
    Range("B2") = "Haken gesetzt"
  Else
    CheckBox1500.Caption = Chr$(163)
    globalBoolCheckBox1500Ausgewählt = False
    Range("B2") = "Haken nicht gesetzt"
  End If
End Sub