Direkt zum Inhalt

Wie füge ich die Seitenzahl in Excel in Zelle / Kopf- / Fußzeile ein?

Wenn Sie eine Excel-Datei drucken, müssen Sie möglicherweise die Seitenzahlen in die Seiten einfügen, damit die gedruckte Datei sauber und lesbar ist. In diesem Artikel werde ich einige schnelle Tricks vorstellen, um die Seitenzahlen für Sie in Zelle, Kopf- oder Fußzeile einzufügen.

Fügen Sie die Seitenzahl in die Kopf- / Fußzeile eines Arbeitsblatts ein

Fügen Sie die Seitenzahl über mehrere Arbeitsblätter in die Kopf- / Fußzeile ein

Fügen Sie die Seitenzahl mit dem VBA-Code in die Zelle ein

Entfernen Sie alle Seitenzahlen gleichzeitig in Excel


Pfeil blau rechte Blase Fügen Sie die Seitenzahl in die Kopf- / Fußzeile eines Arbeitsblatts ein

Normalerweise können wir die Seitenzahlen schnell in die Kopf- oder Fußzeile einfügen, indem wir die Kopfzeile Fußzeile Funktion, bitte wie folgt vorgehen:

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

2. Dann klick Insert > Kopfzeile Fußzeileund Ihr Arbeitsblatt wird in sein Seitenlayout Ansicht, siehe Screenshot:

doc Seitenzahlen einfügen 1

3. Klicken Sie auf die Kopf- oder Fußzeile, in die Sie die Seitenzahl einfügen möchten, und dann auf a Design Registerkarte mit Kopf- und Fußzeilentools wird in der Multifunktionsleiste angezeigt, klicken Sie dann auf Design > Seitennummer, siehe Screenshot:

doc Seitenzahlen einfügen 2

4. Und Sie können den Platzhalter sehen &[Seite] erscheinen im ausgewählten Bereich und klicken dann auf eine beliebige Stelle außerhalb des Kopf- oder Fußzeilenbereichs, um die Seitenzahlen anzuzeigen. Siehe Screenshot:

doc Seitenzahlen einfügen 3

5. Jetzt können Sie durch Klicken auf die normale Ansicht zurücksetzen Anzeigen > NormalWenn Sie dieses Arbeitsblatt drucken, werden die Seitenzahlen in die von Ihnen ausgewählte Kopf- oder Fußzeile eingefügt.

Note: Wenn die Seitenzahlen im Format 1 von 15, 2 von 15 angezeigt werden sollen, müssen Sie dies nur direkt eingeben & [Seite] von & [Seiten] In das Feld für Kopf- oder Fußzeile siehe Screenshot:

doc Seitenzahlen einfügen 4


Pfeil blau rechte Blase Fügen Sie die Seitenzahl über mehrere Arbeitsblätter in die Kopf- / Fußzeile ein

Die obige Methode kann Ihnen beim Einfügen der Seitenzahlen in ein Arbeitsblatt helfen. Wenn Sie die Seitenzahlen in alle Arbeitsblätter der Arbeitsmappe einfügen möchten, damit alle Seiten in fortlaufender Reihenfolge nummeriert werden, gehen Sie wie folgt vor:

1. Wählen Sie alle Blattregisterkarten aus und gehen Sie zu Seitenlayout Registerkarte, und klicken Sie auf Schaltfläche zum Starten des Dialogfelds Symbol in der Seiteneinrichtung Gruppe, siehe Screenshot:

doc Seitenzahlen einfügen 5

2. In dem Seiteneinrichtung Dialogfeld klicken Sie bitte Kopfzeile Fußzeile Und klicken Sie dann auf Benutzerdefinierte Kopfzeile or Benutzerdefinierte Fußzeile Informationen zum Festlegen der gewünschten Kopf- oder Fußzeile finden Sie in der Abbildung:

doc Seitenzahlen einfügen 6

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

doc Seitenzahlen einfügen 7

Hinweis: Geben Sie dies ein & [Seite] von & [Seiten] in das Feld für Kopf- oder Fußzeilen, wenn Sie die Seitenzahlen mögen, die als 1 von 45, 2 von 45 angezeigt werden…

4. Dann klick OK > OK Um die Dialogfelder zu schließen, können Sie beim Drucken dieser Arbeitsmappe in der Druckvorschau sehen, dass alle Seitenzahlen in aufeinanderfolgender Reihenfolge in die Kopf- oder Fußzeile eingefügt werden.


Pfeil blau rechte Blase Fügen Sie die Seitenzahl mit dem VBA-Code in die Zelle ein

Es ist einfach für Sie, die Seitenzahlen in Kopf- oder Fußzeilen einzufügen. Wenn Sie jedoch die Seitenzahlen in eine Arbeitsblattzelle einfügen müssen, gibt es keine direkte Möglichkeit, dies zu tun. Der folgende VBA-Code kann Ihnen bei der Lösung dieses Problems helfen.

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

2. Halten Sie die Taste gedrückt ALT + F11 Tasten, und es öffnet die Microsoft Visual Basic für Applikationen Fenster.

3. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modul Fenster.

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. Dann drücken F5 Taste, um diesen Code auszuführen, und die Seitenzahl dieser Zelle wird in der ausgewählten Zelle angezeigt, siehe Screenshot:

doc Seitenzahlen einfügen 8


Pfeil blau rechte Blase Entfernen Sie alle Seitenzahlen gleichzeitig in Excel

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

1. Wählen Sie alle Blattregisterkarten aus und gehen Sie zu Seitenlayout Klicken Sie auf die Multifunktionsleiste, und klicken Sie dann auf Schaltfläche zum Starten des Dialogfelds Symbol in der Seiteneinrichtung Gruppe, siehe Screenshot:

doc Seitenzahlen einfügen 9

2. In dem Seiteneinrichtung Dialogfeld, klicken Sie auf Kopfzeile Fußzeile Registerkarte, und wählen Sie dann (Keine) von dem Kopfzeile or Fußzeile Dropdown-Liste, siehe Screenshot:

doc Seitenzahlen einfügen 10

3. Dann klick OK Schaltfläche, werden alle Seitenzahlen auf einmal aus der Arbeitsmappe entfernt.

Beste Office-Produktivitätstools

Beliebte Funktionen: Suchen, markieren oder identifizieren Sie Duplikate   |  Leere Zeilen löschen   |  Kombinieren Sie Spalten oder Zellen, ohne Daten zu verlieren   |   Runde ohne Formel ...
Super-Lookup: VLookup mit mehreren Kriterien    VLookup mit mehreren Werten  |   VLookup über mehrere Blätter hinweg   |   Unscharfe Suche ....
Erweiterte Dropdown-Liste: Erstellen Sie schnell eine Dropdown-Liste   |  Abhängige Dropdown-Liste   |  Mehrfachauswahl Dropdown-Liste ....
Spaltenmanager: Fügen Sie eine bestimmte Anzahl von Spalten hinzu  |  Spalten verschieben  |  Schalten Sie den Sichtbarkeitsstatus ausgeblendeter Spalten um  |  Vergleichen Sie Bereiche und Spalten ...
Ausgewählte Funktionen: Rasterfokus   |  Designansicht   |   Große Formelleiste    Arbeitsmappen- und Blattmanager   |  Ressourcen (Autotext)   |  Datumsauswahl   |  Arbeitsblätter kombinieren   |  Zellen verschlüsseln/entschlüsseln    Senden Sie E-Mails nach Liste   |  Superfilter   |   Spezialfilter (Filter fett/kursiv/durchgestrichen...) ...
Top 15 Toolsets12 Text Tools (Text hinzufügen, Zeichen entfernen, ...)   |   50+ Chart Typen (Gantt-Diagramm, ...)   |   40+ Praktisch Formeln (Berechnen Sie das Alter basierend auf dem Geburtstag, ...)   |   19 Einfügen Tools (QR-Code einfügen, Bild aus Pfad einfügen, ...)   |   12 Umwandlung (Conversion) Tools (Zahlen zu Wörtern, Currency Conversion, ...)   |   7 Zusammenführen & Teilen Tools (Erweiterte Zeilen kombinieren, Zellen teilen, ...)   |   ... und mehr

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, um die Produktivität zu steigern und Zeit zu sparen.  Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...

kte tab 201905


Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich

  • Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
  • Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!

 

Comments (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hay forma de convertir esta sub en una función?
This comment was minimized by the moderator on the site
Hola,el codigo si me funciono, sin embargo al momento de imprimir, siempre me sale 1 de 5 y es que mi encabezado lo tengo como área de impresión en todas mis paginas, ¿hay alguna forma de lograr que al momento de imprimir, se pueda cambiar la pagina, en la misma pestaña?
This comment was minimized by the moderator on the site
May I know how I should modify above VBA that allows me to execute this to range of cells on a workbook and with 1 short cut key to apply all selected cells?
This comment was minimized by the moderator on the site
May I know if I have range of cells that I want to put in page numbers, what should I change? The current VBA only allows me to change one by one.
This comment was minimized by the moderator on the site
terima kasih, kawan
This comment was minimized by the moderator on the site
Hola, hay un error en la formula porque cuando ejecuto (F5) el primer valor numérico de "Pagina XX de XX" no cambia. Solo hace el conteo de páginas el segundo valor. Podrian revisar... Gracias
This comment was minimized by the moderator on the site
I tried the VBA macro, but I'm getting a subscript out of range error... Did I do something wrong?
This comment was minimized by the moderator on the site
Hello I used the Insert page number into cell with VBA code above and it works a charm. My sheet could be either 2 pages long (2 down and 1 across), 4 pages long (2 down and 2 across) or 6 pages long (2 down and 3 across). I have inserted the code in each cell of the 6 that require page number to be printed (by selecting the cells each in turn and running the VBA), cell addresses are H1, H35, T1, T35, AF1, AF35. Now I would like to add a button to refresh these page numbers without affecting whichever cell may be active when the relevant user may choose to run it, currently I have to select each cell in turn again and run the VBA :( Assistance would be hugely appreciated! Antoinette
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations