UserForm1

 

Private Sub UserForm_Initialize()

 

'Titel des Fensters

UserForm1.Caption = "Frage " & i & " von 5"

 

'Fragen einlesen

Label1 = Sheets(1).Cells(i,1)

 

'Antworten einlesen

OptionButton1.Caption = Sheets(1).Cells(i,2)

OptionButton2.Caption = Sheets(1).Cells(i,3)

OptionButton3.Caption = Sheets(1).Cells(i,4)

 

End Sub

_________________________________________________

Private Sub CommandButton1_Click()

 

If OptionButton1 = True And Sheet(1).Cells(i,5) = 1 Then

MsgBox "Richtige Antwort"

Unload UserForm1

 

ElseIf OptionButton2 = True And Sheet(1).Cells(i,5) = 2 Then

MsgBox "Richtige Antwort"

Unload UserForm1

 

ElseIf OptionButton3 = True And Sheet(1).Cells(i,5) = 3 Then

MsgBox "Richtige Antwort"

Unload UserForm1

 

Else

MsgBox "Antwort Falsch"

 

End If 

End Sub

_________________________________________________

Private Sub CommandButton2_Click()

 

'Programm beenden

i = 5

 

'Aktuelle Frage überspringen

Unload UserForm1

 

End Sub

Makro1:

 

Global i as Integer

 

Sub Multiple Choice()

 

For i = 1 To 5

UserForm1.Show

Next

 

'Wenn alle 5 Fragen durch sind:

MsgBox "Test zuende"

 

_________________________________________________




Auf einen Blick - Alle Folgen der VideoReihe!

Du hast ein Thema das noch nicht behandelt wurde? Lass es mich wissen :)


Jetzt abonnieren & kein Video

mehr verpassen!

Meine Arbeit unterstützen

Meine Empfehlungen

(Bücher und mehr)