VBA – Anwendung – Darlehnstilgung II

Die Anwendung Tilgungsplan soll nun erweitert werden. Je nachdem was der Benutzer eingibt, wird nun die Laufzeit, die Annuität oder die mögliche Darlehnhöhe berechnet.

Mögliches Aussehen:

Bildschirmfoto 2021-05-22 um 11.27.49

Zunächst soll ein Tabellenblatt mit Überschriften und 4 Schaltflächen erstellt werden.

Bildschirmfoto 2021-05-22 um 11.29.31

Durch klicken auf die Schaltfläche INIT werden die Prompts erstellt und die Zellen formatiert (Euro, Prozent). Alte Daten werden gelöscht.

Bildschirmfoto 2021-05-22 um 11.31.48

Beim Klicken auf Tilgungsplan 1, gibt der Benutzer gibt der Benutzer  Darlehnshöhe, Zinssatz und Laufzeit ein. Diese Felder werden blau markiert, die Annuität ausgerechnet sowie grün markiert  und ein Tilgungsplan für die Laufzeit  erstellt. Zum Schluß erfolgt eine Meldung durch eine Messagebox über die jährliche Belastung durch die Annuität.

Bildschirmfoto 2021-05-22 um 11.41.53Beim Klicken auf Tilgungsplan 2, gibt der Benutzer gibt der Benutzer  Darlehnshöhe, Zinssatz und die jährliche Belastung (Annuität) ein. Diese Felder werden blau markiert, die Laufzeit grün. Dann wird ein Tilgungsplan erstellt (bis die Restschuld <0 ist). Zum Schluß erfolgt eine Meldung wie lange der Kredit getilgt werden muss.

Bildschirmfoto 2021-05-22 um 11.41.53

Beim Klicken auf Tilgungsplan 3, gibt der Benutzer gibt der neben Zinssatz und Annuität noch die Laufzeit ein. Diese Felder werden blau markiert, die Darlehnshöhe ausgerechnet sowie grün markiert  und ein Tilgungsplan für die Laufzeit  erstellt. Zum Schluß erfolgt eine Meldung durch eine Messagebox wie hoch das Darlehen sein kann.

Dazu ist die Programmierung von vier Makros erforderlich:

  1. Initialisieren mit folgenden Programmschritten:
    1. alle alten Berechnungen und Formatierungen werden gelöscht
    2. Texte (prompts) werden erstellt und formatiert.
    3. aktuelles Datum gesetzt.
    4. Tilgungstabelle wird formatiert.
  2. Tilgungsplan 1 – Gesucht: Annuität

    1. Eingabe der gesuchten Werte durch Inputboxen und Anzeigen in der Exceltabelle.
    2. Formatierung des Hintergrundes zum Beispiel blau bzw. grün – abhängig davon ob gesucht oder gegeben.
    3. Ausrechnen der Annuität.
    4. Erstellen des Tilgungsplans. (s. Tabellen oben, für jedes Jahr muss eine Zeile erstellt werden.)
    5. Ausgabe einer Messagebox mit Information über die gesuchte Größe (hier: Annuität).
  3. Tilgungsplan 2 – Gesucht:  mögliche Darlehnshöhe

    1. wie Tilgungsplan 1
    2. wie Tilgungsplan 1
    3. Ausrechnen der Darlehnshöhe mit der Formel:
      = Round(annuitaet * ((1 + zinssatz) ^ laufzeit – 1) / (zinssatz * ((1 + zinssatz) ^ laufzeit)), 2)
    4. und 5. wie Tilgungsplan 1
  4. Tilgungsplan 3 – Gesucht: Laufzeit bis der Kredit getilgt ist

    1. wie Tilgungsplan 1
    2. wie Tilgungsplan 1
    3. Überprüfung, ob die Annuität größer als die jährlichen Zinsen sind. Wenn nicht Abbruch und Meldung.
    4. Erstellen eines Tilgungsplans zum Beispiel mit einer Do-While bis die Restschuld 0 ist.
    5. Laufzeit setzen  & sonst wie Tilgungsplan 1
    6. Ausgabe einer Messagebox mit der Laufzeit

 

K. Fröhlig