|
Hey, hat leider nicht geklappt..
Sub VariablenKurs()
Dim Strikepreis As Variant
Strikepreis = Worksheets("Kursmittel als Endwert").Range("J9").Value
If Range("J9") = "" Then
MsgBox "Strikepreisfehlt"
Exit Sub
End If
Dim µ As Variant
µ = Worksheets("Kursmittel als Endwert").Range("J10").Value
If Range("J10") = "" Then
MsgBox "µ fehlt"
Exit Sub
End If
Dim sigma As Variant
sigma = Worksheets("Kursmittel als Endwert").Range("J11").Value
If Range("J11") = "" Then
MsgBox "Sigma fehlt"
Exit Sub
End If
Dim zins As Variant
zins = Worksheets("Kursmittel als Endwert").Range("J12").Value
If Range("J12") = "" Then
MsgBox "Zinssatz fehlt"
Exit Sub
End If
Dim t As Variant
t = Worksheets("Kursmittel als Endwert").Range("J13").Value
If Range("J13") = "" Then
MsgBox "Time to Maturity fehlt"
Exit Sub
End If
Dim NumberOfSteps As Variant
NumberOfSteps = Worksheets("Kursmittel als Endwert").Range("J14").Value
If Range("J14") = "" Then
MsgBox "Anzahl der Schritte fehlt"
Exit Sub
End If
Dim anzahlPfade As Variant
anzahlPfade = Worksheets("Kursmittel als Endwert").Range("J15").Value
If Range("J15") = "" Then
MsgBox "Anzahl der simulierten Pfade fehlt"
Exit Sub
End If
End Sub
Daran habe ichheute den ganzen Tag gesessen. Dachte man könnte das als Grundlage benutzen?
Keni
|