Hi Jelena,
der Makrorekorder ist IMMER das 1. Hilfsmittel um festzustellen, was wie funktioniert. Im Nachhinein kann man sich darum kümmern, ob man auch wirklich alle aufgezeichneten Befehle verwenden MUSS um zu dem gewünschten Ergebnis zu kommen - und um das herauszufinden kann man hier im Forum Fragen stellen...
Der Makrorekorder zeichnet den folgenden Code auf wenn du die Farbe Gelb verwenden willst:
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Color ist bekanntlich der Befehl für die Farbe, folglich hat die Farbe Gelb die Nummer 65535.
Wenn die Aufzeichnung erfolgte, ohne irgendwelche extra Schalter zu benutzen (wie z.B. Schattierung, Muster o.ä.), sind alle anderen aufgezeichneten Parameter die Standardangaben. Deshalb kann man diese bei der Wiederverwendung des aufgezeichneten Codes einfach weglassen, auch wenn sie der Makrorekorder aufgezeichnet hat, denn sie gehören nun mal zur Formatierung von Zellen und Excel kann ja nicht wissen, ob du sie nicht vielleicht doch (möglicherweise mit anderen Werten) verwenden möchtest. Der Code zum Gelb-Färben kann also auf diese 1 Zeile zusammengekürzt werden:
With Selection.Interior
.Color = 65535
End With
Anstelle Selection setzt du dann natürlich deinen Gesamtbereich ein
With Range("E5:E204,G5:G204,O5:O204,O3,P3").Interior
.Color = 65535
End With
Da es sich nur um 1 Befehl für diesen Bereich handelt, benötigst du natürlich keine With-Anweisung, weshalb die folgende Codezeile ausreicht:
Range("E5:E204,G5:G204,O5:O204,O3,P3").Interior.Color = 65535
Bis später, Karin
Übrigens: der Hinweis zum Verwenden des Makrorekorders stammt nicht von Mr. K.