Wenn Kenneth ein Arbeitsblatt druckt, druckt er es in 99% der Fälle lieber mit Gitterlinien. Das Kontrollkästchen Gitterlinien (auf der Registerkarte Blatt des Dialogfelds Seite einrichten) ist jedoch nicht standardmäßig aktiviert. Kenneth fragt sich, ob es eine Möglichkeit gibt, diese Einstellung so zu ändern, dass sie immer ausgewählt ist.

Es gibt tatsächlich verschiedene Möglichkeiten, wie Sie sich dieser Aufgabe nähern können. Wenn für alle zukünftigen Arbeitsmappen oder Arbeitsblätter die Rasterlinien standardmäßig aktiviert sein sollen, erstellen Sie zunächst eine Standardarbeitsmappe und ein Arbeitsblatt, auf die sich Excel beim Erstellen dieser Arbeitsblätter stützt. Wie Sie dies tun, wurde in anderen ExcelTips behandelt, wie z. B. diesem:

Creating Default Formatting for Workbooks and Worksheets

Beachten Sie, dass dieser Ansatz alle neu erstellten Arbeitsblätter oder Arbeitsmappen betrifft. Es wirkt sich nicht auf zuvor erstellte Dateien aus. Wenn Sie diese beeinflussen möchten, sollten Sie ein einfaches Makro in Betracht ziehen, um die Gitterlinien einzuschalten. Dies kann entweder einer Tastenkombination oder der Symbolleiste für den Schnellzugriff zugewiesen werden. Hier ist ein Beispiel für eines, das die Gitterlinien einschaltet:

Sub GridlinesOn()

ActiveSheet.PageSetup.PrintGridlines = True End Sub

Das war’s – eine einzige Zeile. Falls gewünscht, können Sie das Makro auch schicker gestalten, sodass es die Gitterlinien umschaltet und deren Status anzeigt. Hier ist ein Beispiel:

Sub GridlinesToggle()

Dim sStatus As String

sStatus = "OFF"

With ActiveSheet.PageSetup         .PrintGridlines = Not .PrintGridlines         If .PrintGridlines Then sStatus = "ON"

End With     Msgbox "The gridlines are now " & sStatus End Sub

Schließlich können Sie auch ein Makro erstellen, das sicherstellt, dass die Gitterlinien aktiviert sind, und dann das aktuelle Arbeitsblatt druckt. Dies erfordert das Hinzufügen einer einzelnen Zeile zu dem früheren Makro, das die Gitterlinien aktiviert hat:

Sub PrintGridlines()

ActiveSheet.PageSetup.PrintGridlines = True     ActiveSheet.PrintOut End Sub

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (13515) gilt für Microsoft Excel 2007, 2010, 2013, 2016, 2019 und Excel in Office 365.