|
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
|