Thema Datum  Von Nutzer Rating
Antwort
Rot Hilfe bei Erstellung eines Makros
13.08.2016 17:00:38 Florian
Solved
13.08.2016 22:52:53 Gast51654
NotSolved
14.08.2016 09:05:16 Gast53593
NotSolved

Ansicht des Beitrags:
Von:
Florian
Datum:
13.08.2016 17:00:38
Views:
978
Rating: Antwort:
 Nein
Thema:
Hilfe bei Erstellung eines Makros

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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Hilfe bei Erstellung eines Makros
13.08.2016 17:00:38 Florian
Solved
13.08.2016 22:52:53 Gast51654
NotSolved
14.08.2016 09:05:16 Gast53593
NotSolved