Probleme mit geändertem Makro (Boris)

Du hast mir vorhin ein Makro zum Ändern von Formaten geschrieben:

Sub formataendern()
Dim zelle As Range
For Each zelle In ActiveSheet.UsedRange
If zelle.NumberFormatLocal = "#.###;[Farbe3]-#.###;0" Then
zelle.NumberFormatLocal = "#.##0;[Farbe3]-#.##0;0"
End If
Next
End Sub

Das hat auch wunderbar geklappt! Vielen Dank!

Ich wollte jetzt noch ein weiteres Format mittels einer Kopie deines Makros ändern:

Sub formataendernprozent()
Dim zelle As Range
For Each zelle In ActiveSheet.UsedRange
If zelle.NumberFormatLocal = "#.0#%;;0" Then
zelle.NumberFormatLocal = "#.##0,0#%;[Farbe3]-#.##0,0#%;0"
End If
Next
End Sub

Ich habe jetzt das Problem, dass beim Ausführen des Makros nichts geändert wird, obwohl das zu ändernde Format tatsächlich das R´richtige ist. Weisst du oder ein anderer, woran es liegen könnte?

Vielen Dank!

Jenny

Vielen