Thema Datum  Von Nutzer Rating
Antwort
06.12.2009 00:30:39 Lisa
NotSolved
Blau Aw:Laufzeitfehler 6 (Überlauf)
 07.12.2009 15:02:34 Holger
NotSolved

Ansicht des Beitrags:
Von:
Holger		 Datum:
07.12.2009 15:02:34		 Views:
1083		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Laufzeitfehler 6 (Überlauf)
Hallo Lisa,
Variablen haben nur so lange ihren Wert, wie ein Makro läuft, es sei denn, dass sie Public oder Private deklariert wurden. Deie Vorbesetzungen sind also bei der Berechnung verschwunden, die Variablen haben den Wert 0. Ersetze Dim durch Public.
Ich befürchte, dass deine Formel einen um den Faktor 100 zu hohen Wert liefert, weil du einmal den Zinssatz nicht durch 100 teilst.
Gruß
Holger

Lisa schrieb am 06.12.2009 00:30:39:

Hallo!
Ich bastele an einem Programm, das mir in einem Userform die Annuität von einem Kredit berechnet (ist ne Schulaufgabe). Jedenfalls kommt bei der Formel IMMER der Laufzeitfehler 6
Hier ist der Code:
Option Explicit
Dim kredithöhe As Currency
Dim zinssatz As single
Dim laufzeit As integer
Dim annuität As Currency

Sub vorbesetzen()
kredithöhe = EditKredithöhe.Value
zinssatz = EditZinssatz.Value
laufzeit = EditLaufzeit.Value
End Sub

Sub berechnung()
annuität = kredithöhe * (zinssatz * (1 + (zinssatz / 100)) ^ laufzeit) / ((1 + (zinssatz / 100)) ^ laufzeit - 1)
End Sub

Private Sub EditKredithöhe_Exit(ByVal Cancel As MSForms.ReturnBoolean)
vorbesetzen
berechnung
End Sub

Private Sub EditLaufzeit_Exit(ByVal Cancel As MSForms.ReturnBoolean)
vorbesetzen
berechnung
End Sub

Private Sub EditZinssatz_Exit(ByVal Cancel As MSForms.ReturnBoolean)
vorbesetzen
berechnung
End Sub


Private Sub UserForm_Activate()
EditKredithöhe.Value = 0
EditZinssatz.Value = 0
EditLaufzeit.Value = 0
End Sub
-----------------------------------------
Den letzten Teil wo ich die Werte auf 0 stelle habe ich auch schonmal komplett weggelassen aber es ändert auch nichts. Ich wäre um Hilfe sehr dankbar!

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
06.12.2009 00:30:39 Lisa
NotSolved
Blau Aw:Laufzeitfehler 6 (Überlauf)
 07.12.2009 15:02:34 Holger
NotSolved