2 Schleifen ineinander mit Zufallsformel
19.08.2017 22:50:07
Lucas
Ich möchte eine Art Monte-Carlo Simulation erstellen via Makro.
Dazu habe ich folgenden Code geschrieben:
Sub Schleife()
Dim n As Long
Dim pOne As String
Dim pTwo As String
Dim i As Long
Dim sFormula As String
Dim WSQuelle As Worksheet
Dim WSZiel As Worksheet
Dim WBK As Workbook
Set WSQuelle = Worksheets("Test")
Set WSZiel = Worksheets("Parameter")
n = WSQuelle.Cells(2, 6)
pOne = WSQuelle.Cells(3, 6)
pTwo = WSQuelle.Cells(4, 6)
sFormula = "=NORM.INV(Rand()," & pOne & "," & pTwo & ")"
WSZiel.Cells(15, 8) = sFormula
Dim G As Double
Dim j As Variant
Dim k As Integer
G = Cells(55, 2)
For j = 1 To 10
Cells(60 + j, 1).Value = G
For k = 1 To 10
Cells(15, 8) = sFormula
Next k
Next j
End Sub
Diesen Schritt möchte ich n mal wiederholen mit jeweils einem neuen Zufallswert und einem neuen Ergebnis. Die Ergebnis sollen dabei untereinander gespeichert werden.
Mein Problem ist jedoch, dass die Zufallsfunktion während der Rechenprozedur nicht updatet und n mal das selbe Ergebnis rauskommt.
Weiß jemand Rat? Ich wäre euch sehr dankbar.
Beste Grüße
Lucas