jmd. möchte z.B. in A Zahlwerte eingeben mit mehreren Nachkommastellen.
Angezeigt sollen aber nur die zwei ersten Nachkommastellen ohne Kürzung,
Also
1,32999
als
1,32
Er möchte aber mit den wahren Werten weiterrechnen.
Meine Idee dazu ist, jedwede Zelleingabe in A in einem anderen Blatt abzuspeichern in voller Länge.
Dann zum Weiterechnen mit z.B. A1 dieses benutzen
=WERT(A1)
Aber irgendwie klappt das nicht. Das Ergebnis der Formel ist die gekürzte Version, also 1,32 und nicht 1,32999
Was mache ich falsch?
Tabellenblattcode:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column 1 Then Exit Sub
If Target.Count > 1 Then Exit Sub
Worksheets("Tabelle3").Range(Target.Address) = Target.Value
Application.EnableEvents = False
Target.Value = Int(Target.Value * 100) / 100
Application.EnableEvents = True
End Sub
Modulcode:Function Wert(ByRef Zelle As Range)
'MsgBox Worksheets("Tabelle3").Range(Zelle.Address).Value
Wert = Worksheets("Tabelle3").Range(Zelle.Address).Value
End Function Danke ^ Gruß
Reinhard