Wie färbt man abwechselnde Zeilen bei zusammengeführten Zellen in Excel ein?

Das abwechselnde Formatieren von Zeilen mit unterschiedlichen Farben in umfangreichen Datensätzen erleichtert das Durchsuchen erheblich. Gelegentlich enthalten Ihre Daten jedoch einige zusammengeführte Zellen. Wie können Sie dieses Problem in Excel lösen, um die Zeilen – auch bei zusammengeführten Zellen – wie im folgenden Screenshot gezeigt abwechselnd farblich hervorzuheben?

Abwechselnde Zeilen für Zusammengeführt mithilfe von Bedingte Formatierung verwenden einfärben

Abwechselnde Zeilen für Zusammengeführt mithilfe von VBA-Code einfärben

---

Abwechselnde Zeilen für Zusammengeführt mithilfe von Bedingte Formatierung verwenden einfärben

In Excel hilft Ihnen die leistungsstarke Funktion Bedingte Formatierung verwenden, diese Aufgabe so schnell wie möglich zu erledigen. Gehen Sie dazu wie folgt vor:

1. Wählen Sie den Datenbereich aus, der die zusammengeführten Zellen enthält, die Sie abwechselnd einfärben möchten, und klicken Sie dann auf Start > Bedingte Formatierung verwenden > Neue Regel (siehe Screenshot).

2. Führen Sie im erscheinenden Dialogfeld „Neue Formatierungsregel“ die folgenden Schritte aus:

• Wählen Sie aus der Liste „Regeltyp auswählen“ die Option „Formel zur Bestimmung der zu formatierenden Zellen verwenden“ aus.
• Geben Sie anschließend die folgende Formel in das Feld „Werte formatieren, für die diese Formel wahr ist“ ein:=MOD(COUNTA($A$2:$A2),2)=0
• Hinweis: A2 ist die erste Zelle Ihres Datenbereichs.

3. Klicken Sie anschließend auf die Schaltfläche Format, um das Dialogfeld Zellenformat festlegen zu öffnen. Wählen Sie unter dem Register „Füllung“ eine Farbe aus, mit der Sie die Zeilen hervorheben möchten (siehe Screenshot).

4. Klicken Sie auf OK und dann erneut auf OK, um die Dialogfelder zu schließen. Die zusammengeführten Zeilen werden nun mit der von Ihnen festgelegten Farbe ausgefüllt (siehe Screenshot).

5. Klicken Sie erneut auf Start > Bedingte Formatierung verwenden > Neue Regel, um das Dialogfeld „Neue Formatierungsregel“ zu öffnen, und führen Sie die folgenden Schritte aus:

• Wählen Sie aus der Liste „Regeltyp auswählen“ die Option „Formel zur Bestimmung der zu formatierenden Zellen verwenden“ aus.
• Geben Sie anschließend diese Formel ein:=MOD(COUNTA($A$2:$A2),2)=1in das Feld „Werte formatieren, für die diese Formel wahr ist“.
• Klicken Sie dann auf die Schaltfläche Format, um eine andere Farbe zum Hervorheben der Zeilen auszuwählen.
• Hinweis: A2 ist die erste Zelle Ihres Datenbereichs.

6. Klicken Sie anschließend auf OK > OK, um die Dialogfelder zu schließen. Nun sehen Sie, dass der Bereich „Daten auswählen“ basierend auf den Zusammenführungen – wie im folgenden Screenshot gezeigt – abwechselnd mit zwei verschiedenen Farben schattiert wurde.

---

Abwechselnde Zeilen für Zusammengeführt mithilfe von VBA-Code einfärben

Neben der herkömmlichen Methode „Bedingte Formatierung“ können Sie auch einen VBA-Code nutzen, um abwechselnde Zeilenfarben problemlos auf zusammengeführte Bereiche anzuwenden.

1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.

2. Klicken Sie dann auf Einfügen > Modul, und fügen Sie den folgenden Code in das Modul-Fenster ein.

VBA-Code: Abwechselnde Zeilen für Zusammengeführt einfärben

Sub Kutools_AlternateColor()
'Update by ExtendOffice
Dim xRg As Range
Dim xCRg As Range
Dim xIRg As Range
Dim xC1, xC2 As Integer
Dim xR1 As Integer
Dim xCnt As Long
Dim xLColor, xDCR1, xDCR2 As Long
Set xRg = Application.InputBox("Please select the data range:", "KutoolsforExcel", "", Type:=8)
If TypeName(xRg) = "Nothing" Then Exit Sub
Set xCRg = Application.InputBox("Please select the column with the merged cells:", "KutoolsforExcel", "", Type:=8)
If TypeName(xCRg) = "Nothing" Then Exit Sub
Set xIRg = Intersect(xRg, xCRg)
If xIRg Is Nothing Then
MsgBox "the data range doesn't contain merged cells"
Exit Sub
End If
xC1 = xRg.Column
xC2 = xIRg.Column
xR1 = xRg.Row
xLColor = RGB(221, 235, 247)
xDCR1 = RGB(221, 235, 247)
xDCR2 = RGB(250, 232, 222)
xRw = 0
Do
xLColor = xDCR1 + xDCR2 - xLColor
xCnt = Cells(xRw + xR1, xC2).MergeArea.Rows.Count
Cells(xRw + xR1, xC1).Resize(xCnt, xRg.Columns.Count).Interior.Color = xLColor
xRw = xRw + xCnt
Loop While xRw < xRg.Rows.Count - 1
End Sub

3. Drücken Sie anschließend die Taste F5, um diesen Code auszuführen. Wählen Sie im ersten erscheinenden Dialogfeld den gewünschten Datenbereich aus (siehe Screenshot).

4. Wählen Sie im zweiten Dialogfeld die Spalte mit den zusammengeführten Daten aus (siehe Screenshot).

5. Klicken Sie anschließend auf die Schaltfläche OK. Die Zeilen werden nun basierend auf den zusammengeführten Daten abwechselnd schattiert, wie im folgenden Screenshot gezeigt.

---

Video: Abwechselnde Zeilen für Zusammengeführt einfärben

---

Weitere verwandte Artikel: