Beim nachfolgenden Code vermute ich, dass es eine deutliche Vereinfachung gäbe. Dabei geht es darum, dass für eine Zinsberechnung alle 12 Monate sich der Zinssatz ändert und deshalb ein neuer Bezug hergestellt werden mu8. Derzeit habe ich das wie folgt gelöst:
(Spalte A ist das jeweilige Kapital und aus der Zeile 2 kommt der Zinssatz in %)
Sub Zinsen_Berechnen()
Dim iRow%
iRow = Cells(Rows.Count, 1).End(xlUp).Row
Range("C5") = "=(A5*b$2%)/12" ' Ermittlung Zinsen aus b2 (jeweils für einen Monat)
With Range("C5:C16")
.FillDown
End With
Range("C17") = "=(A17*c$2%)/12" ' Ermittlung Zinsen aus c2
With Range("C17:C28")
.FillDown
End With
Range("C29") = "=(A17*d$2%)/12" ' Ermittlung Zinsen aus d2
With Range("C29:C40")
.FillDown
End With
Range("C41") = "=(A17*e$2%)/12" ' Ermittlung Zinsen aus e2
With Range("C41:C52")
.FillDown
End With
Range("A1").Select
End Sub
Ich denke aber, dass es irgendwie eine Lösung geben muß, ohne dass ich immer manuell von c5 auf c17 auf c29 usw. fortschreiben muß.
Vielen Dank falls jemand Hilfestellung leisten kann!
mfg
Erich