Aktualisierung xls mit VBA Berechnung
08.08.2006 11:46:37
günther
hänge schon seit stunden fest und komme einfach nicht auf die lösung.
Bitte um Hilfe!!
Habe im Rahmen einer Amortisationsrechnung die Erträge der Jahre mit Hilfe eines VBA Makros so lange addiert bis der eingegebene Investitionswert überschritten ist.
Das Makro funktioniert soweit gut, nur habe ich das Problem, das sich das Ergebnis bei Änderung einer Eingangsvariable (und da hab ich einige) nicht ändert. Erst wenn ich das xls wieder schliesse und öffne ändert sich der Endwert.
Kann mir jemand helfen, damit das Makro laufend aktualisiert?
danke, günther
Anbei der code:
Function Schleife() As Double
Dim wert As Double
Dim jahre As Double
Dim dauer As Double
jahre = 1
Range("N9").Select
wert = Range("N9").Value
Do While wert < Range("C4").Value
ActiveCell.Offset(1, 0).Activate
wert = wert + ActiveCell.Value
jahre = jahre + 1
Loop
dauer = Range("C4").Value * jahre
dauer = dauer / wert
Range("H4").Value = dauer
End Function