Als Antwort auf diesen Beitrag
Das ist doch einfache Mathematik. ;)
Private Sub Worksheet_Change(ByVal Target As Range)
If IsNumeric(Target) Then
Application.EnableEvents = False
Target = Target * 10 ^ (3 - Len(Target))
Application.EnableEvents = True
End If
Aber:
Dies funktioniert nur mit "echten" 3-stelligen Ganzzahlen vor dem Komma!
So etwas wie die Eingabe von 00456 → 004,560000 funktioniert
nicht!