Excel: Zellen je nach Inhalt abwechselnd einfärben

Frage: Sie würden in Ihrer Tabelle gerne die Zeilen nach folgendem Muster automatisch abwechselnd einfärben: Sobald in Spalte A eine neue Bezeichnung kommt, soll die Farbe ändern. So hätten Sie eine bessere Lesbarkeit und könnten auf einen Blick erkennen, welche Einträge zur gleichen Bezeichnung gehören.

Lösung: Es gibt wohl Möglichkeiten, dies mit bedingten Formatierungen und Hilfsspalten zu lösen, siehe erste Ansätze in diesem Forums-Thread.

Etwas eleganter, weil es ohne Hilfsspalte und automatisch funktioniert, ist allerdings die Lösung per Makro. Das Makro müssen Sie übrigens zum Tabellenblatt hinzufügen, nicht zur Arbeitsmappe. Gleich nachfolgend Schritt für Schritt.

Öffnen Sie den VisualBasic Editor, indem Sie Alt+F11 drücken. Klappen Sie in der linken Fensterhälfte allenfalls «Microsoft Excel Objekte» auf und doppelklicken Sie den Namen der betroffenen Tabelle (z.B. «Tabelle1»). Damit wendet sich das Makro ausdrücklich in jener Tabelle an.

Kopieren Sie folgenden Makro-Code hinein:

Code:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Target.Column <> 1 Then Exit Sub

Dim find1, find2 ' "Farbindex"

Dim urr, urc, z

urr = ActiveSheet.UsedRange.Rows.Count

urc = ActiveSheet.UsedRange.Columns.Count

For z = 2 To urr

If Cells(z, 1) <> Cells(z - 1, 1) Then

find1 = find1 + 1

find2 = find1 Mod 2

End If

With Range(Cells(z, 1), Cells(z, urc)).Interior

If find2 = 1 Then

.Pattern = xlSolid

.PatternColorIndex = xlAutomatic

.ThemeColor = xlThemeColorLight2

.TintAndShade = 0.7

.PatternTintAndShade = 0

End If

If find2 = 0 Then

.ColorIndex = xlNone

End If

End With

Next z

End Sub 

Gehen Sie nun im VisualBasic-Editor via Datei zu «Schliessen und zurück zu Microsoft Excel». Auf den ersten Blick erscheint noch keine farbige Markierung. Sobald Sie aber in der Spalte A eine Eingabe vornehmen, färbt es die Zeilen wunschgemäss ein: Immer wenn ein neuer Name kommt, wird die Farbe gewechselt. 

Die Auswahl der Farbe kommt so zustande: Excel verwendet bei «.ThemeColor» eine der Farben aus dem aktuell verwendeten Farbschema. Etwa in Excel 2007 unter Seitenlayout/Farben die erste Farbe aus dem standardmässigen Schema «Larissa». Es ist in unserem Beispiel ein helleres Blau, weil dieses bei «.TintAndShade» einen Wert von 0.7 trägt. Eine 1 (plus 1) ist hier die hellste Variante (also weiss) und eine -1 wäre die dunkelste (schwarz), eine 0 (Null) wäre neutral. Alles dazwischen sind verschiedene Schattierungen. Wenn Sie das Farbschema ändern, ändern sich auch die von Excel verwendete Farbe. (PCtipp-Forum)