Beiträge von Coban

Sub Vokabeltrainer()
Dim Vokabel1 As String
Dim PUNKTE As Single
PUNKTE = 0


Vokabel1 = InputBox("Was heisst " & Range("B1") & " auf Englisch?")


If Vokabel1 = Range("A1").Value Then
MsgBox "Richtig"
PUNKTE = PUNKTE + 1
Else
MsgBox "Ihre Antwort ist leider falsch. Die richtige Antwort ist " & Range("A1") & " !"
End If


Vokabel1 = InputBox("Was heisst " & Range("B2") & " auf Englisch?")
If Vokabel1 = Range("A2").Value Then
MsgBox "Richtig"
PUNKTE = PUNKTE + 1
Else
MsgBox "Ihre Antwort ist leider falsch. Die richtige Antwort ist " & Range("A2") & " !"
End If


Vokabel1 = InputBox("Was heisst " & Range("B3") & " auf Englisch?")
If Vokabel1 = Range("A3").Value Then
MsgBox "Richtig"
PUNKTE = PUNKTE + 1
Else
MsgBox "Ihre Antwort ist leider falsch. Die richtige Antwort ist " & Range("A3") & " !"
End If


Vokabel1 = InputBox("Was heisst " & Range("B4") & " auf Englisch?")
If Vokabel1 = Range("A4").Value Then
MsgBox "Richtig"
PUNKTE = PUNKTE + 1
Else
MsgBox "Ihre Antwort ist leider falsch. Die richtige Antwort ist " & Range("A4") & " !"
End If


Vokabel1 = InputBox("Was heisst " & Range("B5") & " auf Englisch?")
If Vokabel1 = Range("A5").Value Then
MsgBox "Richtig"
PUNKTE = PUNKTE + 1
Else
MsgBox "Ihre Antwort ist leider falsch. Die richtige Antwort ist " & Range("A5") & " !"
End If


Vokabel1 = InputBox("Was heisst " & Range("B6") & " auf Englisch?")
If Vokabel1 = Range("A6").Value Then
MsgBox "Richtig"
PUNKTE = PUNKTE + 1
Else
MsgBox "Ihre Antwort ist leider falsch. Die richtige Antwort ist " & Range("A6") & " !"
End If


Vokabel1 = InputBox("Was heisst " & Range("B7") & " auf Englisch?")
If Vokabel1 = Range("A7").Value Then
MsgBox "Richtig"
PUNKTE = PUNKTE + 1
Else
MsgBox "Ihre Antwort ist leider falsch. Die richtige Antwort ist " & Range("A7") & " !"
End If


Vokabel1 = InputBox("Was heisst " & Range("B8") & " auf Englisch?")
If Vokabel1 = Range("A8").Value Then
MsgBox "Richtig"
PUNKTE = PUNKTE + 1
Else
MsgBox "Ihre Antwort ist leider falsch. Die richtige Antwort ist " & Range("A8") & " !"
End If


Vokabel1 = InputBox("Was heisst " & Range("B9") & " auf Englisch?")
If Vokabel1 = Range("A9").Value Then
MsgBox "Richtig"
PUNKTE = PUNKTE + 1
Else
MsgBox "Ihre Antwort ist leider falsch. Die richtige Antwort ist " & Range("A9") & " !"
End If


Vokabel1 = InputBox("Was heisst " & Range("B10") & " auf Englisch?")
If Vokabel1 = Range("A10").Value Then
MsgBox "Richtig"
PUNKTE = PUNKTE + 1
Else
MsgBox "Ihre Antwort ist leider falsch. Die richtige Antwort ist " & Range("A10") & " !"
End If


Vokabel1 = InputBox("Was heisst " & Range("B11") & " auf Englisch?")
If Vokabel1 = Range("A11").Value Then
MsgBox "Richtig"
PUNKTE = PUNKTE + 1
Else
MsgBox "Ihre Antwort ist leider falsch. Die richtige Antwort ist " & Range("A11") & " !"
End If


Vokabel1 = InputBox("Was heisst " & Range("B12") & " auf Englisch?")
If Vokabel1 = Range("A12").Value Then
MsgBox "Richtig"
PUNKTE = PUNKTE + 1
Else
MsgBox "Ihre Antwort ist leider falsch. Die richtige Antwort ist " & Range("A12") & " !"
End If


Vokabel1 = InputBox("Was heisst " & Range("B13") & " auf Englisch?")
If Vokabel1 = Range("A13").Value Then
MsgBox "Richtig"
PUNKTE = PUNKTE + 1
Else
MsgBox "Ihre Antwort ist leider falsch. Die richtige Antwort ist " & Range("A13") & " !"
End If


Vokabel1 = InputBox("Was heisst " & Range("B14") & " auf Englisch?")
If Vokabel1 = Range("A14").Value Then
MsgBox "Richtig"
PUNKTE = PUNKTE + 1
Else
MsgBox "Ihre Antwort ist leider falsch. Die richtige Antwort ist " & Range("A14") & " !"
End If




