Wie druckt man in Excel Rahmen um jede Seite?
Beim Arbeiten mit großen Arbeitsblättern, die sich über Hunderte von Seiten erstrecken, ist es unerlässlich, die Daten in einem klaren und professionellen Format zu drucken. Eine effektive Möglichkeit hierfür ist das Hinzufügen eines Rahmens um jede gedruckte Seite – so wirkt der Ausdruck übersichtlich strukturiert und lässt sich deutlich leichter lesen. Zwar können Sie in Excel manuell Inhalte pro Seite auswählen und Rahmen hinzufügen, doch dieser Ansatz ist bei umfangreichen Dokumenten äußerst zeitaufwendig und wenig praktikabel. Zum Glück gibt es effizientere Lösungen, um automatisch einen Rahmen um jede Seite beim Drucken in Excel einzufügen. In diesem Artikel stellen wir Ihnen verschiedene praxiserprobte Methoden vor – von integrierten Funktionen bis hin zu cleveren Alternativen.
➤ Rahmen um jede Seite beim Drucken mithilfe von Gitternetzlinien
➤ Rahmen um jede Seite mit einem Klick mithilfe von Kutools für Excel drucken
➤ Rahmen um jede Seite mithilfe einer VBA-Makroautomatisierung drucken
Rahmen um jede Seite beim Drucken mithilfe von Gitternetzlinien
Obwohl Excel keine dedizierte Option bietet, um jeder gedruckten Seite einen Rahmen hinzuzufügen, können Sie die Gitternetzlinien drucken-Funktion nutzen, um Seitenumrisse zu simulieren. Das geht schnell und erfordert keine Add-Ins. Beachten Sie jedoch: Es entsteht dadurch kein kräftiger Seitenumriss – Excel druckt sämtliche Gitternetzlinien, und der Seitenrand wird visuell durch die äußersten gedruckten Gitternetzlinien definiert.
Hinweise:
- Diese Methode liefert optimale Ergebnisse, wenn Ihr Arbeitsblatt ein regelmäßiges Rasterlayout aufweist und Sie keine stark angepassten Rahmen benötigen.
- Wenn Ihr Blatt bereits auffällige Tabellenrahmen verwendet, können gedruckte Gitternetzlinien visuell mit diesen kollidieren.
1. Falls benutzerdefinierte Rahmen vorhanden sind, entfernen Sie diese zuerst, um überlappende oder inkonsistente Linien beim Drucken zu vermeiden. Wählen Sie das Blatt aus und navigieren Sie dann zu Start > Rahmen (Symbol) > Kein Rahmen, um alle Rahmen der ausgewählten Zellen zu löschen:
2. Wechseln Sie zu Seitenlayout > Klicken Sie auf den Seiteneinrichtung-Dialogstarter (kleiner Pfeil in der Gruppenecke), um den Dialog „Seiteneinrichtung“ zu öffnen:
3. Wechseln Sie im Seiteneinrichtung-Dialog zur Registerkarte Tabelle und aktivieren Sie im Bereich Drucken die Option Gitternetzlinien, damit alle Gitternetzlinien – einschließlich derjenigen an den Seitenrändern – gedruckt werden:
4. Klicken Sie auf Druckvorschau, um das Ergebnis zu überprüfen. Beim Drucken zeigt jede Seite eine deutliche, rechteckige Gitternetzgrenze, die durch die äußersten gedruckten Gitternetzlinien gebildet wird und so einen Seitenumriss simuliert. Siehe Beispiel:
Tipps:
- Falls Sie dickere, auffälligere Rahmen benötigen, fügen Sie äußere Rahmen manuell zum Druckbereich hinzu oder verwenden Sie ein Makro, um Seitenumrisse zu zeichnen.
- Vermeiden Sie zusammengefasste oder unregelmäßige Zellbereiche – sie können die visuelle Kontinuität der gedruckten Gitternetzlinien stören.
- Führen Sie stets eine Druckvorschau durch, um sicherzustellen, dass das Erscheinungsbild Ihren Erwartungen entspricht.
Entfesseln Sie die Magie von Excel mit KUTOOLS AI
- Intelligente Ausführung: Führen Sie Zelloperationen durch, analysieren Sie Daten und erstellen Sie Diagramme – alles ganz einfach per Sprachbefehl.
- Benutzerdefinierte Formeln: Erstellen Sie maßgeschneiderte Formeln, um Ihre Arbeitsabläufe optimal zu optimieren.
- VBA-Programmierung: Schreiben und implementieren Sie VBA-Code ganz mühelos.
- Formelinterpretation: Verstehen Sie komplexe Formeln spielend leicht.
- Textübersetzung: Überwinden Sie Sprachbarrieren direkt in Ihren Tabellenkalkulationen.
Rahmen um jede Seite mit einem Klick mithilfe von Kutools für Excel drucken
Für Benutzer, die einen professionelleren Seitenumriss wünschen – insbesondere bei Arbeitsblättern mit komplexer Formatierung oder wenn Gitternetzlinien nicht ausreichen – bietet Kutools für Excel eine praktische Lösung: die Funktion Rahmen zu Seitenumbrüchen hinzufügen. Mit diesem Werkzeug fügen Sie mit nur einem Klick einen durchgehenden Rahmen um jede druckbare Seite des aktiven Arbeitsblatts hinzu – und sparen so Zeit, während Sie ein einheitliches Erscheinungsbild auf allen Seiten garantieren.
Führen Sie nach der Installation von Kutools für Excel die folgenden Schritte aus, um Rahmen zu Seitenumbrüchen hinzufügen:
1. Aktivieren Sie das Blatt, dem Sie Rahmen hinzufügen möchten, und navigieren Sie dann zu Unternehmen > Drucken > Rahmen zu Seitenumbrüchen hinzufügen. Siehe Screenshot:
2. Sollte ein Dialog erscheinen, der Sie warnt, dass alle vorhandenen Rahmen beim Fortfahren gelöscht werden, stellen Sie sicher, dass Ihre Arbeit gespeichert ist oder dass das Überschreiben der Rahmen in Ordnung ist. Klicken Sie auf Ja, um fortzufahren:
Nach der Anwendung wird jede Seite Ihres Arbeitsblatts mit einem kräftigen, klaren Rahmen umrandet, sodass der gedruckte Ausdruck übersichtlich und leicht unterscheidbar wirkt. Diese Methode ist schnell und minimiert den manuellen Aufwand.
Tipps und Hinweise:
- Vorhandene Rahmen werden aus dem aktuellen Arbeitsblatt entfernt, sobald Sie diese Option verwenden.
- Wenn Sie bestimmte Rahmen beibehalten müssen, erstellen Sie vorab unbedingt eine Sicherungskopie Ihrer Datei oder Ihres Arbeitsblatts.
- Diese Option eignet sich ideal für große Arbeitsblätter mit mehreren Druckseiten, die konsistente und visuell klare Seitenränder benötigen.
Rahmen um jede Seite mithilfe einer VBA-Makroautomatisierung drucken
Möchten Sie das Hinzufügen eines Rahmens um jede druckbare Seite automatisieren – etwa für wiederkehrende Aufgaben oder individuelle Layouts? Dann nutzen Sie ein VBA-Makro, das die Excel-Seitenumbrüche ausliest und einen präzisen Seitenumriss zeichnet. So behalten Sie vollständige Kontrolle über Stil und Linienstärke Ihres Rahmens – ganz ohne Add-Ins.
Hinweise:
- Das Makro rahmt jede druckbare Seite ausschließlich an ihren äußeren Kanten – oben, links, unten und rechts – ein, ohne dabei bestehende interne Zellrahmen zu überschreiben.
- Funktioniert am besten bei gut strukturierten Blättern; komplexe Zusammenführungen oder ungewöhnliche Druckbereiche erfordern möglicherweise geringfügige Anpassungen.
Vorgehensweise:
1. Drücken Sie Alt + F11, um den Visual Basic for Applications-Editor zu öffnen. Klicken Sie auf Einfügen > Modul, um ein neues Modul hinzuzufügen.
2. Kopieren Sie den folgenden Code, und fügen Sie ihn in das Modul ein:
Sub AddBorderToEachPrintablePage()
Dim ws As Worksheet
Dim LastRow As Long, LastCol As Long
Dim StartRow As Long, EndRow As Long
Dim StartCol As Long, EndCol As Long
Dim vRowBreaks As Variant, vColBreaks As Variant
Dim i As Long, j As Long
Dim oldDisp As Boolean
Dim f As Range
Set ws = ActiveSheet
Application.ScreenUpdating = False
Application.EnableEvents = False
' Check if sheet is empty
Set f = ws.Cells.Find(What:="*", LookIn:=xlFormulas, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False)
If f Is Nothing Then GoTo CleanUp
LastRow = ws.Cells.Find(What:="*", LookIn:=xlFormulas, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
LastCol = ws.Cells.Find(What:="*", LookIn:=xlFormulas, LookAt:=xlPart, _
SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
' Force refresh of page breaks
oldDisp = ws.DisplayPageBreaks
ws.DisplayPageBreaks = True
' Collect horizontal page breaks (add top and bottom bounds)
vRowBreaks = Array(0)
For i = 1 To ws.HPageBreaks.Count
vRowBreaks = ArrayJoin(vRowBreaks, Array(ws.HPageBreaks(i).Location.Row - 1))
Next i
vRowBreaks = ArrayJoin(vRowBreaks, Array(LastRow))
' Collect vertical page breaks (add left and right bounds)
vColBreaks = Array(0)
For j = 1 To ws.VPageBreaks.Count
vColBreaks = ArrayJoin(vColBreaks, Array(ws.VPageBreaks(j).Location.Column - 1))
Next j
vColBreaks = ArrayJoin(vColBreaks, Array(LastCol))
' Draw only outer borders for each printable page
For i = 0 To UBound(vRowBreaks) - 1
StartRow = vRowBreaks(i) + 1
EndRow = vRowBreaks(i + 1)
For j = 0 To UBound(vColBreaks) - 1
StartCol = vColBreaks(j) + 1
EndCol = vColBreaks(j + 1)
With ws.Range(ws.Cells(StartRow, StartCol), ws.Cells(EndRow, EndCol))
With .Borders(xlEdgeTop)
.LineStyle = xlContinuous: .Weight = xlThick
End With
With .Borders(xlEdgeLeft)
.LineStyle = xlContinuous: .Weight = xlThick
End With
With .Borders(xlEdgeBottom)
.LineStyle = xlContinuous: .Weight = xlThick
End With
With .Borders(xlEdgeRight)
.LineStyle = xlContinuous: .Weight = xlThick
End With
End With
Next j
Next i
CleanUp:
ws.DisplayPageBreaks = oldDisp
Application.EnableEvents = True
Application.ScreenUpdating = True
If Not f Is Nothing Then
MsgBox "Borders have been added to each printable page!", vbInformation, "AddBorderToEachPrintablePage"
End If
End Sub
Function ArrayJoin(a As Variant, b As Variant) As Variant
Dim temp() As Variant
Dim alen As Long, blen As Long, k As Long
alen = UBound(a) - LBound(a) + 1
blen = UBound(b) - LBound(b) + 1
ReDim temp(0 To alen + blen - 1)
For k = 0 To alen - 1
temp(k) = a(k)
Next k
For k = 0 To blen - 1
temp(alen + k) = b(k)
Next k
ArrayJoin = temp
End Function
3. Kehren Sie zu Excel zurück, stellen Sie sicher, dass das Zielarbeitsblatt aktiv ist, und führen Sie das Makro mit F5(oder über die Schaltfläche)Ausführen) aus. Das Makro erkennt die Seitenumbrüche und zeichnet einen dicken Rahmen um jeden druckbaren Seitenblock.
Tipps:
- Passen Sie Stil und Stärke des Rahmens an, indem Sie die vier
xlEdge*-Abschnitte bearbeiten (z. B.).Weight = xlMediumoder die Farbe über.Color). - Wenn ein benutzerdefinierter Druckbereich festgelegt ist, richtet sich der Seitenumbruch in Excel nach dieser Einstellung – überprüfen Sie das Ergebnis in der Druckvorschau.
- Speichern Sie Ihre Arbeitsmappe, bevor Sie Makros ausführen. Damit Sie die Datei bei wiederholter Verwendung problemlos nutzen können, speichern Sie sie als makrofähige Datei ()
.xlsm). - Wird kein Inhalt gefunden, wird das Makro sicher mit einer entsprechenden Meldung beendet – so werden Fehler bei leeren Blättern vermieden.
Falls das Makro nicht wie erwartet funktioniert, überprüfen Sie, ob Zellen zusammengeführt wurden, Zeilen oder Spalten ausgeblendet sind oder ungewöhnliche Skalierungseinstellungen vorliegen (z. B. „An 1 Seite breit und N Seiten hoch anpassen“). Verfeinern Sie die Seitenblöcke, indem Sie Ihre Druckbereichs- oder Seiteneinrichtungseinstellungen anpassen und das Makro erneut ausführen.
Rahmen um jede Seite hinzufügen
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins