Hallu zusammen
Ich habe eine Excelsheet erhalten, bei welchem mir es Fehler mit den Makros anzeigt. Ich habe keine Ahnung vom VBA Manager und es es hat anscheinend immer Probleme beim debuggen und irgendwas mit meiner Bibliothek die es nicht findet.
ich danke euch für eure Antwort.
hier noch den makro text
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
