Ich habe ein Quiz mit 4 Antwortmöglichkeiten. Davon ist mindestens 1 und maximal alle 4 richtig.
Wenn man alle richtigen Antworten findet bekommt man 5 Punkte. Sind nicht alle richtigen Antwort dabei oder eine falsche bekommt man keine Punkte.
Leider funktioniert dies bei mir nicht wirklich.
Setze ich erst meinen Haken bei der richtigen Antwort und kreuze dann noch zwei falsche an bekomme ich trotzdem die 5 Punkte.
If CheckBox1.Value = True And Worksheets("Tabelle2").Cells(Straße1, "C") = Worksheets("Tabelle2").Cells(Stadtteil, "C") And Worksheets("Tabelle2").Cells(Straße2, "C") <> Worksheets("Tabelle2").Cells(Stadtteil, "C") And Worksheets("Tabelle2").Cells(Straße3, "C") <> Worksheets("Tabelle2").Cells(Stadtteil, "C") And Worksheets("Tabelle2").Cells(Straße4, "C") <> Worksheets("Tabelle2").Cells(Stadtteil, "C") Or _
CheckBox2.Value = True And Worksheets("Tabelle2").Cells(Straße2, "C") = Worksheets("Tabelle2").Cells(Stadtteil, "C") And Worksheets("Tabelle2").Cells(Straße1, "C") <> Worksheets("Tabelle2").Cells(Stadtteil, "C") And Worksheets("Tabelle2").Cells(Straße3, "C") <> Worksheets("Tabelle2").Cells(Stadtteil, "C") And Worksheets("Tabelle2").Cells(Straße4, "C") <> Worksheets("Tabelle2").Cells(Stadtteil, "C") Or _
CheckBox3.Value = True And Worksheets("Tabelle2").Cells(Straße3, "C") = Worksheets("Tabelle2").Cells(Stadtteil, "C") And Worksheets("Tabelle2").Cells(Straße2, "C") <> Worksheets("Tabelle2").Cells(Stadtteil, "C") And Worksheets("Tabelle2").Cells(Straße1, "C") <> Worksheets("Tabelle2").Cells(Stadtteil, "C") And Worksheets("Tabelle2").Cells(Straße4, "C") <> Worksheets("Tabelle2").Cells(Stadtteil, "C") Or _
CheckBox4.Value = True And Worksheets("Tabelle2").Cells(Straße4, "C") = Worksheets("Tabelle2").Cells(Stadtteil, "C") And Worksheets("Tabelle2").Cells(Straße2, "C") <> Worksheets("Tabelle2").Cells(Stadtteil, "C") And Worksheets("Tabelle2").Cells(Straße3, "C") <> Worksheets("Tabelle2").Cells(Stadtteil, "C") And Worksheets("Tabelle2").Cells(Straße1, "C") <> Worksheets("Tabelle2").Cells(Stadtteil, "C") Or _
CheckBox1.Value = True And Worksheets("Tabelle2").Cells(Straße1, "C") = Worksheets("Tabelle2").Cells(Stadtteil, "C") And CheckBox2.Value = True And Worksheets("Tabelle2").Cells(Straße2, "C") = Worksheets("Tabelle2").Cells(Stadtteil, "C") And Worksheets("Tabelle2").Cells(Straße3, "C") <> Worksheets("Tabelle2").Cells(Stadtteil, "C") And Worksheets("Tabelle2").Cells(Straße4, "C") <> Worksheets("Tabelle2").Cells(Stadtteil, "C") Or _
CheckBox1.Value = True And Worksheets("Tabelle2").Cells(Straße1, "C") = Worksheets("Tabelle2").Cells(Stadtteil, "C") And CheckBox3.Value = True And Worksheets("Tabelle2").Cells(Straße3, "C") = Worksheets("Tabelle2").Cells(Stadtteil, "C") And Worksheets("Tabelle2").Cells(Straße2, "C") <> Worksheets("Tabelle2").Cells(Stadtteil, "C") And Worksheets("Tabelle2").Cells(Straße4, "C") <> Worksheets("Tabelle2").Cells(Stadtteil, "C") Or _
CheckBox1.Value = True And Worksheets("Tabelle2").Cells(Straße1, "C") = Worksheets("Tabelle2").Cells(Stadtteil, "C") And CheckBox4.Value = True And Worksheets("Tabelle2").Cells(Straße4, "C") = Worksheets("Tabelle2").Cells(Stadtteil, "C") And Worksheets("Tabelle2").Cells(Straße3, "C") <> Worksheets("Tabelle2").Cells(Stadtteil, "C") And Worksheets("Tabelle2").Cells(Straße2, "C") <> Worksheets("Tabelle2").Cells(Stadtteil, "C") Or _
CheckBox2.Value = True And Worksheets("Tabelle2").Cells(Straße2, "C") = Worksheets("Tabelle2").Cells(Stadtteil, "C") And CheckBox3.Value = True And Worksheets("Tabelle2").Cells(Straße3, "C") = Worksheets("Tabelle2").Cells(Stadtteil, "C") And Worksheets("Tabelle2").Cells(Straße1, "C") <> Worksheets("Tabelle2").Cells(Stadtteil, "C") And Worksheets("Tabelle2").Cells(Straße4, "C") <> Worksheets("Tabelle2").Cells(Stadtteil, "C") Or _
CheckBox2.Value = True And Worksheets("Tabelle2").Cells(Straße2, "C") = Worksheets("Tabelle2").Cells(Stadtteil, "C") And CheckBox4.Value = True And Worksheets("Tabelle2").Cells(Straße4, "C") = Worksheets("Tabelle2").Cells(Stadtteil, "C") And Worksheets("Tabelle2").Cells(Straße1, "C") <> Worksheets("Tabelle2").Cells(Stadtteil, "C") And Worksheets("Tabelle2").Cells(Straße3, "C") <> Worksheets("Tabelle2").Cells(Stadtteil, "C") Or _
CheckBox3.Value = True And Worksheets("Tabelle2").Cells(Straße3, "C") = Worksheets("Tabelle2").Cells(Stadtteil, "C") And CheckBox4.Value = True And Worksheets("Tabelle2").Cells(Straße4, "C") = Worksheets("Tabelle2").Cells(Stadtteil, "C") And Worksheets("Tabelle2").Cells(Straße1, "C") <> Worksheets("Tabelle2").Cells(Stadtteil, "C") And Worksheets("Tabelle2").Cells(Straße2, "C") <> Worksheets("Tabelle2").Cells(Stadtteil, "C") Or _
CheckBox1.Value = True And Worksheets("Tabelle2").Cells(Straße1, "C") = Worksheets("Tabelle2").Cells(Stadtteil, "C") And CheckBox2.Value = True And Worksheets("Tabelle2").Cells(Straße2, "C") = Worksheets("Tabelle2").Cells(Stadtteil, "C") And CheckBox3.Value = True And Worksheets("Tabelle2").Cells(Straße3, "C") = Worksheets("Tabelle2").Cells(Stadtteil, "C") And Worksheets("Tabelle2").Cells(Straße4, "C") <> Worksheets("Tabelle2").Cells(Stadtteil, "C") Or _
CheckBox1.Value = True And Worksheets("Tabelle2").Cells(Straße1, "C") = Worksheets("Tabelle2").Cells(Stadtteil, "C") And CheckBox2.Value = True And Worksheets("Tabelle2").Cells(Straße2, "C") = Worksheets("Tabelle2").Cells(Stadtteil, "C") And CheckBox4.Value = True And Worksheets("Tabelle2").Cells(Straße4, "C") = Worksheets("Tabelle2").Cells(Stadtteil, "C") And Worksheets("Tabelle2").Cells(Straße3, "C") <> Worksheets("Tabelle2").Cells(Stadtteil, "C") Or _
CheckBox1.Value = True And Worksheets("Tabelle2").Cells(Straße1, "C") = Worksheets("Tabelle2").Cells(Stadtteil, "C") And CheckBox3.Value = True And Worksheets("Tabelle2").Cells(Straße3, "C") = Worksheets("Tabelle2").Cells(Stadtteil, "C") And CheckBox4.Value = True And Worksheets("Tabelle2").Cells(Straße4, "C") = Worksheets("Tabelle2").Cells(Stadtteil, "C") And Worksheets("Tabelle2").Cells(Straße2, "C") <> Worksheets("Tabelle2").Cells(Stadtteil, "C") Or _
CheckBox2.Value = True And Worksheets("Tabelle2").Cells(Straße2, "C") = Worksheets("Tabelle2").Cells(Stadtteil, "C") And CheckBox3.Value = True And Worksheets("Tabelle2").Cells(Straße3, "C") = Worksheets("Tabelle2").Cells(Stadtteil, "C") And CheckBox4.Value = True And Worksheets("Tabelle2").Cells(Straße4, "C") = Worksheets("Tabelle2").Cells(Stadtteil, "C") And Worksheets("Tabelle2").Cells(Straße1, "C") <> Worksheets("Tabelle2").Cells(Stadtteil, "C") Or _
CheckBox1.Value = True And Worksheets("Tabelle2").Cells(Straße1, "C") = Worksheets("Tabelle2").Cells(Stadtteil, "C") And CheckBox2.Value = True And Worksheets("Tabelle2").Cells(Straße2, "C") = Worksheets("Tabelle2").Cells(Stadtteil, "C") And CheckBox3.Value = True And Worksheets("Tabelle2").Cells(Straße3, "C") = Worksheets("Tabelle2").Cells(Stadtteil, "C") And CheckBox4.Value = True And Worksheets("Tabelle2").Cells(Straße4, "C") = Worksheets("Tabelle2").Cells(Stadtteil, "C") Then
TextBox7.Text = TextBox7 + 5
Else
TextBox7.Text = TextBox7
End If
Wo liegt der Fehler?
|