Farben von Zellen per VBA verändern

18. November 2009
Martin Althaus Von Martin Althaus, Excel, Office ...

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:

Tipp: Falls Sie wissen möchten, wie Sie Makros in Excel eingeben und starten, finden Sie hier eine Kurzbeschreibung: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-geben-sie-makros-in-excel-ein.html

Werden Sie mit unseren Tipps zum Excel-Profi!

Jetzt gratis per E-Mail

DDV Ehrencodex E-Mail-Marketing
  • Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters.
  • Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter.
  • Jederzeit abbestellbar durch einen Link im Newsletter.

Unsere Datenschutzgarantie:

Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters. Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter. Jederzeit abbestellbar durch einen Link im Newsletter.

Weitere Artikel zum Thema

Newsletter

Jetzt kostenlose Excel-Hilfe anfordern!

  • die besten Tipps
  • völlig kostenlos
  • jederzeit abbestellbar
DDV Ehrencodex E-Mail-Marketing
  • Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters.
  • Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter.
  • Jederzeit abbestellbar durch einen Link im Newsletter.

Unsere Datenschutzgarantie:

Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters. Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter. Jederzeit abbestellbar durch einen Link im Newsletter.

Unsere Experten

Rudolf Ring twittert für @Computerwissen

Die von Ihnen eingegebene E-Mail Adresse ist nicht korrekt. Bitte korrgieren Sie Ihre Eingabe und klicken Sie auf "OK":

Bitte wählen Sie mindestens einen Newsletter aus und klicken Sie auf "OK"