Byref, sonst Mehrfachdeklaration
16.06.2016 21:34:59
Max
Auszugsweise aus VBA:
Private Sub CommandButton1_Click()
S = Sheets("TriDiv").Range("D8").Value
[und weitere Werte]
(...)
option_price = TrinomialPricer(S, K, t, rf, vol, n, CallPut, AmerEuro, divmat)
[hier taucht die Meldung auf "Argumenttyp byRef unverträglich"]
(...)
End Sub
Weiter unten kommt meine Funktion
Public Function TrinomialPricer(S As Double, K As Double, t As Double, rf As Double, _
vol As Double, n As Double, CallPut As String, AmerEuro As String, divmat As Variant) As _
Variant
(...)
End Function
_
Falls ich nun in der Sub alle Variablen deklariere, habe ich Mehrfachdeklarationen und im Falle, _
dass ich in der Sub deklariere und in der Funktion nicht mehr, kam (zu meinem Erstaunen) auch eine Fehlermeldung, da an bestimmten Stellen in der Funktion wieder die "byRef"-Fehlermeldung kam.
Gibt es einen einfachen Weg das Problem der Mehrfachdeklaration/Nichtdeklaration zu umgehen? _
Die Struktur mit einer Sub, die meine Funktion anspricht, würde ich gerne beibehalten.
Falls der Fehler doch ganz wo anders liegen sollte, wäre ich natürlich auch um jeden Hinweis _
dankbar
Vielen Dank fürs Helfen.
Anzeige