|
Hallo Forumsmitglieder,
ich versuche eine Simulation anhand von Excel durchzuführen. Einen Beispieltag habe ich bereits simuliert.
In Zeile 67 bis 166 sollen die Tage 1 bis 100 simuliert werden. Dies funktioniert leider nicht. Eine automatische Ausführung beim Start bzw. durch Drücken von STRG+M wäre gut. Habe die Datei hier hochgeladen: https://1drv.ms/f/s!Apd7l_gVlK82jTxfblfYmOUdul-z
Der Code lautet bisher:
Private Sub Worksheet_Activate()
Tabelle1
End Sub
------------------------
Option Explicit
Function main()
Dim xvRandom, xvStartRow, i
xvStartRow = 66
For i = 1 To 100
'//Zufallszahl generieren
xvRandom = Rnd()
ActiveSheet.Cells(1, 8).Value = xvRandom
'//Werte je Tag wegsichern
ActiveSheet.Cells(xvStartRow + i, 2).Value = ActiveSheet.Cells(61, 1).Value '//behandelte Patienten
ActiveSheet.Cells(xvStartRow + i, 3).Value = ActiveSheet.Cells(61, 13).Value '//abgewiesene Patienten
ActiveSheet.Cells(xvStartRow + i, 4).Value = ActiveSheet.Cells(61, 4).Value '//durchschn. wartende Patienten
ActiveSheet.Cells(xvStartRow + i, 5).Value = ActiveSheet.Cells(61, 12).Value '//durchschn. Wartezeit
Next i
End Function
-------------------------
Kann mir einer helfen ?
Beste Grüße
Florian
|