[gymnozist]

Hi,
ich bin VBA-Anfänger und habe ein kleines Problem. Kann mir irgendjemand sagen wo mein Fehler ist? Das Programm liefert für je zwei Zeiteinheiten denselben Wert.

Private Sub CommandButton1_Click()
Dim z, p, t, q, S, D
p = UserForm1.TextBox1
q = UserForm1.TextBox2
z = UserForm1.TextBox3 (z gibt den Zeithorizont an)

For t = 1 To z
D = 200 - p
S = p

p = p + q * (D - S)

t = t + 1

Next t

MsgBox ("Preis: " & p)

End Sub

Danke schon mal