|
Hallo liebes VBA Forum,
trotz längerer Suche konnte ich leider keine Lösung für mein Problem finden. Ich hoffe ihr könnt mir weiterhelfen.
Ich habe ein Makro, das eine Pivot Tabelle einfügt. So weit so gut. Nun möchte ich jedoch, dass in einer bestimmten Spalte alle Zahlen ungleich 0 rot markiert werden. Da die eine Tabelle ja automatisch das Format auf alle anderen Zellen einer Spalte überträgt, habe ich folgenden Code ans Ende vom Makro eingefügt, der eine Zelle markieren und die Formatierung anpassen soll:
ActiveWorkbook.Worksheets("Worksheet").Activate
Range("B17").Select
Selection.NumberFormat = "[Rot]#.##0_ ;[Rot]-#.##0;[Schwarz]Standard"
Es tut sich nur leider überhaupt nichts. Kann mir hier jemand weiterhelfen?
Vielen lieben Dank im Voraus! |