Zufallszahlen von 0 bis 36 ?

Hi,

hier mal ein kleines Lottoprogramm
was ich mal gebastelt habe.

Das kannst du dir ja anpassen.

Sub lottozahlen()
Dim zahlen(6) As Integer
For i = 1 To 6

nochmal:
zahl = Int(49 * Rnd()) + 1
For c = 1 To 6
If zahl = zahlen(c) Then GoTo nochmal
Next c
zahlen(i) = zahl
Next i
For i = 1 To 6
Cells(i, 1) = zahlen(i)
Next i

End Sub

gruß Uwe