Note: The other languages of the website are Google-translated. Back to English

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 Schauen Sie sich an > NormalWenn Sie dieses Arbeitsblatt drucken, werden die Seitenzahlen in die von Ihnen ausgewählte Kopf- oder Fußzeile eingefügt.

Hinweis: 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:bezeichnet, 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.


Die besten Tools für die Office-Produktivität

Kutools for Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%

  • Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
  • Super Formelriegel (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
  • Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen / Spalten... doppelte Zellen verhindern; Bereiche vergleichen...
  • Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
  • Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
  • Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
  • Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
  • Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
  • Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2021 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. 30-tägige kostenlose Testversion mit allen Funktionen. 60 Tage Geld-zurück-Garantie.
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!
officetab unten

 

Kommentare (8)
Noch keine Bewertungen. Bewerten Sie als Erster!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, ich habe oben die Seitenzahl in die Zelle mit VBA-Code einfügen verwendet und es funktioniert wunderbar. Mein Blatt könnte entweder 2 Seiten lang (2 nach unten und 1 quer), 4 Seiten lang (2 nach unten und 2 quer) oder 6 Seiten lang (2 nach unten und 3 quer) sein. Ich habe den Code in jede Zelle der 6 eingefügt, für die die Seitenzahl gedruckt werden muss (indem ich die Zellen nacheinander auswähle und den VBA ausführe), die Zelladressen sind H1, H35, T1, T35, AF1, AF35. Jetzt möchte ich eine Schaltfläche hinzufügen, um diese Seitenzahlen zu aktualisieren, ohne die aktive Zelle zu beeinflussen, wenn der entsprechende Benutzer sie ausführen kann. Derzeit muss ich jede Zelle der Reihe nach erneut auswählen und die VBA ausführen :( Unterstützung wäre enorm geschätzt! Antoinette
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich habe das VBA-Makro ausprobiert, aber ich erhalte einen Index-Out-of-Range-Fehler ... Habe ich etwas falsch gemacht?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
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 Revisor... Gracias
Dieser Kommentar wurde vom Moderator auf der Website minimiert
terima kasih, kawan
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Darf ich wissen, ob ich einen Zellbereich habe, den ich in Seitenzahlen einfügen möchte, was sollte ich ändern? Die aktuelle VBA erlaubt mir nur, eine nach der anderen zu ändern.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Darf ich wissen, wie ich oben VBA ändern soll, damit ich dies auf einen Zellbereich in einer Arbeitsmappe ausführen und mit 1 Tastenkombination alle ausgewählten Zellen anwenden kann?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
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 á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?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hay Forma de convertir esta sub en una función?
Es sind noch keine Kommentare vorhanden
Hinterlassen Sie Ihre Kommentare
Als Gast posten
×
Bewerte diese Nachricht:
0   Figuren
Vorgeschlagene Standorte

Folgen Sie uns

Copyright © 2009 - www.extendoffice.com. | Alle Rechte vorbehalten. Unterstützt von ExtendOffice. | Sitemap
Microsoft und das Office-Logo sind Marken oder eingetragene Marken der Microsoft Corporation in den USA und / oder anderen Ländern.
Geschützt durch Sectigo SSL