Wir müssen im Unterricht ein Multiple Choice Quiz erstellen, mit verschiedenen Auswahlmöglichkeiten. Wenn die Antwort richtig ist, soll "Richtige Antwort" angezeigt werden und zur nächsten Frage gegangen werden, wenn nicht dann "Antwort falsch" und auch weiter. Am Ende soll noch einmal angezeigt werden, wie viele Fragen man richtig beantwortet hat. Wir haben auch fast alles fertig, nur unser Problem ist, dass wenn die Antwort falsch ist, dann geht es nicht zur nächsten, sondern man kommt nur weiter, wenn die Antwort richtig ist und am Ende fehlt uns das mit der richtigen Anzahl an Fragen. Wie könnte man das hier umprogrammieren, sodass unser Programm so funktioniert, wie es soll?
Private Sub CommandButton1_Click()
If OptionButton1 = True And Sheets(1).Cells(i, 5) = 1 Then
MsgBox "Richtige Antwort"
Unload UserForm2
ElseIf OptionButton2 = True And Sheets(1).Cells(i, 5) = 2 Then
MsgBox "Richtige Antwort"
Unload UserForm2
ElseIf OptionButton3 = True And Sheets(1).Cells(i, 5) = 3 Then
MsgBox "Richtige Antwort"
Unload UserForm2
Else
MsgBox "Antwort Falsch"
End If
End Sub