Hallo !
Ich habe eine Tabelle mit Quizfragen.
Da ich ein Quiz programmiert habe möchte ich das nciht immer die gleichen fragen
gestellt werden und so sollen die vorhandenen fragen einfach immer bunt durcheinader
gewürfelt werden bevor der test beginnt.
Die struktur der tabelle sieht so aus:
Frage - antwort 1 - antwort 2 - antwort 3 - antwort 4
ich habe ca 34 fragen die so untereinaander weggeschrieben sind.
Ich möchte nun ein modul haben das.
sich eine bestimmte zeile (3) nimmt,
dann eine andere zeile (24) nimmt sie an die stelle packt wo zeile (3) vorher war
und zeile (3) an die stelle von zeile (24) packt
ich habe bereits eine programmierung vorliegen die aber noch nciht ganz funktioniert,
da ich nicht weil ob ich ganze zeilen in eine Variable packen kann, da da ja schon einige
informationen drin stecken.
hier die bisherige programmierung:
Sub wirbel_Zeilen()
'Zeilen vertauschen
Dim Zeile As Integer
Dim i As Integer 'Laufvariablen
Dim y As Integer
Dim varTausch As Variant ' Bildertausch
Dim intAnzahl_Zeilen As Integer ' Wie viel Bilder?
Dim intZZahl As Integer ' Zufallszeile
'Initialisierung
Randomize ' Zufallszahlengenerator initialisieren.
Zeile = 3
Sheet = 2
'Zähle Zeilen
Do Until Worksheets(Sheet).Cells(Zeile, 1) = ""
intAnzahl_Zeilen = intAnzahl_Zeilen + 1
Zeile = Zeile + 1
Loop
'Testbox
'MsgBox intAnzahl_Zeilen & " Fragen"
For i = 3 To 20 ' Tausche 20 mal die Liste
Zeile = 3
' Tausche innerhalb der Liste
For y = i To (intAnzahl_Zeilen + 3)
'Setze Start
intZZahl = Int((intAnzahl_Zeilen * Rnd) + 1)
'Zeile 3
varTausch = Worksheets(Sheet).Rows(Zeile)
'Schnapp dir das Bild darunter
Worksheets(Sheet).Rows(Zeile) = Worksheets(Sheet).Rows(intZZahl)
'Schreibe darunter
Worksheets(Sheet).Rows(intZZahl) = varTausch
'
Next y
Next i
End Sub
das komische ist das wenn ich das anwende alle meine zeilen leer sind.
Ich hoffe jemand kann schnell helfen. vielen dank schon mal :) |