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