VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Restschuld unter Berücksichtigung der Zinseszinsberechnung

Gruppe

Funktion

Bereich

DatumUndZeit

Thema

Restschuld unter Berücksichtigung der Zinseszinsberechnung

Problem

Wie kann ich mir eine Tabelle aufbauen, die bei festem Zinssatz und festen monatlichen Rückzahlungen eine monatliche Restschuldberechnung unter Berücksichtigung der angefallenen Zinsen durchführt?

Lösung

Nur anhand einer Beipspielarbeitsmappe darstellbar.




StandardModule: basMain

Sub Zufall()
   Dim iStart As Integer, iEnd As Integer
   Dim iCol As Integer, iRow As Integer
   Dim iZufall As Integer, iCount As Integer
   Randomize
   Range("A1").CurrentRegion.Columns(1).Select
   iCount = Selection.Cells(Selection.Rows.Count)
   iStart = Selection.Row
   iEnd = iStart + iCount - 1
   iZufall = Int((Selection.Rows.Count * Rnd) + 1)
   For iCol = Selection.Column To Selection.Column + 150
      For iRow = iStart To iEnd
         Do Until IsEmpty(Cells _
            (Selection.Row + iZufall - 1, iCol + 1))
            iZufall = Int((iCount * Rnd) + 1)
         Loop
         Cells(Selection.Row + iZufall - 1, iCol + 1) = _
            Cells(iRow, iCol)
      Next iRow
   Next iCol
   Range("A1").Select
End Sub

    


Beiträge aus dem Excel-Forum zu den Themen Funktion und DatumUndZeit