Array will nicht wie ich...
10.08.2004 22:21:47
Achim
bin verzweifelt, er trägt mir in alle 100 Zellen den selben Wert ein, im Lokal-
fenster sehe ich aber, das der Array korrekt Zufallszahlen enthält. Das Makro
ist nur für mich zum üben von Arrays.
Option Explicit
Option Base 1
Sub Arraytest()
Dim ArrZufall(100) As Double, i As Byte
For i = 1 To 100
Randomize
ArrZufall(i) = Rnd
Next
Range(Cells(1, 1), Cells(100, 1)) = ArrZufall
End Sub
Grüße Achim