Zufallszahlen 0 bis 2 ohne Wiederholung
02.12.2022 18:47:25
robert
heute mal ein dämliches Problem
Ich möchte drei Schaltflächen ZufallsTexte aus einem Array mit 3 Inhalten zuweisen.
Leider hängt sich mein Script in einer Endlosschleife auf....
Ich mach es mir sicher nur wieder zu kompliziert...
Hat jemand ne Idee?
tQuest = ThisWorkbook.Sheets("Tabelle2").Range("A" & rndAnswerRightRow)
tAnswerRight = ThisWorkbook.Sheets("Tabelle2").Range("B" & rndAnswerRightRow)
tAnswerFalse1 = ThisWorkbook.Sheets("Tabelle2").Range("B" & rndAnswerFalseRow1)
tAnswerFalse2 = ThisWorkbook.Sheets("Tabelle2").Range("B" & rndAnswerFalseRow2)
Label_Quest.Caption = tQuest
Dim rndArray(2) As String
rndArray(0) = tAnswerRight
rndArray(1) = tAnswerFalse1
rndArray(2) = tAnswerFalse2
nBut1 = Int(2 * Rnd)
'Zufalls-Falsch-Antwort-Zeile auswählen, die nicht die Richtige beinhaltet
nBut2 = Int(2 * Rnd)
If nBut2 = nBut1 Then
nBut2 = Int(2 * Rnd)
End If
nBut3 = Int(2 * Rnd)
Do While nBut3 = nBut1 Or nBut3 = nBut2
nBut3 = Int(2 * Rnd)
Loop
cb_A1.Caption = rndArray(nBut1)
cb_A2.Caption = rndArray(nBut2)
cb_A3.Caption = rndArray(nBut3)