VBA Makro Funktionen erstellen

Computer: Software & Programmierung Visual Basic
1

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

2

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.

worauf sollen wir antworten ?

Noch hast du von deiner Fehlermeldung nichts gepostet .
Ohne die Fehlermeldung gibts keine Fehler .

3

ohh copy paste ging wohl verloren.
hier ist das der makrotext welche ihc erhalten habe.
es zeigt mir immer fehler von irgendeiner bibliothek an…
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

4

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 .

Ich hab schon eine idee, aber ohne Fehlermeldung will ich die garnicht erst äussern.

5

ahh jetzt verstehe ich was du willst :smile:
sorry

also die fehlermeldung ist: Fehler beim komplimieren
Projekt oder Bibliothek nicht gefunden

ich habe keinen Dunst was das bedeutet

6

Das hat nichts mit dem VBA code zu tun .
Ich tipp eher darauf das dir eine Biliothek Fehlt .

Also Im VBA Editor auf Extras->Verweise und die benötigte Biliothek aktivieren.

Woher hast du denn das ganze, da du andere Fragen musst. Schon merkwürdig.

7

Ok danke!mhh ja dann wird das das problem sein!ich habe es von einer firma bekommen und die haben wohl irgendwo so eine bibliothek definiert! Naja :s
Danke fuer deine hilfe