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:
Ich habe ein Excelsheet erhalten, bei welchem mir das Programm
sagt, dass die programierten Makros nicht funktionieren.
Wisst ihr evtl. warum?
Hallo Mied,
aus dem Hinweis des Programms war nicht ersichtlich warum Makros nicht funktionieren? Glaub ich nicht so, wie lautet denn die Meldung?
Ich kann nur raten, du hast frisch Excel 2007, damit da Makros ausgeführt werden dürfen mußt du zwei Häkchen setzen,
einmal bei
alle makros mit benachrichtigung aktivieren
und bei
Zugriff auf VBA-Projekt vertrauen
ich habe mir den UP eben noch 'mal durchgelesen. Ich halte ihn für Pseudocode. Das würde auch erklären, warum das Programm meldet , daß er nicht funktioniert
ich habe mir den UP eben noch 'mal durchgelesen. Ich halte ihn
für Pseudocode. Das würde auch erklären, warum das Programm
meldet , daß er nicht funktioniert
Hallo Markus,
nein. Ich hab leider den Thread darunter erst nach Antwort hier gelesen, sonst hätte ich erstmal auf genaue Fehlermeldung, Fehlersituation und Excelversion bestanden bevor ich irgendwas mache, naja, what arals
Jedenfalls die Funktioinen rechne was aus, ob das stimmt k.A, aber sie laufen alle vier. Zwei davon habe ich verkürzt.
Siehe nachfolgenden Code.
Gruß
Reinhard
'Option Explicit
Sub tt()
MsgBox Annuität(2, 10)
MsgBox Sumdiskont(3, 0.5, 5)
MsgBox Barwert(3, 0.6, 7)
MsgBox Bereichstest(3, 2, 4)
End Sub
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)
Barwert = ((1 + Teuerung) / (1 + Zins)) ^ Jahr
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 = IIf(Wert Oben, 0, 1)
End Function
Jetzt habt ihr mich überfordert
ich verstehe nur noch bahnhof… was ist mit UP? und was ist mit dem zinssatz i?
sorry dass mein excel verständis so minimal ist. eigentlich dachte ich, dass ich das ding einigermassen verstehen würde, aber makros und das vba ding habe ich nie verstanden…
Jetzt habt ihr mich überfordert
sorry dass mein excel verständis so minimal ist. eigentlich
dachte ich, dass ich das ding einigermassen verstehen würde,
aber makros und das vba ding habe ich nie verstanden…
Hallo Mled,
sach mal, aus diesen Zeilen konntest du nicht entnehmen was man hier wissen müßte um dir zu helfen?
sonst hätte ich erstmal auf genaue Fehlermeldung, Fehlersituation und Excelversion bestanden bevor ich irgendwas mache, naja, what arals
Brauchst du das echt in der Form zu der sich Lae nach wiederholtem Nachfragen gezwungen sah:
"ich sehe den code , der ist richtig . ich sehe immer noch nicht deine FEHLERMELDUNG.
Aber auch nach x maligen posten, wäre es leichter meine frage erst zu beantworten, als ignorant wieder dein CODE zu posten.
WELCHE FEHLERMELDUNG bekommst DU ?
geht nicht gibs nicht , was geht wie nicht , was steht da dann als fehlermeldung , genauer text bitte .
"
