Thema Datum  Von Nutzer Rating
Antwort
21.07.2009 13:11:09 Lumma
NotSolved
Blau Aw:Zinsberechnung
 23.07.2009 14:20:07 Holger
NotSolved
26.07.2009 19:24:47 Lumma
NotSolved
27.07.2009 11:34:36 Holger
NotSolved

Ansicht des Beitrags:
Von:
Holger		 Datum:
23.07.2009 14:20:07		 Views:
1263		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Zinsberechnung
Hallo Lumma,
wozu eine Schleife? Es lässt sich do alles berechnen. Ich gehe von 4 Textfeldern aus. Welche freigelassen wurde, wird berechnet:
Private Sub CommandButton1_Click()
a = Trim(TextBox1) 'Anfangsbetrag
z = Trim(TextBox2) 'zinssatz
w = Trim(TextBox3) 'Wunschbetrag
l = Trim(TextBox4) 'Zinsperioden
If a <> "" And z <> "" And w <> "" And l <> "" Then MsgBox "Zu viele Einträge": Exit Sub
If a = "" Then
If z = "" Or w = "" Or l = "" Then MsgBox "Zu viele Leerfelder": Exit Sub
TextBox1 = CStr(CDbl(w) / ((1 + CDbl(z) / 100) ^ l))
Exit Sub
End If
If z = "" Then
If a = "" Or w = "" Or l = "" Then MsgBox "Zu viele Leerfelder": Exit Sub
TextBox2 = CStr((Exp(Log(CDbl(w) / CDbl(a)) / l) - 1) * 100)
Exit Sub
End If
If w = "" Then
If z = "" Or z = "" Or l = "" Then MsgBox "Zu viele Leerfelder": Exit Sub
TextBox3 = CStr(CDbl(a) * ((1 + CDbl(z) / 100) ^ l))
Exit Sub
End If
If l = "" Then
If a = "" Or w = "" Or z = "" Then MsgBox "Zu viele Leerfelder": Exit Sub
TextBox4 = CStr(Log(CDbl(w) / CDbl(a)) / Log(1 + CDbl(z) / 100))
Exit Sub
End If
End Sub

Gruß
Holger


Lumma schrieb am 21.07.2009 13:11:09:

Hallo zusammen,
ich habe mal eine kleine Frage.
Ich möchte in VBA(UserForm) eine Zinsberechnung schreiben, die wie folgt aus sieht.

Meine txt Felder sind Anfangsbetrag, Zinssatz, Wunschbetrag und Laufzeit in Jahren.

Ich möchte jetzt gerne, wenn man den Anfangsbetrag, den Zinssatz und den Wunschbetrag eingibt, dass man die benötigte Laufzeit in Jahren ausgegeben bekommen.
Die Berechnung ist ja recht einfach:
Jahr 1 1000 5% Zinsertrag 50
Jahr 2 1050 5% Zinsertrag 52,5
usw.

Ich weiß nur nicht wie ich dies in eine Schleife verpacken kann!

Wäre super wenn mir jemand helfen könnte.

Danke schon mal im voraus.

Gruß
Matthias

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
21.07.2009 13:11:09 Lumma
NotSolved
Blau Aw:Zinsberechnung
 23.07.2009 14:20:07 Holger
NotSolved
26.07.2009 19:24:47 Lumma
NotSolved
27.07.2009 11:34:36 Holger
NotSolved