Computerpapier - Zeilen abwechselnd grau und weiß einfärben

Diese Prozedur färbt die Zeilen innerhalb einer Markierung abwechselnd weiß / grau ein.
Dadurch ist bei umfangreichen Zahlenreihen eine bessere Lesbarkeit sowohl am Bildschirm als auch beim Ausdruck gegeben.
Das Excel-Tabellenblatt gleicht nach dem ausführen dieses Makros einem Computerpapier, wie es vor 10 Jahren noch üblich war. Also etwas für Nostalgiker.

Vorgehensweise:
1. gewünschten Bereich mit der markieren
2. das Makro "ZeilenFärben" ausführen

Sub ZeilenFärben()
'Variablen dimensionieren
Dim Zeile As Range, ZeilenNr As Integer

'Schleife für die gesamte Selektion
For Each Zeile In Selection.Rows

'Zeilen zählen
ZeilenNr = ZeilenNr + 1

'Für jede 2. Zeile Farbe festlegen
If ZeilenNr Mod 2 = 0 Then
Zeile.Interior.ColorIndex = 15
Else
Zeile.Interior.ColorIndex = xlAutomatic
End If

'Rahmen festelegen
Zeile.Borders.Weight = xlThin

Next
End Sub

Partnerlinks

Relevante Artikel

Wir benutzen Cookies
Ihre Zufriedenheit ist unser Ziel, deshalb verwenden wir Cookies. Mit diesen ermöglichen wir, dass unsere Webseite zuverlässig und sicher läuft, wir die Performance im Blick behalten und Sie besser ansprechen können. Cookies werden benötigt, damit technisch alles funktioniert und Sie auch externe Inhalte lesen können. Des Weiteren sammeln wir unter anderem Daten über aufgerufene Seiten, getätigte Käufe oder geklickte Buttons, um so unser Angebot an Sie zu Verbessern. Mehr über unsere verwendeten Dienste erfahren Sie unter „Weitere Informationen“. Mit Klick auf „Akzeptieren“ erklären Sie sich mit der Verwendung dieser Dienste einverstanden. Ihre Einwilligung können Sie jederzeit mit Wirkung auf die Zukunft widerrufen oder ändern.