Hallo, ihr da draußen...!
Ich muss im Bereich des Informatikunterrchts meiner Schule in Quiz erstellen ...
Da ich nicht weiß, wie man das Programmieren solol, dass bei jedem Klick die nachfolgende Frage im Tabellenblatt angezeigt wird, habe ich diese Funktion zusammen mit dem Prüfen der richtigen Antwort in einen Button gepackt.
Das Problem ist, dass ich eine ungewisse Anzahl an Fragen habe und dahe rnicht mit genauen Zellenangaben sondern mit ActiveCell.Offset arbeiten muss.... ich schaffe es nun immerhin dass der Computer die zweite Frage abruft, aber dann startet er wieder bei der ersten FrageZelle.... kann mir jemand helfen? Der Teil in der Programmierung,d er mir Probleme berietet, ist folgender:
Private Sub CommandButton3_Click()
Dim frm As UserForm
Set frm = UserForm2
Sheets("Tabelle2").Activate
Range("B18").Select ' erste Frage im Tabellenblatt
With frm
If TextBox6.Value = "" Then ... ' Die erste Frage wid eingelesen
Else
If TextBox6.Value <> "" Then ' Das Antwortfeld = TextBox6
If TextBox6.Value = ActiveCell.Offset(0, 5).Value Then
Select Case MsgBox("Diese Antwort ist korrekt! ^^" & Chr(13) & "Möchten Sie den Test fortsetzen?", vbYesNo, "Sie haben die Wahl")
Case vbYes
MsgBox ("Super! ^^ Die nächste Frage wird aufgerufen!")
ActiveCell.Offset(1, 0).Select
TextBox1.Value = ActiveCell.Value ' Das FrageFeld = TextBox1
TextBox2.Value = ActiveCell.Offset(0, 1).Value ' Antwortangabe A = TextBox2
TextBox3.Value = ActiveCell.Offset(0, 2).Value ' Antwortangabe B = TextBox3
TextBox4.Value = ActiveCell.Offset(0, 3).Value ' Antwortangabe C = TextBox4
TextBox5.Value = ActiveCell.Offset(0, 4).Value ' Antwortangabe D = TextBox5
TextBox6.Value = ""
Case vbNo .... |