Zufallszahl
30.11.2003 16:54:19
Max M.
habe hier ein Makro das mir in der ersten Zelle eine Zufallszahl zwischen 1 und 6 einfügt.
Was muss ich bei diesen Makro ändern, dass auch einmal eine 0 dabei sein kann?
Sub Zufallszahl1()
Dim zahlen(6) As Integer
For i = 1 To 1
nochmal:
zahl = Int(6 * Rnd()) + 1
For c = 1 To 1
If zahl = zahlen(c) Then GoTo nochmal
Next c
zahlen(i) = zahl
Next i
For i = 1 To 1
Cells(i, 1) = zahlen(i)
Next i
End Sub
Max M.