Thema Datum  Von Nutzer Rating
Antwort
Rot Ergebnisse einer Monte Carlo Simulation werden nicht ausgweisen
 30.10.2017 10:14:02 EnricoN
NotSolved
30.10.2017 12:08:04 Gast14574
NotSolved

Ansicht des Beitrags:
Von:
EnricoN		 Datum:
30.10.2017 10:14:02		 Views:
1158		 Rating:
     
Antwort:
  Ja
Thema:
Ergebnisse einer Monte Carlo Simulation werden nicht ausgweisen

Liebe Forengemeinde,

 

ich bin ein blutiger Anfänger in Sachen VBA und möchte nun eine MonteCarlo Simulation für die  Risikobewertung aufstellen. Ich habe bereits eine passende gefunden. nur erhalte ist stets als Ergebnis das Wort "Result".

Ich bin wie folgt vorgegangen.

1. Erstellen einer Basisdatei in Excel mit 3 Tabellenblätter

- Setup

Hier stehen die Informationen; Anzahl der Berechnungsdurchläufe; Kriterium ob Input oder Output, die Paramter (Material, Lohn, Personal, Ergebniss) und die Bandbereiten in der sich die jeweiligen bewegen. 

- Data

Hier sollen die Daten der Durchläufe aufgelistet werden

Spalte 1: MAterial+Lohn+Personal-Ergebnis; Aber hier wird nix ausgewertet sondern in jede Zeile das Wort "Result" eingefügt

ab spalte G die einzelnen Ausprägungen der Durchläufe von Material, Lohn, Peronsal

- Chart

2. Erstellung einer Vergleichsdatei "BP"

Anbei der Code:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Sub MonteCarlo()
On Error GoTo 100
 
' clearing old Data
    Worksheets("Data").Activate
    Range("A:A").Clear
    Worksheets("Setup").Activate
     
 
' Rechenläufe
    NOS = Range("NOS")
     
 
For i = 1 To NOS
 
    r = 6
     
    Do While Not (IsEmpty(Cells(r, 1)))
     
    r = r + 1
     
    Current_IO = Cells(r, 1)
    Current_File = Cells(r, 2)
    Current_Sheet = Cells(r, 3)
    Current_Cell = Cells(r, 4)
    Current_Value = Cells(r, 5)
     
   If Current_IO = "I" Then
   Workbooks(Current_File).Worksheets(Current_Sheet).Range(Current_Cell) = Current_Value
   Workbooks("MonteCarlo.xlsm").Worksheets("Data").Cells(i, r) = Current_Value
    
   ElseIf Current_IO = "O" Then
   Result = Workbooks(Current_File).Worksheets(Current_Sheet).Range(Current_Cell)
   Workbooks("MonteCarlo.xlsm").Worksheets("Data").Cells(i, 1) = Result
 
    
   End If
    
' Ende der Spaltenrehiung
Loop
 
'Ende der Berechnungsläufe
Next i
    
' Errot Handling
GoTo 200
100 MsgBox Error
200
End Sub
    

Könnte Ihr mit bitte einen Tipp geben wie die Ergebnisse je Zeile ausgewiesen werden?

Besten Dank vorab

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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 Ergebnisse einer Monte Carlo Simulation werden nicht ausgweisen
 30.10.2017 10:14:02 EnricoN
NotSolved
30.10.2017 12:08:04 Gast14574
NotSolved