VBA - Zellformatierung als Währung
04.01.2013 15:59:07
Dominic
kann mir bitte erneut jemand bei meinem Problem helfen?
Würde gerne einige Zellen / Bereiche in Excel je nach Bedingung als Währung, oder als Zahl formatieren. Mit der bedingten Formatierung funktioniert dies immer nur einmal in eine Richtung, wechselt aber nach der Änderung durch ein Drop Down Menü nicht mehr "zurück". Erst wenn ich manuell einen x-beliebigen Zellinhalt ändere springt die bedingte Formatierung zurück auf die gewünschte Formatierung. Daher versuche ich es nun mit VBA zu lösen.
Folgenden Code habe ich bereits, das funktioniert aber nicht.
If ("J5") = "Währung" Then Range("C23:O25").NumberFormat = "#,##0.00 "
Range("C29:O29").NumberFormat = "#,##0.00 "
Range("C35:O35").NumberFormat = "#,##0.00 "
Range("C41:O116").NumberFormat = "#,##0.00 "
ElseIf ("J5") = "Zahl" Then Range("C23:O25").NumberFormat = "#0"
Range("C29:O29").NumberFormat = "#0"
Range("C35:O35").NumberFormat = "#0"
Range("C41:O116").NumberFormat = "#0"
End If
End Sub
Vielen Dank im Voraus!