Farben von Zellen per VBA verändern

18.11.2009

So passen Sie Zellen ganz nach Ihren Wünschen an

Sie möchten die Farbe von Zellen in einer Tabelle ganz nach Ihren Wünschen verändern? Das können Sie erledigen, indem Sie das Dialogfenster "Zellen formatieren" aufrufen und passende Zellmuster hinterlegen.

Wenn Sie die Farbe aller Zellen der aktiven Tabelle per Makro verändern möchten, setzen Sie das folgende Programm ein:

Sub AlleZellenFormatieren()
ActiveSheet.Cells.Interior.ColorIndex = 1
End Sub

Das Makro setzt die Hintergrundfarbe aller Zellen der aktiven Tabelle auf die Farbe, die als zweite Farbe in der aktuellen Farbpalette hinterlegt ist. Das ist normalerweise die Farbe schwarz, wenn Sie die Palette nicht verändert haben. Mit der Ziffer 1 wird die zweite Farbe angesprochen, weil die Zählung der Palettenfarben bei 0 beginnt. Dort ist normalerweise die Farbe weiß hinterlegt.

Um die Hintergrundfarbe aller Zellen der Tabelle auf diese Farbe einzustellen, ersetzen Sie das Kommando aus dem Makro durch:

ActiveSheet.Cells.Interior.ColorIndex = 0

Sie können die gewünschte Farbe auch direkt definieren, ohne den Umweg über die Farbpalette zu gehen. Setzen Sie in diesem Fall die Eigenschaft Color anstelle von Colorindex ein. Das hat den Vorteil, dass Sie die zu verwendende Farbe sofort als RGB-Muster hinterlegen können. Verwenden Sie das folgende Kommando:

ActiveSheet.Cells.Interior.Color = RGB(128, 128, 128)

Mit dem angegebenen RGB-Wert wird grau als Farbe hinterlegt.

Sofern Sie nicht alle Zellen einfärben möchten, ersetzen Sie den Ausdruck Cells durch eine passende Range-Anweisung. Das folgende Beispiel legt die Farbe 3 der Farbpalette (normalerweise rot) als Hintergrundfarbe für den Zellbereich A1:E10 der aktiven Tabelle fest:

ActiveSheet.Range("A1:E10").Interior.ColorIndex = 3

So sieht das Ergebnis aus, wenn Sie das Makro starten: