|
Hallo, ich benötige bitte Hilfe für eine Aufgabenstellung (englisch). Die Aufgabe lautet wie folgt:
Write a macro that produces two random integer numbers between 1 and 20 and writes them in two different cells (columns) of row 1. If the numbers are different, the routine produces another pair of numbers and places them in the same columns of row 2. If the numbers are different, the routine produces another pair of numbers and places them in the same columns of row 3 and so on... These random draws of pairs must continue until two numbers are equal, in this case, the routine stops.
Die zufälligen Werte funktionieren, allerdings hab ich noch Probleme mit dem Loop. Hab bisher Do While / Loop Until versucht, aber als Ergebnis bekomme ich nicht mehr als die erste Reihe.
Sub CommandButton1_Click()
Dim i As Integer
i = 1
Do While Cells(i, 1) <> Cells(i, 2)
Cells(i, 1).Value = Int((20 - 1 + 1) * Rnd + 1)
Cells(i, 2).Value = Int((20 - 1 + 1) * Rnd + 1)
i = i + 1
Loop
End Sub
Ich bin mir sicher, dass der Fehler wohl sehr offensichtlich ist, aber ich steh hier leider an. Bitte um Hilfe!
|