Hallo zusammen
Ich habe ein Excelsheet erhalten, bei welchem mir das Programm sagt, dass die programierten Makros nicht funktionieren.
Wisst ihr evtl. warum?
dies ist der makrotext:
Function Annuität(Zins, Jahr)
’
’ Berechnet den Annuitätenfaktor aus Zins und Laufzeit (Jahre)
’
i = Zins
n = Jahr
z1 = (1 + i) ^ n * i
z2 = (1 + i) ^ n - 1
Annuität = z1 / z2
End Function
Function Sumdiskont(Zins, Teuerung, Jahr)
’
’ Berechnet den Diskontierungssummenfaktor für eine regelmässige Zahlung (nachschüssig)
’
i = Zins
n = Jahr
e = Teuerung
z1 = (1 + i) ^ n - (1 + e) ^ n
z2 = (1 + i) ^ n * (i - e)
Sumdiskont = (1 + e) * z1 / z2
End Function
Function Barwert(Zins, Teuerung, Jahr)
’
’ Berechnet den Barwert zur Zeit = 0 einer einmaligen Zahlung zum Zeitpunkt t (Jahr)
’
i = Zins
n = Jahr
e = Teuerung
z1 = (1 + e) ^ n
z2 = (1 + i) ^ n
Barwert = z1 / z2
End Function
Function Bereichstest(Wert, Unten, Oben)
’
’ Hilfsfunktion, welche feststellt, ob ein Wert inerhalb einer Bandbreite (Unten bis Oben) liegt.
’ Wenn der Wert im Bereich liegt, gibt die Funktion eine 1 zurück. In allen anderen Fällen
’ wird eine 0 zurückgegeben
’ Grenzfälle: Wert = Unten --> noch 1, Wert = Oben --> noch 1
’
Bereichstest = 1
If Wert Oben Then
Bereichstest = 0
GoTo ende
End If
ende:
End Function
