Thema Datum  Von Nutzer Rating
Antwort
18.08.2016 14:17:52 Keni
NotSolved
Blau Array/Schleife
 18.08.2016 16:08:27 Gast64728
NotSolved
18.08.2016 16:20:49 Gast71458
NotSolved
18.08.2016 18:00:51 Gast75351
NotSolved

Ansicht des Beitrags:
Von:
Gast64728		 Datum:
18.08.2016 16:08:27		 Views:
693		 Rating:
     
Antwort:
  Ja
Thema:
Array/Schleife

Hallo Keni

Versuche es mal so:

 




 

Option Explicit


Public Sub kurs()

Dim aktienkurs() As Double
Dim sigma As Double, zins As Double, random As Double
Dim N As Integer, anzahlPfade As Integer
Dim t As Integer, j As Integer



'N steht im ersten Sheet in der Zelle A1 und die Tabelle mit den Aktienkursen kommt in Sheet 2

N = Sheets(1).Range("A1").Value
ReDim aktienkurs(N + 1)


aktienkurs(0) = 1
sigma = 1
zins = 0.0005
anzahlPfade = 5

'Im Sheet 2 geben wir die Zeitpunkte in der ersten Spalte an
Sheets(2).Cells(1, 1).Value = "Zeit"
For t = 0 To N
    Sheets(2).Cells(t + 2, 1).Value = t
Next

'Aktienkurse berechnen
For j = 1 To anzahlPfade
    'Spaltenüberschriften und Anfangskurs notieren
    Sheets(2).Cells(1, j + 1).Value = "Aktienkurs - Pfad " & j
    Sheets(2).Cells(2, j + 1).Value = aktienkurs(0)
    
    'Aktienkurse berechnen und notieren
    For t = 0 To N - 1
        aktienkurs(t + 1) = aktienkurs(t) * Exp(zins + 0.5 * sigma ^ 2) + Application.WorksheetFunction.Norm_Inv(Rnd, 0, 1)
        Sheets(2).Cells(t + 3, j + 1).Value = aktienkurs(t + 1)
    Next
Next
End Sub

 

Liebe Grüsse

 

Miraamis

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
18.08.2016 14:17:52 Keni
NotSolved
Blau Array/Schleife
 18.08.2016 16:08:27 Gast64728
NotSolved
18.08.2016 16:20:49 Gast71458
NotSolved
18.08.2016 18:00:51 Gast75351
NotSolved