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

Kopf und Fusszeile 1. Seite

Forumthread: Kopf und Fusszeile 1. Seite

Kopf und Fusszeile 1. Seite
11.01.2018 09:19:34
Manuel
Hallo!
Ich bringe es leider nicht auf die Reihe die Kopfzeile/Fusszeile zu programmieren. Ohne die rot gekennzeichneten Zeilen und somit ohne "1.Seite anders" funktionierts.
Sub Tagesbericht_Format4() 'kopf und fusszeile
Dim TB1, TB2
Set TB1 = Sheets("Übersicht").PageSetup
Set TB2 = ThisWorkbook.Sheets(5).PageSetup
With TB2
.differentfirstpageheaderfooter = True
.FirstPage.LeftHeader = _
"&""Arial,Fett""&4" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "&8 Veronica" & Chr(10) &  _
_
"Strasse 10/13" & Chr(10) & "6020 Innsbruck"
.FirstPage.CenterHeader = "&""Arial,Fett""&20TAGESBERICHT" & Chr(10) & "&11vom"
.FirstPage.LeftFooter = TB1.LeftFooter
.FirstPage.CenterFooter = TB1.CenterFooter
.FirstPage.RightFooter = TB1.RightFooter
.LeftFooter = TB1.LeftFooter
.CenterFooter = TB1.CenterFooter
.RightFooter = TB1.RightFooter
End With
With ActiveSheet.PageSetup
.FirstPage.RightHeaderPicture.Filename = _
"H:\Manuel\Bilder\Logo.jpg"
.FirstPage.RightHeader = "&G"
With ActiveSheet.PageSetup.FirstPage.RightHeaderPicture
.Height = 64.8
.Width = 113.4
End With
With ActiveSheet.PageSetup
.HeaderPicture.Filename = _
"H:\Manuel\Bilder\Logo.jpg"
.RightHeader = "&G"
With ActiveSheet.PageSetup.RightHeaderPicture
.Height = 64.8
.Width = 113.4
End With
With ActiveSheet.PageSetup
.ScaleWithDocHeaderFooter = False
End With
End With
End Sub

Hat jemand eine Idee?
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kopf und Fusszeile 1. Seite
11.01.2018 10:45:29
Manuel
Bitte kann mir jemand weiterhelfen!
Vielen Dank!
AW: Kopf und Fusszeile 1. Seite
13.01.2018 16:15:46
Dieter
Hallo Manuel,
mir ist zwar nicht ganz klar, welche Blätter du mit Kopf- und Fußzeilen versehen willst, aber wenn ich dein Programm mal als gegeben ansehe, dann funktioniert die folgende Version:
Sub Tagesbericht_Format4() 'kopf und fusszeile
Dim PS1 As PageSetup
Dim PS2 As PageSetup
Dim pfad As String
pfad = ThisWorkbook.Path & "\"
Set PS1 = ThisWorkbook.Sheets("Übersicht").PageSetup
Set PS2 = ThisWorkbook.Sheets(5).PageSetup
With PS2
.DifferentFirstPageHeaderFooter = True
.FirstPage.LeftHeader.Text = _
"&""Arial,Fett""&4" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "&8 Veronica" & Chr( _
10) & _
"Strasse 10/13" & Chr(10) & "6020 Innsbruck"
.FirstPage.CenterHeader.Text = "&""Arial,Fett""&20TAGESBERICHT" & Chr(10) & "&11vom " &  _
Format$(Date, "dd.mm.yyyy")
.FirstPage.LeftFooter.Text = PS1.LeftFooter
.FirstPage.CenterFooter.Text = PS1.CenterFooter
.FirstPage.RightFooter.Text = PS1.RightFooter
.LeftFooter = PS1.LeftFooter
.CenterFooter = PS1.CenterFooter
.RightFooter = PS1.RightFooter
End With
With ActiveSheet.PageSetup
.FirstPage.RightHeader.Picture.Filename = pfad & "Affen01.jpg"
.FirstPage.RightHeader.Text = "&G"
With ActiveSheet.PageSetup.FirstPage.RightHeader.Picture
.Height = 64.8
.Width = 113.4
End With
End With
With ActiveSheet.PageSetup
.RightHeaderPicture.Filename = pfad & "Affen01.jpg"
.RightHeader = "&G"
With ActiveSheet.PageSetup.RightHeaderPicture
.Height = 64.8
.Width = 113.4
End With
End With
With ActiveSheet.PageSetup
.ScaleWithDocHeaderFooter = False
End With
End Sub
Es gibt hier die folgende Falle, in die du gelaufen bist:
Die Eigenschaft LeftHeader des PageSetup-Objektes ist ein String.
Die Eigenschaft FirstPage des PageSetup-Objektes verweist auf ein Page-Objekt und dessen LeftHeader-Eigenschaft ist kein String, sondern enthält die Adresse eines HeaderFooter-Objektes. Um diesem Objekt einen Text zuzuweisen, musst du die Eigenschaft Text verwenden.
Also (PS1 enthält die Adresse eines PageSetup-Objektes):
PS1.LeftHeader = "Dein Text"
aber
PS1.FirstPage.LeftHeader.Text = "Dein Text"
Anstelle deines Logos habe ich hier das Bild "Affen01.jpg" verwendet. Ich habe es auch noch einmal in die beigefügte Arbeitsmappe eingefügt.
https://www.herber.de/bbs/user/118931.xlsm
Mfg
Dieter
Anzeige
;

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ßzeilen in Excel: Erste Seite anders gestalten


