Mit deiner Tabelle kann ich nichts anfangen.
Ich hatte deine erste Beschreibung wie folgt verstanden:
Es gibt Fragen und zu diesen genau 4 Antwortmöglichkeiten, die entweder wahr oder falsch sind.
Ich hatte eine Tabelle wie folgt im Kopf
A B C D E F G H I
1 Frage Antwort1 Antwort2 Antwort3 Antwort4 Richtig1 Richtig2 Richtifg3 Richtig4
2 Text Text Text Text Text boolesch boolesch boolesch boolesch
3 Text Text Text Text Text boolesch boolesch boolesch boolesch
...
Dann kannst du die Daten mit einer For-Next-Schleife in ein Array übertragen:
lz=Cells(Rows.Count, 1).End(xlUp).Row:redim fragen(8,lz):for i=2 to lz: for j=0 to 8: fragen(j,i)=cells(i,j): next j::next i
Im Button für die nächste Frage kannst du eine Zufallszahl für die Auswahl der Frage bestimmen. Vorher solltest du irgendwo randomize eingefügt haben:
i=int(lz+1)*rnd) textbox_frage=frage(i,0):checkbox1.capture=frage(i,1): .... : checkbox4.capture=frage(i,4)
In der Auswerteprozedur kannst du anwenden, was ich beim letzten Mal geschrieben habe, aber mit den richtigen Spalten!
|