If txtGehalt.Text >= 100 Then
For i = 1 to 100
txtGehalt.Text = CDbl(txtGehalt.Text) - CDbl(100)
Next i
End Ifder soll bei 0 stehen bleiben aber läuft immer weiter bis -9900 durch :S
nehmen wir an wir haben 990 € also - 100 = 890 etc 790 690 590 490 390 290 190 90 so
jetzt stopp aber er macht -90… :S kann vllt jemand helfen
denn ohne das For i = 1 to 100 kommt das nicht vor
lg Chris