Quiz
15.05.2017 11:58:55
Ulquiorra
ich möchte in Excel per Makro ein kleines Quiz erstellen. Dieses soll wie folgt funktionieren:
Per Klick auf eine Schaltfläche soll sich eine Maske öffnen, die abfragt "Neues Spiel" oder "Kennwort eingeben"
Das Quiz selbst soll so aufgebaut sein, dass per InputBox eine Frage gestellt wird. Wird diese Frage richtig beantwortet, erhält man ein Kennwort und gelangt zur nächsten Frage. Ist die Frage falsch beantwortet, kommt eine Meldung "Leider Falsch" und man bleibt bei dieser Frage.
Klickt man zu beginn auf "Kennwort eingeben" hat man die Möglichkeit sein erhaltenes Kennwort einzugeben und direkt zur Frage zu gelangen bei der man aufgehört hat.
Wichtig ist, dass man die InputBoxen auf "Spiel beenden" jederzeit canceln kann.
Leider reichen meine Kenntnisse nur bis hier hin:
Sub Schaltfläche1_Klicken()
Dim I1 As String
Dim I2 As String
Dim I3 As String
Dim I4 As String
Dim I5 As String
A:
I1 = InputBox("Was ist 1 + 1?:")
If I1 = "2" Then
B:
I2 = InputBox("Was ist 2 + 2?:")
Else: GoTo A:
If I2 = "4" Then
C:
I3 = InputBox("Was ist 3 + 3?:")
Else: GoTo B:
If I3 = "6" Then
D:
I4 = InputBox("Was ist 4 + 4?:")
Else: GoTo C:
If I4 = "8" Then
E:
I5 = InputBox("Was ist 5 + 5?:")
Else: GoTo D:
End If
End If
End If
End If
End Sub
Ich bitte um Hilfe oder Ratschläge.
Vielen Dank! :)