Vor einiger Zeit habe ich ein kleines Programm zur Oppurtunitätskostenberechnung unserer Abteilung geschrieben. Die Funktionen sind in einem Modul abgelegt. Die Inputparameter (Risiko, Volumen, Laufzeit) werden über eine Userform eingegeben, wo dann auch die Berechnung mit Hilfe der Funktionen gestartet wird.
Bis anhin wurden die Kosten mit der maximalen Laufzeit berechnet. Die Laufzeit wird immer in ganzen Jahren angegeben. Wir würden nun lieber einen durschnittliche Laufzeit verwenden. Ich dachte da an eine Loop-Until Funktion, welche von der maximalen Laufzeit ausgegeht, und dann bei jedem Loop ein Jahr abzieht bis zu einem Jahr Restlaufzeit. Von der Summe lässt sich dann ein Durchschnitt berechnen.
Mit meinen bescheidenen VBA-Kenntnissen scheitere ich allerdigns schon bei der Loop-until Funktion:
dblMaturity = txtMat.Value
Do
AggrCost = Funktion1(dblRisiko, dblVolumen, dblMaturity)
dblMaturity = dblMaturity - 1
Loop Until dblMaturity = 1
MsgBox "Ergebnis: " & WorksheetFunction.Sum(AggrCost)
Für einen Input wie ich dieses Problem besser angehen soll bin ich euch äusserst dankbar.
Beste Grüsse
Laurenz