udo´s vba code bittet um Kontrolle
29.04.2006 14:17:00
udo
Der nachfolgende vba code soll aus einem Datenblatt, welches von Spalte 1 bis 60 und Reihe 1 bis 8000 geht, zufällig 8000 Zahlen herausnehmen und in Spalte 62 schreiben.
Ich hab dann nicht mehr 60 Spalten zu jeweils 8000 sondern 61 Spalten, wobei die 62.Spalte vollkommen neu ist.
Könnte mal einer gucken, der sich auskennt, ob der Code so korrekt ist ?
Vielen Dank.
Sub achtausend()
Dim Zahl
Dim ii&
Randomize
For ii = 1 To 8000
Do
Zahl = Cells(Int(8000 * Rnd + 1), Int(60 * Rnd + 1))
Loop Until Zahl >= 0 And Zahl <= 37
Cells(ii, 62) = Zahl
Next ii
End Sub