Zum Hauptinhalt springen

Wie kann man abwechselnde Zeilen für verbundene Zellen in Excel einfärben?

Author: Xiaoyang Last Modified: 2025-05-28

Das Formatieren abwechselnder Zeilen mit einer anderen Farbe ist sehr hilfreich, um große Datenmengen zu scannen. Manchmal gibt es jedoch verbundene Zellen in Ihren Daten. Um die Zeilen abwechselnd für verbundene Zellen wie im folgenden Screenshot gezeigt einzufärben, wie könnten Sie dieses Problem in Excel lösen?

color alternate rows for merged cells example

Abwechselnde Zeilen für verbundene Zellen mit bedingter Formatierung einfärben

Abwechselnde Zeilen für verbundene Zellen mit VBA-Code einfärben


Abwechselnde Zeilen für verbundene Zellen mit bedingter Formatierung einfärben

In Excel kann das leistungsstarke Feature der bedingten Formatierung Ihnen helfen, diese Aufgabe so schnell wie möglich zu erledigen. Bitte gehen Sie wie folgt vor:

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

click Home > Conditional Formatting > New Rule

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

  • Wählen Sie die Option „Formel verwenden, um zu bestimmen, welche Zellen formatiert werden sollen“ aus der Liste „Regeltyp auswählen“;
  • Geben Sie dann diese Formel ein: =REST(ANZAHL2($A$2:$A2);2)=0 in das Textfeld „Werte formatieren, für die diese Formel wahr ist“.
  • Hinweis: A2 ist die erste Zelle Ihres Datenbereichs.

specify the options in the dialog box

3. Klicken Sie dann auf die Schaltfläche Formatieren, um zum Dialogfeld „Zellen formatieren“ zu gelangen. Wählen Sie unter der Registerkarte Füllung eine Farbe aus, mit der Sie die Zeilen hervorheben möchten, siehe Screenshot:

choose one color under the Fill tab

4. Klicken Sie auf OK > OK, um die Dialoge zu schließen, und die Zeilen mit den verbundenen Zellen sind mit der von Ihnen angegebenen Farbe gefüllt, siehe Screenshot:

the rows with the merged cells are filled with the color

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

  • Wählen Sie die Option „Formel verwenden, um zu bestimmen, welche Zellen formatiert werden sollen“ aus der Liste „Regeltyp auswählen“;
  • Geben Sie dann diese Formel ein: =REST(ANZAHL2($A$2:$A2);2)=1 in das Textfeld „Werte formatieren, für die diese Formel wahr ist“.
  • Klicken Sie dann auf die Schaltfläche Formatieren, um eine andere Farbe auszuwählen, mit der Sie die Zeilen hervorheben möchten.
  • Hinweis: A2 ist die erste Zelle Ihres Datenbereichs.

specify another options in the dialog box

6. Klicken Sie anschließend auf OK > OK, um die Dialoge zu schließen, und jetzt können Sie sehen, dass der ausgewählte Datenbereich abwechselnd mit zwei verschiedenen Farben basierend auf den verbundenen Zellen wie im folgenden Screenshot gezeigt schattiert ist:

the selected range is shaded with two different colors alternately based on the merged cells


Abwechselnde Zeilen für verbundene Zellen mit VBA-Code einfärben

Neben der normalen bedingten Formatierung können Sie auch einen VBA-Code verwenden, um Zeilenfarben für verbundene Zellen einfach anzuwenden.

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

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

VBA-Code: Abwechselnde Zeilen für verbundene Zellen 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 dann die Taste F5, um diesen Code auszuführen. Wählen Sie im ersten erscheinenden Fenster den Datenbereich aus, den Sie verwenden möchten, siehe Screenshot:

 vba code to select the data range

4. Wählen Sie im zweiten Eingabefeld die Spalte mit den verbundenen Zellen aus, siehe Screenshot:

vba code to select the column with merged cells

5. Klicken Sie dann auf die Schaltfläche OK, und die Zeilen sind abwechselnd basierend auf den verbundenen Zellen wie im folgenden Screenshot gezeigt schattiert:

the rows are shaded alternately based on the merged cells


Video: Abwechselnde Zeilen für verbundene Zellen einfärben

 

