Guten Abend
Ich habe eine Datei mit verschiedenen benannten Bereichen, die alle mit Daten? beginnen. Also Daten01, Daten02, etc.
In diesen Bereichen hat es viele Zahlen, bei denen das Format so eingestellt ist, dass nur die Tausenderwerte angezeigt werden.
Nun möchte ich, dass Werte zwischen - 499 und 499 auch mit 0 angezeigt werden, obschon das Zahlenformat ja das unterdrücken würde und nur einen wirklichen Nullwert als solchen zeigt. M.E. kann das im Zahlenformat nicht eingestellt werden.
Ich stelle mir vor, dies mit einem Ereigniscode zu lösen, nach nachstehendem Muster. Nur war in diesem Fall klar, welche Werte entsprechend zu formatieren waren.
Kann mir jemand helfen?
Danke, Petr
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Not Intersect(Target, Sh.Range("j5")) Is Nothing Then
With Target
If UCase(.Value) = "JPY" Then
Sh.Range("f14:f44,f47").NumberFormat = "#,##0';-#,##0';"
Else
Sh.Range("f14:f44,f47").NumberFormat = "#,##0;-#,##0."
End If
End With
End If