Sub kopfundFusszeile()
ActiveSheet.PageSetup.CenterHeader = [A1] 'Kopfzeile
ActiveSheet.PageSetup.CenterFooter = [B1] 'Fußzeile
End Sub
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Call KopfFussZeile
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Call KopfFussZeile
End Sub
Private Sub KopfFussZeile()
Dim Blatt As Worksheet
For Each Blatt In ThisWorkbook.Worksheets
Select Case Blatt.Name
Case "Tabelle1", "Tabelle2"
Blatt.PageSetup.CenterFooter = Blatt.Range("A5").Value & " " & Blatt.Range("A6").Text
Case "Tabelle3"
Blatt.PageSetup.CenterFooter = Blatt.Range("B10").Value
Case Else
'do nothing
End Select
Next
End Sub
Um in der Excel-Kopfzeile oder Fußzeile einen Verweis auf eine Zelle anzuzeigen, kannst Du die folgenden Schritte ausführen:
Kopfzeile einrichten:
Fußzeile einrichten:
Verwendung von VBA für dynamische Inhalte:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.CenterFooter = [B1].Value ' Fußzeile
ActiveSheet.PageSetup.CenterHeader = [A1].Value ' Kopfzeile
End SubDrucken oder Vorschau:
Problem: Die Kopfzeile zeigt keinen Zellinhalt an.
Problem: Verwirrung bei der Verwendung von VBA.
Problem: Inhalte werden überlappt.
Falls Du keine VBA-Makros verwenden möchtest, kannst Du auch die Kopfzeile mit einer festen Zeile in Deinem Arbeitsblatt verknüpfen:
Diese Methode ist einfach, hat jedoch Einschränkungen, da Du keine dynamischen Zellverweise wie mit VBA haben kannst.
Beispiel für Kopfzeile: Wenn Du in Zelle A1 den Titel Deiner Tabelle hast, kannst Du den Zellinhalt wie folgt in der Kopfzeile anzeigen:
ActiveSheet.PageSetup.CenterHeader = [A1].ValueBeispiel für Fußzeile: Um den aktuellen Seitenzähler in der Fußzeile anzuzeigen, kannst Du:
ActiveSheet.PageSetup.CenterFooter = "Seite " & ActiveSheet.Index1. Kann ich eine Formel in der Kopfzeile verwenden?
Ja, Du kannst eine Formel nutzen, indem Du den Zellbezug in VBA angibst.
2. Wie kann ich die Fußzeile ohne VBA anpassen?
Du kannst die Fußzeile manuell über die Seitenlayout-Optionen in Excel einrichten, indem Du einfach die gewünschten Textinformationen eingibst.
3. Funktioniert dies in allen Excel-Versionen?
Die beschriebenen Methoden funktionieren in den meisten aktuellen Excel-Versionen, jedoch können einige VBA-Funktionen je nach Version variieren.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen