Hi zusammen,
hat schon mal jemand Schwierigkeiten mit der Deklaration von Zahlenformaten gehabt? Mit u.a. Code soll unter bestimmten Case-Bedingungen das Zahlenformat entweder auf Tausender-Trennpunkt ohne Nachkommastellen oder auf 2 Nachkommastellen gesetzt werden. Leider funktioniert das Erkennen der vorhandenen Formatierung offensichtlich nicht. Fällt jemandem dazu was ein?
Besten Dank im voraus!
Case "AUP"
For Each zelle In ActiveSheet.UsedRange
If zelle.NumberFormat = "#,##0_;[Red]-#,##0" Then zelle.NumberFormat = "0.00"
Next
Case "Umsatz"
For Each zelle In ActiveSheet.UsedRange
If zelle.NumberFormat = "0.00" Then zelle.NumberFormat = "#,##0_;[Red]-#,##0"
Next