Abfrage der Spalten für Quiz

  • Excel

Es gibt 13 Antworten in diesem Thema. Der letzte Beitrag () ist von Flambo.

    Abfrage der Spalten für Quiz

    Hallo alle zusammen!

    Für eine Projektarbeit muss ich ein Quiz erstellen, dass auf einer Exceltabelle basiert.
    Bei der Tabelle habe ich eine Spalte mit Stadtteilen und eine Spalte mit den dazugehörigen Straßen/Wegen/Plätzen.
    Bei dem Quiz geht es darum, das man zuvor auswählen kann, ob man zu einer Straße den Stadteil "erraten" will oder zu einem Stadteil die Straße(n).
    - Dem Spieler werden pro Spiel nacheinander fünf Fragen gestellt
    - Pro Frage müssen zu einem vorgegebenen Stadtteil dazugehörige Straßen/Wege/Plätze identifiziert werden bzw. andersrum, wobei aus vier vorgegebenen Antwortmöglichkeiten gewählt werden kann
    - 1 - max. 4 Antwortmöglichkeiten pro Frage sind korrekt
    - Pro Frage gibt es keine redundanten Antwortmöglichkeiten, d.h. vier verschiedene Straßen/Wege/Plätze sind stets als Antwortmöglichkeiten vorgegeben
    - In Abhängigkeit der richtigen Antworten erhält der Spieler folgende Punkte pro Frage: 0 Punkte falls keine korrekte Antwortmöglichkeit selektiert worden ist; 2 Punkte falls mindestens eine aber nicht alle korrekte(n) Antwortmöglichkeiten selektiert worden sind; 5 Punkte falls alle korrekten Antwortmöglichkeiten selektiert worden sind

    Es soll schlussendlich wie auf dem angehängten Bild aussehen.
    Wie erstelle ich so ein Quiz?
    Dateien

    • Quiz.pdf

      (88,8 kB, 290 mal heruntergeladen, zuletzt: )

    Für die Abfrage der Exceltabelle sowie die Antwortmöglichkeiten habe ich leider keinen Code, sonst hätte ich diesen schon hochgeladen.
    Mein derzeitiger Standpunkt ist, dass ich den Loginbereich angelegt habe, von dem man nach Bestätigung des Passworts zu den Spielregeln weitergeleitet wird. Wenn man dann die Spielregeln bestätigt, kommt man zu dem Auswahlmenu mit 2 OptionButton, um festzulegen ob man den Stadtgebieten die Straßen zuordnen will oder andersherum. Nach der Auswahl kommt man dann zum Quiz. Je nach dem welche Auswahl man getroffen hat kommt man zu Form1 (Quiz für Stadtgebiete) oder Form2 (Quiz für Straßen). Auch hier funktionieren meine CommandButtons wie gewollt und selbst die Namenübernahme vom Login hier her funktioniert.
    Um den Aufbau des ganzen besser verstehen zu können, habe ich das ganze mal aufgezeichnet (s. Anhang)
    Der einzige aber entscheidende Punkt, andem ich hänge, ist die Abfrage der Exceltabelle, um daraus die Frage und die Antwortmöglichkeiten nach dem Zufallsprinzip zu generieren.
    Dateien

    • Aufbau.pdf

      (97,83 kB, 269 mal heruntergeladen, zuletzt: )

    Dann stelle ich jetzt meine Fragen eben nacheinander:

    1. Ich habe eine Textbox die sich beim Klick auf den CommandButton teilweise ändern soll.

    Quellcode

    1. TextBox.text = "Welche der nachfolgenden Straßen gehören zu dem Stadtgebiet Innenstadt"


    Der Teil "Innenstadt" soll sich beim Klick auf den Button jedes mal ändern. Es soll durch einen Zufallgenerator ein neues Stadtgebiet aus der Spalte B2:B707 ausgewählt werden.
    Wie kann ich das umsetzen?

    Danke schon einmal im Voraus!

    Visual Basic-Quellcode

    1. dim stadtgebiet as integer
    2. Dim ganzerSatz as String
    3. Stadtgebiet= int((705*rnd)+2)
    4. GanzerSatz="Welcher der nachfolgenden Straßen gehören zu dem Stadtgebiet " + worksheets("tabellenname").cells(2,Stadtgebiet)
    5. Textbox1.text=ganzerSatz


    Probier das mal. Das sollte dir einen zufälligen Stadtteil aus deiner Tabelle aus der Spalte B ab Zeile 2 auswerfen.

    Den Quellcode habe ich bei CommandButton_Click eingefügt, weil ich ja möchte, dass er sich beim Klicken auf den Button ändert. Leider funktioniert dies nicht. In der TextBox wird keine Frage ausgegeben und ich erhalte regelmäßig beim debuggen die Meldung "Index außerhalb des gültigen Bereichs" (bezogen auf Zeile 4 dex Codes)
    Ich hab den Code jetzt schon an meine Tabelle angepasste, aber es funktioniert weiterhin nicht.

    Quellcode

    1. Dim Stadtteil As Integer
    2. Dim ganzerSatz As String
    3. Stadtteil = Int((705 * Rnd) + 2)
    4. ganzerSatz = "Welche der nachfolgenden Straßen gehören zu dem Stadtteil " + Worksheets("Tabelle2").Cells(2, Stadtteil)
    5. TextBox1.Text = ganzerSatz


    Zum besseren Verständniss habe ich mal einen Ausschnitt der Tabelle mit hochgeladen.
    Vielen Dank schon mal!
    Dateien

    • Tabelle.pdf

      (178,02 kB, 308 mal heruntergeladen, zuletzt: )

    Änderungen mal die Zeile 4 so um

    Visual Basic-Quellcode

    1. GanzerSatz="Welcher der nachfolgenden Straßen gehören zu dem Stadtgebiet " + worksheets("tabellenname").cells(2,Stadtgebiet).value


    Wenn das nicht geht, kommentier mal Zeile 4 aus und Änderungen mal die textbox auf

    Visual Basic-Quellcode

    1. Textbox1.text=Stadtteil


    um und sag mal was der in die textbox einträgt. Ist es eine Zahl zwischen 2-705?

    Wenn ich .value anhänge kommt wieder die Meldung "Index außerhalb des gülting Bereichs"
    Wenn ich Zeil4 auskommentiere passiert nichts, es wird kein Wert ausgegeben.

    Im nachfolgend steht jetzt mal der komplette Code. Vielleicht liegt hier auch irgendwo ein Fehler, der es unmöglich macht, dass die Funktion funktioniert. Bitte nicht erschrecken, ich hab das mit meinen VB Kenntnissen, nach einem Pflichtsemester "Anwendungspakete", dass ich für mein BWL Studium brauche, geschrieben.

    Quellcode

    1. Private Sub CommandButton1_Click()
    2. Static cnt As Long
    3. If cnt >= 5 Then GoTo Neustart
    5. Dim Stadtteil As Integer
    6. Dim ganzerSatz As String
    7. Stadtteil = Int((705 * Rnd) + 2)
    8. ganzerSatz = "Welche der nachfolgenden Straßen gehören zu dem Stadtteil " + Worksheets("Tabelle2").Cells(2, Stadtteil).Value
    9. TextBox1.Text = ganzerSatz
    11. If CheckBox1.Value = True Or CheckBox2.Value = True Or CheckBox3.Value = True Or CheckBox4.Value = True Then
    12. CheckBox1.Value = False
    13. CheckBox2.Value = False
    14. CheckBox3.Value = False
    15. CheckBox4.Value = False
    16. Else
    17. UserForm10.Show
    18. cnt = cnt - 1
    19. End If
    20. Neustart:
    21. cnt = cnt + 1
    22. If cnt = 5 Then
    23. CommandButton1.Caption = "Noch mal?"
    24. CommandButton2.Caption = "Punkte einlösen"
    25. CheckBox1.Enabled = False
    26. CheckBox2.Enabled = False
    27. CheckBox3.Enabled = False
    28. CheckBox4.Enabled = False
    29. End If
    30. If cnt = 6 Then
    31. Unload Me
    32. Unload UserForm8
    33. UserForm8.Show
    34. End If
    35. End Sub


    Zur Erklärung, was bei Klick auf den Button passieren soll:
    1. Frage wird gestellt
    2. Jeder Click wird gezählt (cnt = cnt +1)
    3. Es wird überprüft ob mindestens eine Antwort angekreuzt ist
    --> Wenn wahr: CheckBoxes werden für nächste Fragen wieder geleert
    --> Wenn falsch: Fehlermeldung; cnt = cnt - 1
    5. Ab fünf gezählten Clicks (d.h. alle fünf Fragen wurden beantwortet) wird er If Befehl übersprungen
    6. Wenn fünf Clicks gezählt wurden ändert sich die Bennenung des Buttons auf "Noch mal?" um; (Ein anderer Button änder auch seine Bennenung auf "Punkte einlösen") und die CheckBoxes werden deaktiviert
    7. Der 6 Click ruft eine andere UserForm auf und schließt diese

    Ich hoffe es ist verständlich.

    Hab mir jetzt nochmal Hilf geholt und mit folgendem Code funktioniert es. Gibt es allerdings noch eine Möglichkeit, dass nicht zwei Mal das gleiche Stadtteil durch Zufall gerneriert wird?

    Quellcode

    1. Const Untergrenze As Integer = 2
    2. Const Obergrenze As Integer = 707
    4. Randomize Timer
    6. Dim Stadtteil As Integer
    7. Dim ganzerSatz As String
    9. Stadtteil = Int((Obergrenze - Untergrenze + 1) * Rnd + Untergrenze)
    10. ganzerSatz = "Welche der nachfolgenden Straßen gehören zu dem Stadtteil " & Worksheets("Tabelle2").Cells(Stadtteil, "C").Text
    11. TextBox1.Text = ganzerSatz

    Das kommt davon, wenn man nur aus dem Kopf arbeitet.
    Habe bei cells die Spalte mit der Zeile vertauscht. Deshalb auch außerhalb des Index...
    Für den Wiederholungsfall kannst nen Array erstellen, mit den letzten 10 Ergebnissen und diese vor Weitergabe an die textbox prüfen und einen neuen durchlauf der zufallszahl erzwingen.

    Was muss ich machen, damit der Inhalt der Checkboxes ungleich ist?
    Ich habs mit Do Loop Until probiert, aber das funktioniert nicht.

    Quellcode

    1. Const Untergrenze As Integer = 2
    2. Const Obergrenze As Integer = 707
    4. Randomize Timer
    6. Dim Straße As Integer
    8. Do
    9. Straße = Int((Obergrenze - Untergrenze + 1) * Rnd + Untergrenze)
    10. CheckBox1.Caption = Worksheets("Tabelle2").Cells(Straße, "B").Text
    11. CheckBox2.Caption = Worksheets("Tabelle2").Cells(Straße, "B").Text
    12. CheckBox3.Caption = Worksheets("Tabelle2").Cells(Straße, "B").Text
    13. CheckBox4.Caption = Worksheets("Tabelle2").Cells(Straße, "B").Text
    14. Loop Until CheckBox1.Caption <> CheckBox2.Caption <> CheckBox3.Caption <> CheckBox4.Caption

    Hat sich erledigt. Vielleicht ein bisschen kompliziert aber mit folgendem Code klappt alles.

    Quellcode

    1. Const Untergrenze As Integer = 2
    2. Const Obergrenze As Integer = 707
    4. Randomize Timer
    6. Dim Straße1 As Integer
    7. Dim Straße2 As Integer
    8. Dim Straße3 As Integer
    9. Dim Straße4 As Integer
    11. Do
    12. Do
    13. Straße1 = Int((Obergrenze - Untergrenze + 1) * Rnd + Untergrenze)
    14. CheckBox1.Caption = Worksheets("Tabelle2").Cells(Straße1, "B")
    16. Straße2 = Int((Obergrenze - Untergrenze + 1) * Rnd + Untergrenze)
    17. CheckBox2.Caption = Worksheets("Tabelle2").Cells(Straße2, "B")
    19. Straße3 = Int((Obergrenze - Untergrenze + 1) * Rnd + Untergrenze)
    20. CheckBox3.Caption = Worksheets("Tabelle2").Cells(Straße3, "B")
    22. Straße4 = Int((Obergrenze - Untergrenze + 1) * Rnd + Untergrenze)
    23. CheckBox4.Caption = Worksheets("Tabelle2").Cells(Straße4, "B")
    24. Loop Until Straße1 <> Straße2 <> Straße3 <> Straße4
    25. Loop Until Worksheets("Tabelle2").Cells(Straße1, "C") = Worksheets("Tabelle2").Cells(Stadtteil, "C") Or Worksheets("Tabelle2").Cells(Straße2, "C") = Worksheets("Tabelle2").Cells(Stadtteil, "C") Or Worksheets("Tabelle2").Cells(Straße3, "C") = Worksheets("Tabelle2").Cells(Stadtteil, "C") Or Worksheets("Tabelle2").Cells(Straße4, "C") = Worksheets("Tabelle2").Cells(Stadtteil, "C")

    Letzte Frage, dann habe ich das leidige Thema "Quiz" hinter mir.

    Der folgende Code generiert beim öffnen der UserForm eine Frage und vier verschiedene Antworten, von denen mind. eine richtig ist

    Quellcode

    1. Private Sub UserForm_Initialize()
    2. Dim Stadtteil As Integer
    3. Dim ganzerSatz As String
    4. Dim Straße1 As Integer
    5. Dim Straße2 As Integer
    6. Dim Straße3 As Integer
    7. Dim Straße4 As Integer
    8. Const Untergrenze As Integer = 2
    9. Const Obergrenze As Integer = 707
    12. Randomize Timer
    15. Stadtteil = Int((Obergrenze - Untergrenze + 1) * Rnd + Untergrenze)
    16. ganzerSatz = "Welche der nachfolgenden Straßen gehören zu dem Stadtteil " & Worksheets("Tabelle2").Cells(Stadtteil, "C") & "?"
    17. TextBox1.Text = ganzerSatz
    20. Do
    21. Do
    22. Straße1 = Int((Obergrenze - Untergrenze + 1) * Rnd + Untergrenze)
    23. CheckBox1.Caption = Worksheets("Tabelle2").Cells(Straße1, "B")
    25. Straße2 = Int((Obergrenze - Untergrenze + 1) * Rnd + Untergrenze)
    26. CheckBox2.Caption = Worksheets("Tabelle2").Cells(Straße2, "B")
    28. Straße3 = Int((Obergrenze - Untergrenze + 1) * Rnd + Untergrenze)
    29. CheckBox3.Caption = Worksheets("Tabelle2").Cells(Straße3, "B")
    31. Straße4 = Int((Obergrenze - Untergrenze + 1) * Rnd + Untergrenze)
    32. CheckBox4.Caption = Worksheets("Tabelle2").Cells(Straße4, "B")
    33. Loop Until Straße1 <> Straße2 <> Straße3 <> Straße4
    34. Loop Until Worksheets("Tabelle2").Cells(Straße1, "C") = Worksheets("Tabelle2").Cells(Stadtteil, "C") Or Worksheets("Tabelle2").Cells(Straße2, "C") = Worksheets("Tabelle2").Cells(Stadtteil, "C") Or Worksheets("Tabelle2").Cells(Straße3, "C") = Worksheets("Tabelle2").Cells(Stadtteil, "C") Or Worksheets("Tabelle2").Cells(Straße4, "C") = Worksheets("Tabelle2").Cells(Stadtteil, "C")
    35. End Sub


    Anschließend soll beim Click des Buttons abgeklärt werden, ob die Antwort richtig ist.
    - Wenn alle möglichen Antwort richtig ausgewählt wurden erhöht sich der Wert in der TextBox7 um 5
    - Ist mind. eine Antwort aber nicht alle richtig erhöht sich der Wert in der TextBox7 um 2
    - Ist keine Antwort richtig ausgewählt worden gibt es keine Punkte.

    Im folgenden Code habe ich versucht dies umzusetzen

    Quellcode

    1. Private Sub CommandButton1_Click()
    2. Static cnt As Long
    3. Dim Stadtteil As Integer
    4. Dim ganzerSatz As String
    5. Dim Straße1 As Integer
    6. Dim Straße2 As Integer
    7. Dim Straße3 As Integer
    8. Dim Straße4 As Integer
    9. Const Untergrenze As Integer = 2
    10. Const Obergrenze As Integer = 707
    11. Dim x As Integer
    12. Dim Zähler As String
    14. If cnt >= 5 Then GoTo Neustart
    16. If CheckBox1.Value = True Or CheckBox2.Value = True Or CheckBox3.Value = True Or CheckBox4.Value = True Then
    17. If Worksheets("Tabelle2").Cells(Straße1, "C") = Worksheets("Tabelle2").Cells(Stadtteil, "C") Then
    18. If CheckBox1.Value = True Then
    19. CB2:
    20. If Worksheets("Tabelle2").Cells(Straße2, "C") = Worksheets("Tabelle2").Cells(Stadtteil, "C") Then
    21. If CheckBox2.Value = True Then
    22. CB3:
    23. If Worksheets("Tabelle2").Cells(Straße3, "C") = Worksheets("Tabelle2").Cells(Stadtteil, "C") Then
    24. If CheckBox3.Value = True Then
    25. CB4:
    26. If Worksheets("Tabelle2").Cells(Straße4, "C") = Worksheets("Tabelle2").Cells(Stadtteil, "C") Then
    27. If CheckBox4.Value = True Then
    28. TextBox7.Text = TextBox7.Text + 5
    29. Else
    30. TextBox7.Text = TextBox7.Text + 2
    31. End If
    32. End If
    33. TextBox7.Text = TextBox7.Text + 5
    34. Else
    35. TextBox7.Text = TextBox7.Text + 2
    36. End If
    37. Else: GoTo CB4
    38. End If
    39. TextBox7.Text = TextBox7.Text + 5
    40. Else
    41. TextBox7.Text = TextBox7.Text + 2
    42. End If
    43. Else: GoTo CB3
    44. End If
    45. TextBox7.Text = TextBox7.Text + 5
    46. Else
    47. TextBox7.Text = TextBox7.Text + 2
    48. End If
    49. Else: GoTo CB2
    50. End If
    53. CheckBox1.Value = False
    54. CheckBox2.Value = False
    55. CheckBox3.Value = False
    56. CheckBox4.Value = False
    59. Randomize Timer
    61. Stadtteil = Int((Obergrenze - Untergrenze + 1) * Rnd + Untergrenze)
    62. ganzerSatz = "Welche der nachfolgenden Straßen gehören zu dem Stadtteil " & Worksheets("Tabelle2").Cells(Stadtteil, "C") & "?"
    63. TextBox1.Text = ganzerSatz
    66. Do
    67. Do
    68. Straße1 = Int((Obergrenze - Untergrenze + 1) * Rnd + Untergrenze)
    69. CheckBox1.Caption = Worksheets("Tabelle2").Cells(Straße1, "B")
    71. Straße2 = Int((Obergrenze - Untergrenze + 1) * Rnd + Untergrenze)
    72. CheckBox2.Caption = Worksheets("Tabelle2").Cells(Straße2, "B")
    74. Straße3 = Int((Obergrenze - Untergrenze + 1) * Rnd + Untergrenze)
    75. CheckBox3.Caption = Worksheets("Tabelle2").Cells(Straße3, "B")
    77. Straße4 = Int((Obergrenze - Untergrenze + 1) * Rnd + Untergrenze)
    78. CheckBox4.Caption = Worksheets("Tabelle2").Cells(Straße4, "B")
    79. Loop Until Straße1 <> Straße2 <> Straße3 <> Straße4
    80. Loop Until Worksheets("Tabelle2").Cells(Straße1, "C") = Worksheets("Tabelle2").Cells(Stadtteil, "C") Or Worksheets("Tabelle2").Cells(Straße2, "C") = Worksheets("Tabelle2").Cells(Stadtteil, "C") Or Worksheets("Tabelle2").Cells(Straße3, "C") = Worksheets("Tabelle2").Cells(Stadtteil, "C") Or Worksheets("Tabelle2").Cells(Straße4, "C") = Worksheets("Tabelle2").Cells(Stadtteil, "C")
    82. Else
    83. UserForm10.Show
    84. cnt = cnt - 1
    85. End If
    86. Neustart:
    87. cnt = cnt + 1
    89. If cnt <= 4 Then
    90. x = cnt + 1
    91. Zähler = "Frage " & x & " von 5"
    92. Label4.Caption = Zähler
    93. End If
    95. If cnt = 5 Then
    96. CommandButton1.Caption = "Noch mal?"
    97. CommandButton2.Caption = "Punkte einlösen"
    99. CheckBox1.Caption = ""
    100. CheckBox1.Enabled = False
    102. CheckBox2.Caption = ""
    103. CheckBox2.Enabled = False
    105. CheckBox3.Caption = ""
    106. CheckBox3.Enabled = False
    108. CheckBox4.Caption = ""
    109. CheckBox4.Enabled = False
    111. TextBox1.Text = ""
    112. End If
    113. If cnt = 6 Then
    114. Unload Me
    115. Unload UserForm8
    116. UserForm8.Show
    117. End If
    118. End Sub


    Ich bin mir nicht genau sicher wo der Fehler liegt, aber ich gehe davon aus, dass die bei Sub UserForm_Initialize() generierten Anfangswerte nicht mit zu Sub CommandButton1_Click übernommen werden.
    Alles andere funktioniert, bis auf die If-Verschachtelung zur Ermittlung der Punkte.
    Der Fehler Bezieht sich auf Zeile 17 von Code2 (CommandButton_Click) und lautet: "Laufzeitfehler '1004': Anwendungs- oder objektdefinierter Fehler"

    Vielen Dank schon mal im Vorraus!

Facebook
Telefonspende