VBA Zinses Zins errechnen mit Schleife

[matzee]

Hallo Leute,

ich wollte die Jahre errechnen, die ich brauche bis ich zum Beispiel aus 1000 Anfangskapital 2000 Euro gemacht habe.

Function Jahre(Anfangsbetrag)

Do Until Anfangsbetrag >= 2000
    Jahre = Jahre + 1
    Anfangsbetrag = Anfangsbetrag * 0.05
    
    Loop

End Function

Ich bekomme ne Endlosschleife, aber warum?

Kann mir einer sagen was falsch ist?

Vielen Dank

 

[Moloc]

Eventuell * 1.05 ?
Mit 0.05 wird die Zahl immer kleiner

 

[matzee]

funktioniert nun, eine Rechnung vergessen gehabt ^^

Function Jahre(Anfangsbetrag, Ende)    
    
Do Until Anfangsbetrag >= Ende
    Jahre = Jahre + 1
    Zinsen = Anfangsbetrag * 0.05
    Anfangsbetrag = Anfangsbetrag + Zinsen
    
Loop


End Function

 

[Schruppinator]

Alternativ (um die ganze Schleife zu umgehen) kannst das ganze auch mit dem Logarithmus berechnen!

Jahre = (log(Endkapital) - log(Startkapital)) / log(1 + %/100)

In deinem Fall also:
(log(2000) - log(1000)) / log(1,05)

Du hast ja nur die eine Unbekannte und kannst sie direkt ausrechnen!
Warum bei a = 10 + 5 lange rumrechnen, wenn mans nur addieren muss?

 

[matzee]

Warum bei a = 10 + 5 lange rumrechnen, wenn mans nur addieren muss?

weil ich die Schleife "Do Until, Loop" programmieren wollte ^^

 

[Schruppinator]

weil ich die Schleife "Do Until, Loop" programmieren wollte ^^

Gut, zugegeben, dass geht mit meiner Methode nicht