Dezimalstellen nur nach Bedarf
07.12.2013 14:26:57
Holm
hab wiedereinmal ein Problem:
Ich möchte die Zahl in einer Zelle automatisch nach der Eingabe formatiert haben und zwar in folgenden Format:
-mit 1000.er Punkt
-die Dezimalstellen nur, wenn sie eingeben werden (also bei 5,0 soll 5 in der Zelle stehen, bei 10,25 eben 10,25
Ich habe im Netz folgenden Code gefunden und in das entsprechende Tabellenblatt eingefügt:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Err
If InStr(Target.Value, ",") > 0 Then
Target.NumberFormat = "0.00"
Else
Target.NumberFormat = "0"
End If
Err:
Exit Sub
End Sub
Das funktioniert in Bezug auf die Dezimalstellen genau wie ich es haben möchte. Wie bekomme ich nun den Tausender-Punkt noch rein?Die Zelle über Format zusätzlich anderweitig formatieren wird durch den Code immer "überschrieben" bzw übertroffen.
Kann man in diesem Code oben den Tausender-Punkt noch mit einbauen?
Achja, die Zelle über Format--Benutzerdefiniert--Format #.###,## zu formatieren wäre zwar auch FAST ideal, mich stört da nur, dass das Komma stehen bleibt, wenn mann keine Dezimalstellen eingibt. Also bei 59 steht in der Zelle dann 59, noch nicht ganz perfekt. ;-)
Danke im Voraus!