Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 10:48:58
Zufällige Uhrzeit
19.10.2025 10:46:18
Zufallszahlen nur wenn Datum ab kommenden Sonntag
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1208to1212
1208to1212
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Fußzeile auf der letzten Seite

Forumthread: Fußzeile auf der letzten Seite

Fußzeile auf der letzten Seite
MonsterMc
Hi Forum und Excel Profis
Und zwar möchte ich gerne In Excel eine Fußzeile haben die nur auf der letzten Seite erscheint
in Word geht es ja über ein Wenn Funktion (wenn seitenzahl = Gesmatseitenzahl dann ......)
aber in Excel kann ich ja solche Formel nicht eingeben jetzt such ich nach ein anderen Lösung
und wenn es geht bitte nicht einfach nur so Makro zeug hin schreiben damit kenn ich mich null aus.
Danke im Vorraus.
MMC
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Fußzeile auf der letzten Seite
31.03.2011 11:25:58
Hajo_Zi
das mußt Du so realisieren, das Du das Drucken über Makro machst 
Option Explicit
Sub Drucken()
Dim iPage As Integer
For iPage = 1 To ExecuteExcel4Macro("GET.DOCUMENT(50)")
With Worksheets("Tabelle1")
If iPage = ExecuteExcel4Macro("GET.DOCUMENT(50)") Then
' Kopf und Fusszeile auf der letzten Seite ändern.
'   Fußzeile Mitte
ActiveSheet.PageSetup.CenterFooter = ThisWorkbook.FullName & "\" _
& ActiveSheet.Name '(Komplette Dateiname einschl. Path + Register)
'    Kopfzeile Links
ActiveSheet.PageSetup.LeftHeader = ThisWorkbook.Path & "\" '(nur Path)
'   Left=Links; Center=Mitte; Right=Rechts
'    Header=Kopfzeile; Footer=Fußzeile
End If
.PrintOut from:=iPage, To:=iPage
End With
Next iPage
End Sub

Anzeige
AW: Fußzeile auf der letzten Seite
31.03.2011 12:02:26
Hajo_Zi
Der Code war nicht ganz korrekt. 

If iPage = ExecuteExcel4Macro("GET.DOCUMENT(50)") Then
' Kopf und Fusszeile auf der letzten Seite ändern.
'   Fußzeile Mitte
ActiveSheet.PageSetup.CenterFooter = ThisWorkbook.FullName & "\" _
& ActiveSheet.Name '(Komplette Dateiname einschl. Path + Register)
'    Kopfzeile Links
ActiveSheet.PageSetup.LeftHeader = ThisWorkbook.Path & "\" '(nur Path)
'   Left=Links; Center=Mitte; Right=Rechts
'    Header=Kopfzeile; Footer=Fußzeile
Else
' Kopf- und Fußzeile für erste bis vorletzte Seite
End If
Gruß Hajo
Anzeige
AW: Fußzeile auf der letzten Seite
31.03.2011 12:15:52
MonsterMc
so und nun wie drucke ich über makro ?
wie gesagt hab keine ahnung von Makro hab noch nie mit gearbeite habe es bis jetzt noch nicht gebraucht.
AW: Fußzeile auf der letzten Seite
31.03.2011 12:24:53
Hajo_Zi
Register Ansicht, Befehlsgruppe Makros, Schalter Makros, Makros anzeigen, makro auswählen und ausfüren.
Gruß Hajo
Anzeige
AW: Fußzeile auf der letzten Seite
31.03.2011 13:33:09
MonsterMc
okay danke..
hat bis jetzt noch nicht funktioniert :)
also nochmal für doofe :D
-ich hab meine 2Seiten Tabelle
-dann geh ich auf Ansicht/klick auf Makros
-im neuen Fenster geb ich dem Makro nen Namen z.B. Fußzeile dan auf erstellen
- dan geb ich dort das ein
Sub fußzeile()
If IPage = ExecuteExcel4Macro("GET.DOCUMENT(50)") Then
' Kopf und Fusszeile auf der letzten Seite ändern.
'   Fußzeile Mitte
ActiveSheet.PageSetup.CenterFooter = ThisWorkbook.FullName & "\" _
& ActiveSheet.Name '(Komplette Dateiname einschl. Path + Register)
'    Kopfzeile Links
ActiveSheet.PageSetup.LeftHeader = ThisWorkbook.Path & "\" '(nur Path)
'   Left=Links; Center=Mitte; Right=Rechts
'    Header=Kopfzeile; Footer=Fußzeile
Else
' Kopf- und Fußzeile für erste bis vorletzte Seite
End If
End Sub
- dann schließ ich das Fenster
- im Normalen Excel fenster wähl ich dan wieder Makros und Ausführen
- danach dan ganz normal Drucken
Stimmt das so oder mach ich was falsch ?
Anzeige
AW: Fußzeile auf der letzten Seite
31.03.2011 13:43:32
Hajo_Zi
Nein,
das Makro Druck,
ich dachte nur die letzte Seite solle eine bestimm Ansicht haben. Du hast hier
' Kopf- und Fußzeile für erste bis vorletzte Seite
nicht eingetragen, also werden beim nächsten Druck auch die ersten Seite mit der Ansicht von der letzten gedruckt.
Gruß Hajo
Anzeige
AW: Fußzeile auf der letzten Seite
31.03.2011 13:59:26
MonsterMc
Ja das stimmt schon so
ich will das nur die Letzte Seite eine Fußzeile hat.
Das Makro von oben ist übringens deins :)
ich wollte nur grad wissen ob die Vorgehensweis wie ich das Makro einfüge so richtig ist.
weil ich Makros noch nie benutz habe.
AW: Fußzeile auf der letzten Seite
31.03.2011 14:08:11
Hajo_Zi
es git mehrere Möglichkeiten, ich hätte den VBA Editor geöffnet (alt+F11) ein Modul engefügt und den kompletten Code ins rchte Fenster kopiert.
Gruß Hajo
Anzeige
;
Anzeige
Anzeige