Weitere verwandte Artikel:

  • Alle verknüpften Daten aus verbundenen Zellen filtern
  • Angenommen, es gibt eine Spalte mit verbundenen Zellen in Ihrem Datenbereich, und nun müssen Sie diese Spalte mit verbundenen Zellen filtern, um alle Zeilen anzuzeigen, die mit jeder verbundenen Zelle verknüpft sind, wie in den folgenden Screenshots gezeigt. In Excel ermöglicht die Filterfunktion Ihnen nur, das erste Element zu filtern, das mit den verbundenen Zellen verknüpft ist. In diesem Artikel werde ich darüber sprechen, wie man alle verknüpften Daten aus verbundenen Zellen in Excel filtert.
  • Verbundene Zellen in Einzelzellen kopieren und einfügen
  • Normalerweise werden die verbundenen Zellen beim Kopieren und Einfügen direkt eingefügt. Aber Sie möchten diese verbundenen Zellen in Einzelzellen wie im folgenden Screenshot gezeigt einfügen, damit Sie die Daten nach Bedarf bearbeiten können. In diesem Artikel werde ich darüber sprechen, wie man verbundene Zellen in Einzelzellen kopiert und einfügt.
  • Inhalte mehrerer verbundener Zellen löschen
  • Wenn Sie ein großes Arbeitsblatt haben, das mehrere verbundene Zellen enthält, und Sie möchten den gesamten Inhalt der verbundenen Zellen löschen, aber die verbundenen Zellen behalten. Normalerweise könnten Sie versuchen, die Funktion Suchen und Ersetzen zu verwenden, um zuerst alle verbundenen Zellen auszuwählen, und dann die Entf-Taste drücken, um den Wert zu löschen, erhalten jedoch die Warnmeldung "Das können wir bei einer verbundenen Zelle nicht tun". In diesem Fall, wie löschen Sie die Werte in verbundenen Zellen, lassen aber die verbundenen Zellen schnell in Excel?
  • Verbundene Zellen automatisch nummerieren
  • Wie können wir Seriennummern in eine Liste unterschiedlich großer verbundener Zellen in Excel einfügen? Zuerst denken wir daran, den Autoausfüllgriff zu ziehen, um die verbundenen Zellen zu füllen, aber in diesem Fall erhalten wir die folgende Warnmeldung und können die verbundenen Zellen nicht füllen.

  • Super Formel-Leiste (F) (mehrere Zeilen Text und Formeln einfach bearbeiten); Lese-Layout (einfaches Lesen und Bearbeiten einer großen Anzahl von Zellen); Einfügen in gefilterte Bereiche...
  • Zellen/Zeilen/Spalten zusammenführen und Daten behalten; Zellinhalt aufteilen; Doppelte Zeilen zusammenführen und Summe/Durchschnitt berechnen... Doppelte Zellen verhindern; Bereiche vergleichen...
  • Doppelte oder eindeutige Zeilen auswählen; Leere Zeilen auswählen (alle Zellen sind leer); Super Suchen und unscharfes Suchen in vielen Arbeitsmappen; Zufällige Auswahl...
  • Exakte Kopie mehrerer Zellen ohne Änderung der Formelreferenz; Automatisches Erstellen von Referenzen zu mehreren Blättern; Aufzählungszeichen, Kontrollkästchen und mehr einfügen...
  • Formeln, Bereiche, Diagramme und Bilder favorisieren und schnell einfügen; Zellen mit Passwort verschlüsseln; Mailingliste erstellen und E-Mails senden...
  • Text extrahieren, Text hinzufügen, Zeichen an einer bestimmten Position entfernen, Leerzeichen entfernen; Druckstatistik erstellen und drucken; Zwischen Zelleninhalt und Kommentaren konvertieren...
  • Super Filter (Filter-Schemata speichern und auf andere Blätter anwenden); Erweiterte Sortierung nach Monat/Woche/Tag, Häufigkeit und mehr; Spezialfilter nach Fett, Kursiv...
  • Arbeitsmappen und Arbeitsblätter konsolidieren; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten auf mehrere Blätter aufteilen; Stapelkonvertierung von xls, xlsx und PDF...
  • Gruppierung von PivotTables nach Kalenderwoche, Wochentag und mehr... Entsperre und gesperrte Zellen durch unterschiedliche Farben anzeigen; Zellen mit Formel/Name hervorheben...
kte tab 201905
  • Aktivieren Sie die Registerkarten-Bearbeitung und den Lese-Modus in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Tabs desselben Fensters, anstatt in neuen Fenstern.
  • Steigert Ihre Produktivität um 50 % und reduziert Hunderte von Mausklicks täglich!
officetab bottom