Vokabel1 = InputBox("Was heisst " & Range("B15") & " auf Englisch?")
If Vokabel1 = Range("A15").Value Then
MsgBox "Richtig"
PUNKTE = PUNKTE + 1
Else
MsgBox "Ihre Antwort ist leider falsch. Die richtige Antwort ist " & Range("A15") & " !"
End If


Vokabel1 = InputBox("Was heisst " & Range("B16") & " auf Englisch?")
If Vokabel1 = Range("A16").Value Then
MsgBox "Richtig"
PUNKTE = PUNKTE + 1
Else
MsgBox "Ihre Antwort ist leider falsch. Die richtige Antwort ist " & Range("A16") & " !"
End If


Vokabel1 = InputBox("Was heisst " & Range("B17") & " auf Englisch?")
If Vokabel1 = Range("A17").Value Then
MsgBox "Richtig"
PUNKTE = PUNKTE + 1
Else
MsgBox "Ihre Antwort ist leider falsch. Die richtige Antwort ist " & Range("A17") & " !"
End If


Vokabel1 = InputBox("Was heisst " & Range("B18") & " auf Englisch?")
If Vokabel1 = Range("A18").Value Then
MsgBox "Richtig"
PUNKTE = PUNKTE + 1
Else
MsgBox "Ihre Antwort ist leider falsch. Die richtige Antwort ist " & Range("A18") & " !"
End If


Vokabel1 = InputBox("Was heisst " & Range("B19") & " auf Englisch?")
If Vokabel1 = Range("A19").Value Then
MsgBox "Richtig"
PUNKTE = PUNKTE + 1
Else
MsgBox "Ihre Antwort ist leider falsch. Die richtige Antwort ist " & Range("A19") & " !"
End If


Vokabel1 = InputBox("Was heisst " & Range("B20") & " auf Englisch?")
If Vokabel1 = Range("A20").Value Then
MsgBox "Richtig"
PUNKTE = PUNKTE + 1
Else
MsgBox "Ihre Antwort ist leider falsch. Die richtige Antwort ist " & Range("A20") & " !"
End If


Vokabel1 = InputBox("Was heisst " & Range("B21") & " auf Englisch?")
If Vokabel1 = Range("A21").Value Then
MsgBox "Richtig"
PUNKTE = PUNKTE + 1
Else
MsgBox "Ihre Antwort ist leider falsch. Die richtige Antwort ist " & Range("A21") & " !"
End If


Vokabel1 = InputBox("Was heisst " & Range("B22") & " auf Englisch?")
If Vokabel1 = Range("A22").Value Then
MsgBox "Richtig"
PUNKTE = PUNKTE + 1
Else
MsgBox "Ihre Antwort ist leider falsch. Die richtige Antwort ist " & Range("A22") & " !"
End If


Vokabel1 = InputBox("Was heisst " & Range("B23") & " auf Englisch?")
If Vokabel1 = Range("A23").Value Then
MsgBox "Richtig"
PUNKTE = PUNKTE + 1
Else
MsgBox "Ihre Antwort ist leider falsch. Die richtige Antwort ist " & Range("A23") & " !"
End If


Vokabel1 = InputBox("Was heisst " & Range("B24") & " auf Englisch?")
If Vokabel1 = Range("A24").Value Then
MsgBox "Richtig"
PUNKTE = PUNKTE + 1
Else
MsgBox "Ihre Antwort ist leider falsch. Die richtige Antwort ist " & Range("A24") & " !"
End If


Vokabel1 = InputBox("Was heisst " & Range("B25") & " auf Englisch?")
If Vokabel1 = Range("A25").Value Then
MsgBox "Richtig"
PUNKTE = PUNKTE + 1
Else
MsgBox "Ihre Antwort ist leider falsch. Die richtige Antwort ist " & Range("A25") & " !"
End If


Vokabel1 = InputBox("Was heisst " & Range("B26") & " auf Englisch?")
If Vokabel1 = Range("A26").Value Then
MsgBox "Richtig"
PUNKTE = PUNKTE + 1
Else
MsgBox "Ihre Antwort ist leider falsch. Die richtige Antwort ist " & Range("A26") & " !"
End If


Vokabel1 = InputBox("Was heisst " & Range("B27") & " auf Englisch?")
If Vokabel1 = Range("A27").Value Then
MsgBox "Richtig"
PUNKTE = PUNKTE + 1
Else
MsgBox "Ihre Antwort ist leider falsch. Die richtige Antwort ist " & Range("A27") & " !"
End If


Vokabel1 = InputBox("Was heisst " & Range("B28") & " auf Englisch?")
If Vokabel1 = Range("A28").Value Then
MsgBox "Richtig"
PUNKTE = PUNKTE + 1
Else
MsgBox "Ihre Antwort ist leider falsch. Die richtige Antwort ist " & Range("A28") & " !"
End If


MsgBox "Sie haben " & PUNKTE & " von 28 Punkten erreicht! Dies sind " & PUNKTE / 28 * 100 & " %"










End Sub