[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

[Xalir]

So beim groben Durchschauen ist mir folgendes aufgefallen

1. Bei Dim ohne Typzuweisung werden aus den Variablen standardmäßig Objects gebildet.
2. Du übergibst dann einer Object-Variable ein echtes Objekt anstatt den Inhalt (TextBox anstatt TextBox.Text)
3. Du erhöhst innerhalb Deiner Schleife t um 1, was bereits der interne Schleifenzähler für Dich erledigt. So bekommst Du nie die Werte für t=2,t=4 etc. Wenn das Absicht ist, geht auch For ... To ... Step 2 ... Next

[gymnozist]

Besten Dank.

Ich wusste nicht, dass bei next t das t automatisch um 1 erhöht wird.

Jetzt tut es das, was es soll.