Schritt-für-Schritt-Anleitung

Um die Kopf- und Fußzeilen in Excel für die erste Seite anders zu gestalten, kannst Du den folgenden VBA-Code verwenden. Dieser Code setzt die Eigenschaften für die Kopf- und Fußzeile der ersten Seite, sodass sie von den nachfolgenden Seiten abweichen.

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
  2. Füge ein neues Modul hinzu: Einfügen > Modul.
  3. Kopiere den folgenden Code und füge ihn in das Modul ein:
Sub Tagesbericht_Format4() 'kopf und fusszeile
    Dim PS1 As PageSetup
    Dim PS2 As PageSetup
    Dim pfad As String
    pfad = ThisWorkbook.Path & "\"
    Set PS1 = ThisWorkbook.Sheets("Übersicht").PageSetup
    Set PS2 = ThisWorkbook.Sheets(5).PageSetup
    With PS2
        .DifferentFirstPageHeaderFooter = True
        .FirstPage.LeftHeader.Text = "&""Arial,Fett""&4" & Chr(10) & "Veronica" & Chr(10) & "Strasse 10/13" & Chr(10) & "6020 Innsbruck"
        .FirstPage.CenterHeader.Text = "&""Arial,Fett""&20TAGESBERICHT" & Chr(10) & "&11vom " & Format$(Date, "dd.mm.yyyy")
        .FirstPage.LeftFooter.Text = PS1.LeftFooter
        .FirstPage.CenterFooter.Text = PS1.CenterFooter
        .FirstPage.RightFooter.Text = PS1.RightFooter
        .LeftFooter = PS1.LeftFooter
        .CenterFooter = PS1.CenterFooter
        .RightFooter = PS1.RightFooter
    End With
    With ActiveSheet.PageSetup
        .FirstPage.RightHeader.Picture.Filename = pfad & "Logo.jpg"
        .FirstPage.RightHeader.Text = "&G"
    End With
End Sub
  1. Schließe den VBA-Editor und führe das Makro aus: Entwicklertools > Makros > Tagesbericht_Format4.

Häufige Fehler und Lösungen

  • Fehler: Die Excel-Fußzeile wird nicht angezeigt.

    • Lösung: Stelle sicher, dass die Eigenschaft DifferentFirstPageHeaderFooter auf True gesetzt ist. Andernfalls wird die Fußzeile nicht korrekt angezeigt.
  • Fehler: Kopfzeile wird nicht korrekt formatiert.

    • Lösung: Überprüfe, ob Du die .Text-Eigenschaft anstelle der LeftHeader-Eigenschaft verwendest, wenn Du den Text setzt. Beispiel: PS1.FirstPage.LeftHeader.Text = "Dein Text".

Alternative Methoden

Wenn Du nicht mit VBA arbeiten möchtest, kannst Du auch die Excel-Oberfläche nutzen:

  1. Gehe zu Seitenlayout.
  2. Klicke auf Kopf- und Fußzeile.
  3. Wähle die Option Erste Seite anders.
  4. Füge Deine Inhalte in die Kopf- und Fußzeilen ein.

Diese Methode ist besonders nützlich, wenn Du keine Programmierkenntnisse hast und schnell eine einfache Kopfzeile für die erste Seite erstellen möchtest.


Praktische Beispiele

Ein typisches Beispiel wäre das Erstellen eines Berichts, bei dem die erste Seite das Firmenlogo, den Titel und das Datum enthält, während die nachfolgenden Seiten nur die Seitenzahlen und eventuell eine einfache Fußzeile anzeigen.

Hier ist ein Beispiel für eine Kopfzeile auf der ersten Seite:

  • Linke Kopfzeile: Firmenname
  • Zentrale Kopfzeile: Berichtstitel
  • Rechte Kopfzeile: Datum

Für die Fußzeile kannst Du die Seitenzahlen angeben. Dieser Aufbau sorgt für ein professionelles Erscheinungsbild.


Tipps für Profis

  • Nutze ActiveSheet.PageSetup für eine schnelle Anpassung der Kopf- und Fußzeilen.
  • Verwende Bilder in Kopf- und Fußzeilen durch die RightHeader.Picture-Eigenschaft, um das Design Deiner Berichte zu verbessern.
  • Achte darauf, dass die Dateipfade zu Bildern absolut sind, um sicherzustellen, dass sie korrekt angezeigt werden, insbesondere bei der Verwendung von Logos.

FAQ: Häufige Fragen

1. Wie setze ich eine Kopfzeile nur auf der ersten Seite? Um eine Kopfzeile nur auf der ersten Seite anzuzeigen, musst Du die DifferentFirstPageHeaderFooter-Eigenschaft auf True setzen und die entsprechenden Inhalte in FirstPage.LeftHeader, FirstPage.CenterHeader und FirstPage.RightHeader definieren.

2. Kann ich verschiedene Fußzeilen für die ersten Seiten in Excel erstellen? Ja, Du kannst auch verschiedene Fußzeilen für die ersten Seiten erstellen, indem Du die FirstPage.LeftFooter, FirstPage.CenterFooter und FirstPage.RightFooter entsprechend anpasst.

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