Clever-Excel-Forum

Moin moin liebe Leute,

Ich möchte wie es die Überschrift bereits verrät u.a. Zinseszinsen berechnen. Aber leider ist es nicht so einfach.

Das ganze begleitet mich jetzt schon eine ganze Weile. Üblicher Weise - sobald nötig - wird eine Zeile mit allen Berechnungen erstellt und dann in die nächsten 1000 Zeilen vervielfältigt. Der Gedanke ist jetzt, da ich das wohl nöch öfters benötigte mal nen kleinen Rechner zu basteln.

Nach ewiger Sucherei habe ich endlich eine Formel gefunden. Nur irgendwie verstehe ich die noch nicht.

1. Frage: mal angenommen Start-Kapital ist 1000,-€ und Zinsen sollen täglich bezahlt werden, Satz 5%.... nun gibts aber noch eine Besonderheit. Jeden Tag kommen nicht nur die Zinsen oben drauf, sondern noch eine Spareinlage von 5,- je Tag. Und da drauf sollen dann erst die Zinsen berechnet werden... kann man die Formel dahingehend umarbeiten, oder ist es - wie ich vermute - aussichtslos?
k
Formel: =C4*(1+D4/100/365)^E4

Hi,

vllt. hilft dir diese Seite weiter: http://www.herber.de/excelformeln und bitte suchen .../formeln.html?welcher=147

Ansonsten wäre ein relevanter Tabellenausschnitt ( http://www.clever-excel-forum.de/thread-47.html ) mit deinen Zahlen nötig, damit die Helfer eine Tabelle nicht nachbauen müssen. Bitte keine Bildchen! Alternativ kannst du auch eine Beispielmappe hochladen ( http://www.clever-excel-forum.de/thread-326.html ).

Code:
Sub VerzinsungMitAnsparen()

    [A1:G1] = Array("Periode", "Kapital", "Sparen", "Zinssatz", "wie oft/Jahr", "Rundung", "Anzahl")

    [D2:G2] = Array("5%", "365", "2", "365")

    [A3:D3] = Array("1", "1000", "5", "=ROUND((RC[-2]+RC[-1])*R2C/R2C[1],R2C[2])")

    [A4:D4] = Array("=R[-1]C+1", "=R[-1]C+R[-1]C[1]+R[-1]C[2]", "=R[-1]C", "=ROUND((RC[-2]+RC[-1])*R2C/R2C[1],R2C[2])")

    [A4:D368].FillDown

    [F4:G4] = Array("Endwert kalk", "=R[-1]C[-5]*(1+R[-2]C[-3]/R[-2]C[-2])^R[-2]C" & _

                    "+SUMPRODUCT(R[-1]C[-4]*(1+R[-2]C[-3]/R[-2]C[-2])^ROW(INDIRECT(""1:""&R[-2]C)))")

    [F5:G5] = Array("Endwert tab.", "=MAX(C[-5])")

End Sub

Code:
Sub VerzinsungMitAnsparen()

    [A1:G1] = Array("Periode", "Kapital", "Sparen", "Satz+Zins", "wie oft/Jahr", "Rundung", "Anzahl")

    [A3:D3] = Array("=R[-1]C+1", "=R[-1]C+R[-1]C[1]+R[-1]C[2]", "=R[-1]C", "=ROUND((RC[-2]+RC[-1])*R2C/R2C[1],R2C[2])")

    [A3:D369].FillDown: [B3:C3,D2:G2].Interior.ThemeColor = xlThemeColorDark2

    [B3:C3] = Array("1000", 5): [D2:G2] = Array("5%", 365, 2, 365)

    [F4:G4] = Array("Endwert kalk", "=R[-1]C[-5]*(1+R[-2]C[-3]/R[-2]C[-2])^R[-2]C" & _

                         "+SUMPRODUCT(R[-1]C[-4]*(1+R[-2]C[-3]/R[-2]C[-2])^ROW(INDIRECT(""1:""&R2C)))")

    [F5:G5] = Array("Endwert tab.", "=INDEX(C[-5],R2C+3)")

End Sub

korrigiert G5 auf den Wert, der sich aus der Tabellenzeile, die in G2 steht, ergibt.

TheEnforcer

WillWissen

lupo1

lupo1