Sie müssen jede zweite Zeile eines Tabellenblattes oder bestimmten Bereiches einfärben? Das geht ganz einfach auch ohne VBA.
So geht´s:
Für diesen Trick brauchen Sie eine Hilfsspalte (leere Spalte), welche Sie in der Tabelle nicht verwenden. Der Trick soll nun an einem kleinen Beispiel demonstriert werden.
Abbildung: Beispiel für jede zweite Zeile ohne VBA einfärben
Sie sehen eine kleine Liste, welche aus Vereinfachungsgründen, die jeweilige Zeilennummer als Text anzeigt. Die anderen Spalten des Tabellenblattes werden nicht verwendet und können somit als Hilfsspalteverwendet werden.
Markieren Sie die Zelle B1 und erfassen Sie nun die folgende Formel =REST(ZEILE();2)
Kopieren Sie diese Formel nun in den Bereich B1:B16.
Abbildung: Formel in Hilfsspalte kopieren
Durch die erfasste Funktion wird in der Hilfsspalte nun automatisch jede zweite Zeile als 0 oder 1 klassifiziert.
Als nächstes muss nun diese Liste gefiltert werden. Klicken Sie mit der Maus in die Liste und aktivieren Sie im Menüband die Befehlsfolge Registerkarte Daten > Befehlsgruppe Sortieren und Filtern > Befehl Filtern. Daraufhin werden automatisch die Filterpfeile in der ersten Zeile der Liste eingeblendet. Filtern Sie nun in der Spalte B den Eintrag 0.
Abbildung: Wert 0 in Hilfsspalte filtern
Daraufhin werden nur die Zeilen, welche den Wert 0 in der Hilfsspalte haben (jede zweite Zeile) angezeigt bzw. gefiltert.
Abbildung: Nur jede zweite Zeile ist sichtbar
Sie können diese Zeilen nun einfärben, indem Sie Zeilennummern 2:16 markieren und anschließend die Zeilen mit der von Ihnen gewünschten Farbe einfärben. Verwenden Sie hier für das Dialogfeld Zellen formatieren, welches Sie mit der Tastenkombination Strg + 1 öffnen können.
Entfernen Sie nun bitte wieder den Filter in der Liste. Klicken Sie hierzu einfach auf die Schaltfläche Filtern.
Abbildung Schaltfläche Filtern in der Registerkarte Daten
Sie haben durch diese Technik nun jede zweite Zeile farbig formatiert.
Abbildung: Jede zweite Zeile ist eingefärbt
Sie können nun die Hilfsspalte wieder entfernen.
Hinweis:
Analog zu dieser Technik können Sie auch jede dritte, vierte, fünfte oder n-te Zeile einer Tabelle ohne VBA formatieren. Sie müssen hierzu lediglich die Formel in der Hilfsspalte entsprechend anpassen.
=REST(ZEILE();3) – für jede dritte Zeile
=REST(ZEILE();4) – für jede vierte Zeile
=REST(ZEILE();5) – für jede fünfte Zeile
Sie müssen dann lediglich die Hilfsspalte nach dem entsprechenden Wert filtern und dann die angezeigten Zeilen formatieren.
.
Weiterführende Links:
Kennen Sie weiterführende Links zu diesem Thema? Schreiben Sie doch Ihre Linkempfehlung als Kommentar unten zu dieser Seite. Ich freue mich auf Ihr Feedback.