Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Kopf- und Fußzeile auf alle Tabellenblätter überne

Forumthread: Kopf- und Fußzeile auf alle Tabellenblätter überne

Kopf- und Fußzeile auf alle Tabellenblätter überne
23.01.2009 10:05:00
arnd
Guten Morgen,
wie kann ich die auf dem ersten Tabellenblatt erstellte Kopf- und Fußzeile auf alle anderen Tabellenblätter übertragen?
herzlichen Dank im Vorraus
Arend
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kopf- und Fußzeile auf alle Tabellenblätter überne
23.01.2009 10:36:00
Ramses
Hallo
Das geht nur mit VBA
Gruss Rainer
AW: Kopf- und Fußzeile auf alle Tabellenblätter überne
23.01.2009 10:46:00
arnd
und wie?
AW: Kopf- und Fußzeile auf alle Tabellenblätter überne
23.01.2009 11:03:00
Ramses
Hallo
Schon mal was vom makro Rekorder gehört ? ;-)
Option Explicit

Sub Set_Headers()
    Dim wks As Worksheet
    For Each wks In ThisWorkbook.Worksheets
        With wks.PageSetup
            .PrintArea = ""
            .LeftHeader = "Links Oben"
            .CenterHeader = "Mitte Oben"
            .RightHeader = "Rechts Oben"
            .LeftFooter = "Unten Links Seite: &P"
            .CenterFooter = "Unten Mitte von Seiten: &N"
            .RightFooter = "Unten Rechts Gedruckt am: &D"
        End With
    Next wks
End Sub

Gruss Rainer
Anzeige
AW: Das geht nur mit VBA
23.01.2009 12:44:00
Rudi
Hallo Rainer,
das stimmt so nicht.
Tab1 einrichten.
Tab1 aktivieren, Shift drücken, letzte Tab aktivieren, Datei-Seite einrichten-OK
Alle gewählten Tab haben die gleiche Seiteneinrichtung wie die erste.
Gruß
Rudi
Schande über mich. Du hast natürlich recht. o.w.T.
23.01.2009 13:07:00
Ramses
...
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Infobox / Tutorial

Kopf- und Fußzeile auf alle Tabellenblätter übertragen


Schritt-für-Schritt-Anleitung

Um die Kopf- und Fußzeile auf alle Blätter zu übertragen, kannst du folgende Schritte befolgen:

  1. Tabellenblatt einrichten: Richte die Kopf- und Fußzeile auf dem ersten Tabellenblatt (z. B. Tab1) nach deinen Wünschen ein. Gehe zu Seitenlayout > Kopf- und Fußzeile.

  2. Alle Blätter auswählen: Halte die Shift-Taste gedrückt und klicke auf das letzte Tabellenblatt, um alle Blätter auszuwählen.

  3. Seitenlayout anpassen: Klicke mit der rechten Maustaste auf eines der ausgewählten Tabellenblätter und wähle Seite einrichten.

  4. Bestätigen: Klicke auf OK. Damit wird die Kopf- und Fußzeile für alle ausgewählten Tabellenblätter übernommen.


Häufige Fehler und Lösungen

  • Fehler: Die Kopf- und Fußzeile sind nicht identisch auf allen Blättern.

    • Lösung: Stelle sicher, dass du alle Blätter richtig ausgewählt hast, bevor du die Einstellungen vornimmst.
  • Fehler: Kopf- und Fußzeile wird nicht angezeigt.

    • Lösung: Überprüfe die Druckvorschau unter Datei > Drucken, um sicherzustellen, dass die Kopf- und Fußzeile aktiviert ist.

Alternative Methoden

Wenn du die Kopf- und Fußzeile für alle Tabellenblätter übernehmen möchtest, kannst du auch VBA verwenden:

  1. VBA-Editor öffnen: Drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Neues Modul einfügen: Rechtsklicke im Projektfenster und wähle Einfügen > Modul.

  3. Code einfügen:

    Sub Set_Headers()
       Dim wks As Worksheet
       For Each wks In ThisWorkbook.Worksheets
           With wks.PageSetup
               .LeftHeader = "Links Oben"
               .CenterHeader = "Mitte Oben"
               .RightHeader = "Rechts Oben"
               .LeftFooter = "Unten Links Seite: &P"
               .CenterFooter = "Unten Mitte von Seiten: &N"
               .RightFooter = "Unten Rechts Gedruckt am: &D"
           End With
       Next wks
    End Sub
  4. Makro ausführen: Schließe den VBA-Editor und führe das Makro aus.


Praktische Beispiele

  • Beispiel für die Fußzeile: Wenn du eine Fußzeile in mehreren Tabellenblättern erstellen möchtest, kannst du den obigen VBA-Code anpassen, um spezifische Inhalte hinzuzufügen, wie z. B. Seitenzahlen oder Datum.

  • Beispiel für mehrere Spalten: Wenn du eine Fußzeile mit 4 Spalten benötigst, kannst du die folgenden Zeilen im VBA-Code hinzufügen:

    .CenterFooter = "Spalte 1: &A" & vbTab & "Spalte 2: &B" & vbTab & "Spalte 3: &C" & vbTab & "Spalte 4: &D"

Tipps für Profis

  • Nutze den Makro-Rekorder, um schnell Makros für häufige Aufgaben aufzuzeichnen. Dies kann dir viel Zeit sparen, gerade wenn es um die Kopfzeile auf allen Blättern geht.

  • Experimentiere mit Datenfeldern in der Fußzeile (z. B. &P für die Seitenzahl oder &D für das Datum), um dynamische Inhalte einzufügen.

  • Wenn du mit Excel 2016 oder Excel 365 arbeitest, beachte die spezifischen Funktionen, die dir zur Verfügung stehen, um die Kopf- und Fußzeile auf alle Blätter zu übertragen.


FAQ: Häufige Fragen

1. Wie kann ich die Kopfzeile für alle Blätter in Excel 2016 übernehmen?
Du kannst die Schritte in der Schritt-für-Schritt-Anleitung befolgen oder den VBA-Code verwenden, um die Kopfzeile in allen Arbeitsblättern zu setzen.

2. Ist es möglich, die Fußzeile auf allen Tabellenblättern gleich zu machen?
Ja, du kannst die gleichen Schritte befolgen oder den VBA-Code anpassen, um sicherzustellen, dass die Fußzeile identisch auf allen Blättern ist.

Beliebteste Forumthreads (12 Monate)

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