Do Loop Verzweiflung
manu
ich bin gerade etwas am verzweifeln, da ich immer einen Laufzeitfehler 438 bekomme und ich nicht weiß wo ich den Fehler finden kann.
Ich habe folgenden Code:
Sub DoLoopVersuch()
Dim i As Integer
Dim summe As Single
ThisWorkbook.Worksheets("Tabelle1").Activate
Range("C1:C20").Clear
Randomize
i = 1
summe = 0
Do
summe = summe + Rnd
Cells(i, 3).nuberformatlocal = "0,000"
Cells(i, 3).Value = summe
i = i + 1
Loop While summe Und es funktioniert nichts.
Kann mir jemand hierbei helfen? Das wäre echt super!!!
LG
Manu
Anzeige