Wie fügt man eine Seitenzahl in eine Zelle / Kopfzeile / Fußzeile in Excel ein?

Wenn Sie eine Excel-Datei drucken, müssen Sie möglicherweise Seitenzahlen in die Seiten einfügen, um die gedruckte Datei ordentlich und lesbar zu gestalten. In diesem Artikel stelle ich Ihnen einige schnelle Tricks vor, um Seitenzahlen in eine Zelle, Kopfzeile oder Fußzeile einzufügen.

Seitenzahl in Kopfzeile / Fußzeile eines Arbeitsblatts einfügen

Seitenzahl in Kopfzeile / Fußzeile über mehrere Arbeitsblätter einfügen

Seitenzahl mit VBA-Code in eine Zelle einfügen

Alle Seitenzahlen auf einmal in Excel entfernen

Seitenzahl in Kopfzeile / Fußzeile eines Arbeitsblatts einfügen

Normalerweise können wir Seitenzahlen schnell in die Kopf- oder Fußzeile einfügen, indem wir die Funktion Kopf- und Fußzeile verwenden. Bitte gehen Sie wie folgt vor:

1. Gehen Sie zum Arbeitsblatt, in das Sie die Seitenzahlen in die Kopf- oder Fußzeile einfügen möchten.

2. Klicken Sie dann auf Einfügen > Kopf- und Fußzeile, und Ihr Arbeitsblatt wird in der Seitenlayoutansicht angezeigt, siehe Screenshot:

3. Klicken Sie auf die Kopf- oder Fußzeile, in die Sie die Seitenzahl einfügen möchten, und dann wird im Menüband eine Entwurf-Registerkarte mit Kopf- und Fußzeilentools angezeigt. Klicken Sie anschließend auf Entwurf > Seitenzahl, siehe Screenshot:

4. Und Sie sehen den Platzhalter &[Seite] im ausgewählten Abschnitt erscheinen, klicken Sie dann außerhalb des Kopf- oder Fußzeilenbereichs, um die Seitenzahlen anzuzeigen. Siehe Screenshot:

5. Jetzt können Sie durch Klicken auf Ansicht > Normal zur normalen Ansicht zurückkehren, und wenn Sie dieses Arbeitsblatt drucken, sehen Sie, dass die Seitenzahlen in die ausgewählte Kopf- oder Fußzeile eingefügt wurden.

Hinweis: Wenn Sie möchten, dass die Seitenzahlen im Format 1 von 15, 2 von 15 angezeigt werden, müssen Sie einfach &[Seite] von &[Seiten] direkt in das Feld für die Kopf- oder Fußzeile eingeben, siehe Screenshot:

Seitenzahl in Kopfzeile / Fußzeile über mehrere Arbeitsblätter einfügen

Die oben genannte Methode kann Ihnen helfen, Seitenzahlen in ein Arbeitsblatt einzufügen. Wenn Sie Seitenzahlen in alle Arbeitsblätter der Arbeitsmappe einfügen möchten, damit alle Seiten fortlaufend nummeriert sind, gehen Sie bitte wie folgt vor:

1. Wählen Sie alle Blattregisterkarten aus, gehen Sie dann zur Registerkarte Seitenlayout, und klicken Sie auf das Dialogfeldstarter-Symbol in der Gruppe Seiteneinrichtung, siehe Screenshot:

2. Klicken Sie im Dialogfeld Seiteneinrichtung auf die Registerkarte Kopfzeile/Fußzeile, und klicken Sie dann auf Benutzerdefinierte Kopfzeile oder Benutzerdefinierte Fußzeile, um die gewünschte Kopf- oder Fußzeile festzulegen, siehe Screenshot:

3. Und im Dialogfeld Kopfzeile oder Fußzeile legen Sie den Ort fest, an dem die Seitenzahlen eingefügt werden sollen, indem Sie in das Feld Linker Abschnitt:, Mittlerer Abschnitt: oder Rechter Abschnitt: klicken, je nach Bedarf, und klicken Sie dann auf das Symbol Seitenzahl einfügen, und der Platzhalter &[Seite] erscheint. Siehe Screenshot:

Hinweis: Geben Sie &[Seite] von &[Seiten] in das Feld für die Kopf- oder Fußzeile ein, wenn Sie möchten, dass die Seitenzahlen als 1 von 45, 2 von 45 usw. angezeigt werden.

4. Klicken Sie dann auf OK > OK, um die Dialogfelder zu schließen. Wenn Sie diese Arbeitsmappe drucken, können Sie in der Druckvorschau sehen, dass alle Seitenzahlen fortlaufend in die Kopf- oder Fußzeile eingefügt wurden.

Seitenzahl mit VBA-Code in eine Zelle einfügen

Es ist einfach, Seitenzahlen in die Kopf- oder Fußzeile einzufügen, aber wenn Sie Seitenzahlen in eine Zelle des Arbeitsblatts einfügen müssen, gibt es keinen direkten Weg, dies zu tun. Der folgende VBA-Code kann Ihnen helfen, dieses Problem zu lösen.

1. Klicken Sie auf eine Zelle, in der Sie die Seitenzahl dieser Zelle anzeigen möchten.

2. Halten Sie die Tasten ALT + F11 gedrückt, und es öffnet sich das Fenster Microsoft Visual Basic for Applications.

3. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden Code in das Modulfenster 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 dann die F5-Taste, um diesen Code auszuführen, und die Seitenzahl dieser Zelle wird in der ausgewählten Zelle angezeigt, siehe Screenshot:

Alle Seitenzahlen auf einmal in Excel entfernen

Um alle Seitenzahlen zu entfernen, können Sie die folgenden Schritte ausführen:

1. Wählen Sie alle Blattregisterkarten aus, und gehen Sie zur Registerkarte Seitenlayout im Menüband, klicken Sie dann auf das Dialogfeldstarter-Symbol in der Gruppe Seiteneinrichtung, siehe Screenshot:

2. Klicken Sie im Dialogfeld Seiteneinrichtung auf die Registerkarte Kopfzeile/Fußzeile, und wählen Sie dann (Keine) aus der Dropdown-Liste für Kopfzeile oder Fußzeile, siehe Screenshot:

3. Klicken Sie dann auf die Schaltfläche OK, und alle Seitenzahlen werden auf einmal aus der Arbeitsmappe entfernt.