Liebes Forum,

bis jetzt war ich nur stiller Leser und konnte soweit für jedes Problem hier eine Antwort finden. Mein aktuelles Problem ist für viele hier vermutlich trivial, ich kann den Fehler allerdings leider nicht finden. Der Code unten baut auf einem Zufallszahlengenerator von denisreis auf.

Die kurze Prozedur soll 100 Zufallstipps in ein Array speichern. Die zweite Schleife funktioniert allerdings leider nur bis maximal "For x = 1 To 7". Ab "For x = 1 To 8" und aufwärts (gewünscht wäre "For x = 1 To 100") gibt Excel keine Rückmeldung mehr. Warum hängt sich die Schleife bei mehr als 7 Wiederholungen auf? Wie kann dies besser gelöst werden?

Private Sub Lotto6aus45()

Dim Array1(1 To 45) As Byte
Dim Array2(1 To 100, 1 To 6) As Byte
Dim x, y, z As Byte

For x = 1 To 45
Array1(x) = x
Next

For x = 1 To 100
For y = 1 To 6
Do
z = Int(Rnd * 45) + 1
Loop Until Array1(z) > 0

Array2(x, y) = z
Array1(z) = 0

Next y
Next x

End Sub

Vielen lieben Dank für jegliche Hilfe!