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