hallo leute
der folgende code soll mir von meiner aktiven celle aus eine 1000x30 matrix mit random - zahlen füllen.
Sub Makro1()
Dim i As Double
k = 0
While k < 29
i = 0
While i < 999
ActiveCell.Cells(1 + i, 1 + k).Value = Rnd
i = i + 1
Wend
k = k + 1
Wend
End Sub
,... was er auch teilweise macht
nur plötzlich unterbricht er und meldet bei " i = i + 1" einen fehler?
manchmal hat er da schon 50 zeilen manchmal 200 zeilen ausgefüllt aber nie mehr.
wenn ich "fortsetzten" drücke, geschiet das gleiche spiel nochmal.
was ist da los?
probiert es mal bei euch aus?
lg KJ |