Ich moechte gerne, dass ZUFAELLIG zahlen zwischen 1 und 54 erzeugt werden. Jede Zahl soll aber nur einmal vorkommen. Meim bisheriger Ansatz sieht wie folgt aus, allerdings erhalte ich hier Error 9, was auch immer das heisst :D Habt ihr eine Idee? Vielleicht geht das ganze auf viel unfauwendiger.... Gruss, Anton
Sub test()
Dim vektor(1 To 54) As Integer
Range("A1:BZ2").Value = ""
Dim Z As Integer
Dim i As Integer
Dim Anzahl As Integer
For Z = 1 To 54
Worksheets("Sheet1").Calculate
vektor(Z) = Z
Cells(1, Z).Value = Z
Next Z
While Application.WorksheetFunction.Sum(vektor) > 0
Range("A3").Value = Anzahl
Random = Int((54 - 1 + 1) * Rnd - 1)
If vektor(Random) > 0 Then
Cells(2, Random).Value = vektor(Random)
vektor(Random) = 0
Anzahl = Anzahl + 1
End If
Wend
End Sub