Wie fügt man Seitenzahlen in eine Zelle oder in die Kopf- bzw. Fußzeile in Excel ein?
Beim Drucken einer Excel-Datei müssen Sie möglicherweise Seitenzahlen in die Seiten einfügen, damit das gedruckte Dokument übersichtlich und gut lesbar ist. In diesem Artikel stelle ich Ihnen einige schnelle Methoden vor, um Seitenzahlen in eine Zelle, Kopf- oder Fußzeile einzufügen.
Seitenzahl in Kopf- / Fußzeile eines Arbeitsblatts einfügen
Seitenzahl in Kopf- / Fußzeile mehrerer Arbeitsblätter einfügen
Seitenzahl mithilfe von VBA-Code in eine Zelle einfügen
Alle Seitenzahlen gleichzeitig in Excel entfernen
Seitenzahl in Kopf- / Fußzeile eines Arbeitsblatts einfügen
Normalerweise fügen Sie Seitenzahlen schnell in die Kopf- oder Fußzeile ein, indem Sie die Kopf- und Fußzeile-Funktion nutzen. Gehen Sie dazu wie folgt vor:
1. Wechseln Sie zu dem Arbeitsblatt, in dessen Kopf- oder Fußzeile Sie die Seitenzahlen einfügen möchten.
2. Klicken Sie dann auf Einfügen > Kopf- und Fußzeile, und Ihr Arbeitsblatt wechselt in die Seitenlayout-Ansicht. Siehe Screenshot:
3. Klicken Sie auf die Kopf- oder Fußzeile, in die Sie die Seitenzahl einfügen möchten. Anschließend wird im Menüband die Registerkarte Entwurf mit den Kopf- und Fußzeilentools angezeigt. Klicken Sie dann auf Entwurf > Seitenzahl. Siehe Screenshot:
4. Sie sehen nun den Platzhalter &[Page] im ausgewählten Bereich. Klicken Sie anschließend außerhalb des Kopf- oder Fußzeilenbereichs, um die Seitenzahlen anzuzeigen. Siehe Screenshot:
5. Kehren Sie zur normalen Ansicht zurück, indem Sie auf Ansicht > Normal klicken. Beim Drucken dieses Arbeitsblatts sehen Sie, dass die Seitenzahlen in die von Ihnen gewählte Kopf- oder Fußzeile eingefügt wurden.
Hinweis: Wenn Sie die Seitenzahlen im Format „1 von 15“, „2 von 15“ anzeigen möchten, geben Sie einfach &[Page] von &[Pages] direkt in das Feld der Kopf- oder Fußzeile ein. Siehe Screenshot:
Arbeitsblattname / Dateiname / Erstellungszeit / Änderungszeit … in Kopf-/Fußzeile / Zelle einfügen: Mit dem Kutools für Excel’schen Arbeitsmappeninformationen einfügen-Tool können Sie schnell den Arbeitsblattnamen, Dateinamen, Dateipfad und Namen, Erstellungszeit, Änderungszeit und so weiter in eine Zelle, Kopf- oder Fußzeile einfügen, wie Sie es benötigen.Jetzt Kutools für Excel herunterladen und kostenlos testen!
Kutools für Excel: mit mehr als 300 praktischen Excel-Add-Ins, kostenlos und uneingeschränkt 30 Tage lang testbar.Jetzt herunterladen und kostenlos testen! |
Seitenzahl in Kopf- / Fußzeile mehrerer Arbeitsblätter einfügen
Die oben beschriebene Methode ermöglicht das Einfügen von Seitenzahlen in ein einzelnes Arbeitsblatt. Möchten Sie jedoch Seitenzahlen in alle Arbeitsblätter der Arbeitsmappe einfügen, sodass sämtliche Seiten fortlaufend nummeriert sind, gehen Sie wie folgt vor:
1. Wählen Sie alle Blattregisterkarten aus, wechseln Sie dann zur Registerkarte Seitenlayout und klicken Sie auf das Symbol Dialogfeld-Starter in der Gruppe Seiteneinrichtung. Siehe Screenshot:
2. Klicken Sie im Dialogfeld Seiteneinrichtung auf die Registerkarte Kopf- und Fußzeile, und wählen Sie anschließend Benutzerdefinierte Kopfzeile oder Benutzerdefinierte Fußzeile, um Ihre gewünschte Kopf- oder Fußzeile festzulegen. Siehe Screenshot:
3. Legen Sie im Dialogfeld Kopfzeile oder Fußzeile zunächst die Position für die Seitenzahl fest, indem Sie in das Feld Linker Bereich:, Mittlerer Bereich: oder Rechter Bereich: klicken. Anschließend klicken Sie auf das Symbol Seitenzahl einfügen, woraufhin der Platzhalter &[Page] erscheint. Siehe Screenshot:
Hinweis: Geben Sie &[Page] von &[Pages] in das Feld der Kopf- oder Fußzeile ein, wenn Sie die Seitenzahlen im Format „1 von 45“, „2 von 45“ usw. anzeigen möchten.
4. Klicken Sie anschließend auf OK > OK, um die Dialogfelder zu schließen. In der Druckvorschau sehen Sie beim Drucken der Arbeitsmappe, dass alle Seitenzahlen fortlaufend in die Kopf- oder Fußzeile eingefügt wurden.
Seitenzahl mithilfe von VBA-Code in eine Zelle einfügen
Es ist einfach, Seitenzahlen in Kopf- oder Fußzeile einzufügen. Falls Sie jedoch Seitenzahlen in eine Zelle des Arbeitsblatts einfügen möchten, gibt es hierfür keine direkte Möglichkeit. Der folgende VBA-Code kann Ihnen bei diesem Problem helfen.
1. Klicken Sie auf die Zelle, in der die Seitenzahl angezeigt werden soll.
2. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
3. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden Code in das Modul-Fenster ein.
VBA-Code: Aktuelle Seitenzahl in eine Zelle einfügen:
Sub pagenumber()
'updateby Extendoffice 20160506
Dim xVPC As Integer
Dim xHPC As Integer
Dim xVPB As VPageBreak
Dim xHPB As HPageBreak
Dim xNumPage As Integer
xHPC = 1
xVPC = 1
If ActiveSheet.PageSetup.Order = xlDownThenOver Then
xHPC = ActiveSheet.HPageBreaks.Count + 1
Else
xVPC = ActiveSheet.VPageBreaks.Count + 1
End If
xNumPage = 1
For Each xVPB In ActiveSheet.VPageBreaks
If xVPB.Location.Column > ActiveCell.Column Then Exit For
xNumPage = xNumPage + xHPC
Next
For Each xHPB In ActiveSheet.HPageBreaks
If xHPB.Location.Row > ActiveCell.Row Then Exit For
xNumPage = xNumPage + xVPC
Next
ActiveCell = "Page " & xNumPage & " of " & Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
End Sub
4. Drücken Sie anschließend die Taste F5, um diesen Code auszuführen. Die Seitenzahl dieser Zelle wird nun in der ausgewählten Zelle angezeigt. Siehe Screenshot:
Alle Seitenzahlen gleichzeitig in Excel entfernen
Um alle Seitenzahlen zu entfernen, führen Sie die folgenden Schritte aus:
1. Wählen Sie alle Blattregisterkarten aus, wechseln Sie zur Registerkarte Seitenlayout auf dem Menüband, und klicken Sie dann auf das Symbol Dialogfeld-Starter in der Gruppe Seiteneinrichtung. Siehe Screenshot:
2. Klicken Sie im Dialogfeld Seiteneinrichtung auf die Registerkarte Kopf- und Fußzeile und wählen Sie anschließend aus der Dropdown-Liste (keine) unter Kopfzeile oder Fußzeile aus. Siehe Screenshot:
3. Klicken Sie anschließend auf die Schaltfläche OK, um alle Seitenzahlen gleichzeitig aus der Arbeitsmappe zu entfernen.
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