Hallo liebe Forum-Mitglieder,
dies ist mein erster Beitrag, da ich bei meiner Suche nach einer Antwort sonst nirgends fündig geworden bin. Ich hoffe ihr könnt mir helfen.
Ich habe eine kleine Schleife geschrieben in der normalverteilte Zufallszahlen generiert werden mit denen ich innerhalb der schleife weiterrechne. Bei einem Rechenschritt kann bei bestimmten Zufallszahlen ein nagatives Ergebnis herauskommen. Ich möchte in diesem Fall die Schleife neu starten.
Mein bisheriger code:
dim intz as integer
dim Sum as double
dim x(1 to 5000) as double
intz = 1
Do Until Sum > 2000
'generiere zufallszahlen: x, y, z
x(intz) = WorksheetFunction.NormInv(Rnd(), xm, xs)
'rechne rum
if x(intz) > 'einem gerechneten wert
'STARTE DIE SCHLEIFE NEU *)
end if
Sum = Sum + x(intz)
intz = intz + 1
Loop
*) Mein erste Versuch, der nicht funktioniert war:
Do Until Sum > 2000
Do
'generiere zufallszahlen: x, y, z
x(intz) = WorksheetFunction.NormInv(Rnd(), xm, xs)
'rechne rum
if x(intz) > 'einem gerechneten wert
exit Do ' komischer Weise kommen dabei unsinnige Werte raus. Die schleife wird z.B. erst
'bei 10000 beendet
end if
Sum = Sum + x(intz)
intz = intz + 1
Loop
Loop
Vielen Dank schon einmal im vorraus