'Schleife' in VBA

Computer: Software & Programmierung Visual Basic
#1

Hallo liebe Experten,

bevor ich mein Problem schilder, hier kurz worum es genau geht:

anfangskapital: 10.000
davon gehen 80% in aktien und 20% festverzinslich

also: 0,8 x anfangskapital x kurs + 0,2 x anfangskapital x fester zins
hinter dem kurs steckt eine formel, die für mein problem jetzt belanglos ist.

am nächsten tag wird geguckt, wie das neue vermögen aussieht.
von diesem neuen vermögen sollen wieder 80% in aktien,etc.
und das ganze dann jeden tag weiter für 21 tage.

also nach einem tag hat er bspw. statt 10.000 EUR jetzt 12.000.
und davon sollen dann 80% wieder in aktien investiert werden.

wie kann ich das mit einer vba schleife machen, dass immer das neue vermögen als grundlage genommen wird??

nach den 21 tagen soll geguckt werden, welches endvermögen er hat.
bspw. 14.000 EUR. dann will ich die differenz zum anfangskapital ermitteln. in diesem fall 4.000 eur.
und das soll das programm dann z.B. für 4 perioden machen (1 periode=21 tage). also wieder eine schleife.(???)
das wäre eine simulation.
und genau diese gesamte simulation soll bspw. 10x gemacht werden.

ich hoffe das war verständlich und jemand kann mir helfen!!
für die experten, wird es sicherlich ein kinderspiel sein…

#2

Hallo Daro,

starte mal test, rechnet das richtig für 21 Rage? GGfs kannst du ja die 21 runtersetzen auf 1,2,3,… um nachzurechnen.

Sub test()
MsgBox Format(Reich(10000), "0.00 €")
End Sub
'
Function Reich(Startgeld) As Single
Dim Tage As Byte
Const Kurs As Single = 1.1
Const Zins As Single = 1.01
Reich = Startgeld
For Tage = 1 To 21
 Reich = 0.8 \* Reich \* Kurs + 0.2 \* Reich \* Zins
Next Tage
End Function

Gruß
Reinhard