OptionButton: farbliche Auswertung
06.12.2016 18:29:20
Markus
ich habe mir anhand eines Youtube Videos (Kanal: Balders Welt) ein kleines "Quiz" gebastelt. Eine Änderung würde ich gerne vornehmen, bei der ich mit meinen VBA-Kenntnissen nicht weiterkomme.
Hier erstmal der VBA-Code:
Meine UserForm besteht momentan aus 2 Commandbuttons.
Private Sub CommandButton2_Click()
' Schließt die UserForm
quit = 1
Unload Me
End Sub
Private Sub UserForm_Initialize()
UserForm1.Caption = "Fragen" & i & "von 5"
Label1 = Sheets(1).Cells(a, 1)
OptionButton1.Caption = Sheets(1).Cells(a, 2)
OptionButton2.Caption = Sheets(1).Cells(a, 3)
OptionButton3.Caption = Sheets(1).Cells(a, 4)
End Sub
Private Sub CommandButton1_Click()
'Wertet den OptionButton aus und färbt ggf. die falsche Antwort rot ein
'Die nächste Frage wird nur dann eingeblendet, wenn die richtige Antwort ausgewählt wird
If OptionButton1 = True And Sheets(1).Cells(a, 5) = 1 Or OptionButton2 = True And Sheets(1). _
Cells(a, 5) = 2 Or OptionButton3 = True And Sheets(1).Cells(a, 5) = 3 Then
Unload Me
Else
If OptionButton1 = True Then
OptionButton1.ForeColor = vbRed
End If
If OptionButton2 = True Then
OptionButton2.ForeColor = vbRed
End If
If OptionButton3 = True Then
OptionButton3.ForeColor = vbRed
End If
fehler = fehler + 1
End If
End Sub
Mein Anliegen: Ist es möglich, dass man mit dem Button ("Auswertung" - momentan CommandButton1) auf die UserForm die beiden falschen Antworten rot einfärbt (wie bisher) und die richtige Antwort grün? Der gesetzte OptionButton soll dabei bestehen bleiben. Es soll noch nicht die nächste Frage aufgerufen werden, auch wenn die richtige Antwort gegeben wurde.
und anschließend noch einen Button "Weiter" welcher die nächste Frage aufruft.
Vielen Dank euch.