Infobox / Tutorial

Fußzeile nur auf der letzten Seite in Excel einfügen

Schritt-für-Schritt-Anleitung

Um eine Fußzeile nur auf der letzten Seite in Excel einzufügen, benötigst Du ein einfaches Makro. Hier ist die Schritt-für-Schritt-Anleitung:

  1. Öffne Excel und lade die Tabelle, in der Du die Fußzeile einfügen möchtest.

  2. Gehe zu Ansicht → Makros → Makros anzeigen.

  3. Gib dem Makro einen Namen, z. B. Fußzeile und klicke auf Erstellen.

  4. Das VBA-Fenster öffnet sich. Füge den folgenden Code ein:

    Sub Fußzeile()
    Dim iPage As Integer
    Dim totalPages As Integer

    totalPages = ExecuteExcel4Macro("GET.DOCUMENT(50)")

    For iPage = 1 To totalPages
        With Worksheets("Tabelle1")
            If iPage = totalPages Then
                ' Fußzeile nur auf der letzten Seite
                ActiveSheet.PageSetup.CenterFooter = "Deine Fußzeile hier"
            Else
                ' Fußzeile für andere Seiten leer lassen
                ActiveSheet.PageSetup.CenterFooter = ""
            End If
            .PrintOut from:=iPage, To:=iPage
        End With
    Next iPage
End Sub

  5. Schließe das VBA-Fenster und gehe zurück zu Excel.

  6. Wähle erneut Makros und führe das Makro Fußzeile aus.

  7. Danach kannst Du die Datei wie gewohnt drucken.

Häufige Fehler und Lösungen

  • Fehler: Die Fußzeile erscheint auf allen Seiten.

    • Lösung: Stelle sicher, dass der Code für die Fußzeile in der Else-Bedingung leer bleibt, wie im obigen Beispiel gezeigt.

  • Fehler: Das Makro wird nicht ausgeführt.

    • Lösung: Überprüfe, ob Du das Makro korrekt erstellt und gespeichert hast. Stelle sicher, dass die Makros in Excel aktiviert sind.

Alternative Methoden

Wenn Du keine Makros verwenden möchtest, gibt es leider keine direkte Möglichkeit, eine Fußzeile nur auf der letzten Seite in Excel zu erstellen. Eine mögliche Alternative könnte sein, das Dokument in Word zu exportieren und dort die Fußnote nur auf einer Seite zu gestalten. In Word kannst Du mit einem einfachen Befehl die Fußzeile nur auf der letzten Seite einfügen.

Praktische Beispiele

Hier ist ein einfaches Beispiel, wie Du die Fußzeile anpassen kannst:

ActiveSheet.PageSetup.CenterFooter = "Seite " & iPage & " von " & totalPages

Mit diesem Befehl wird auf der letzten Seite die Fußzeile mit der Seitenzahl angezeigt, während alle anderen Seiten leer bleiben.

Tipps für Profis

  • Makros optimieren: Du kannst den Code so anpassen, dass er flexibler für verschiedene Tabellenblätter oder Dateinamen ist.
  • Fehlerprotokollierung: Füge einfache Fehlermeldungen in den Code ein, um Probleme schneller zu identifizieren.
  • Backup erstellen: Vor dem Arbeiten mit Makros ist es ratsam, eine Kopie Deiner Datei zu erstellen, um ungewollte Änderungen zu vermeiden.

FAQ: Häufige Fragen

1. Frage
Kann ich die Fußzeile nur für eine Seite in Excel erstellen?
Antwort: Excel unterstützt keine Fußzeilen für einzelne Seiten ohne Makros. Du kannst jedoch mit einem Makro arbeiten, um spezifische Seiten anzupassen.

2. Frage
Wie drucke ich mein Dokument mit der Fußzeile?
Antwort: Nachdem Du das Makro ausgeführt hast, kannst Du einfach auf Datei → Drucken klicken, und die Fußzeile wird auf der letzten Seite angezeigt.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige