Excel rechnet falsch VBA
23.07.2002 13:08:23
Berni
nachfolgende Routine liefert mir das falsche Ergebnis.
In die TextBox1 wird eine beliebige Zahl eingegeben, von der 400 abgezogen werden sollen und das Ergebnis durch 200 geteilt werden soll.
Es sollte eigentlich bei der Berechnung (1000 - 400 : 200) 3 herauskommen. Aber ich bekomme als Ergebnis 5. Ebenso soll wenn das Ergebnis 6,2 lauten würde, auf die nächste ganze Zahl also 7 aufgerundet werden
Private Sub CommandButton1_Click()
TextBox2.Value = Format(TextBox1.Value - 400, "0.00")
TextBox2.Value = Format(TextBox1.Value / 200, "0.00")
TextBox2.BackColor = &HFF&
End Sub
Danke für Eure Hilfe
Gruss
Berni