Hallo zusammen,
ich versuche etwas zu simulieren und habe dafür den unten angefügten VBA Code geschrieben. Im Grunde funktioniert der auch, nur habe ich das Gefühl, dass die erzeugten simulierten Daten aufeinander aufbauen, da die von Simulation zu Simulation kleiner werden. Habe ich irgendwo eine Schleife falsch gesetzt, so dass die aufeinander aufbauen?
Vielen vielen Dank im Voraus.
Option Explicit
Sub simulation()
Dim aktZSK(1 To 5) As Variant
Dim zwischenerg(1 To 5) As Variant
Dim Zeitraum As Integer
Dim anzahlsimulationen As Integer
Dim zufallszahl As Double
Zeitraum = Blatt1.Cells(1, 14)
anzahlsimulationen = Blatt1.Cells(2, 14)
Dim i As Integer
Dim j As Integer
Dim z As Integer
For i = 1 To 5
aktZSK(i) = Blatt1.Cells(5, i + 1)
Next i
For j = 1 To anzahlsimulationen
For z = 1 To Zeitraum
zufallszahl = Application.WorksheetFunction.RandBetween(1, 1306)
For i = 1 To 5
zwischenerg(i) = zwischenerg(i) + Blatt1.Cells(zufallszahl + 4, i + 7)
Next i
Next z
For i = 1 To 5
Blatt1.Cells(6 + j, 14 + i) = aktZSK(i) * Exp(zwischenerg(i))
Next i
Next j
End Sub
|