Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Kopf- und Fußzeile

Kopf- und Fußzeile
12.09.2013 07:07:58
haw
Hallo Excelfreunde,
nun werkel ich schon seit 20 Jahren mit Excel und auch VBA. Ich habe folgenden Code, um die Kopf- und Fußzeile zu definieren:
Application.PrintCommunication = False
ws.PageSetup.PrintTitleRows = "$1:$1"
With ws.PageSetup
.CenterHeader = "&D"
.RightHeader = "&T"
.CenterFooter = "Seite &P von &N"
End With
Application.PrintCommunication = True
Das Ergebnis ist aber nicht das, das ich erwarte:
Kopfzeile mittig : &R statt dem Datum
Kopfzeile rechts: nichts statt der Uhrzeit
Fußzeile mittig: Seite Pfad von Dateiname statt Seite 1 von 4
Ich habe das Ding schon mehrmals aufgezeichnet und habe immer dasselbe falsche Ergebnis.
Wo liegt der Fehler?
Danke
Heinz

Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kopf- und Fußzeile
12.09.2013 08:30:38
fcs
Hallo Heinz,
ich hab dein Makro jetzt unter Windows Vista und Excel 2010 -alles Deutsch- getestet.
Da funktioniert es ohne Probleme.
Ich weiss, dass frühere Excelversionen zum Teil für die Steuerzeichen zur Formatierung und für Dateinamen, Seitennummern nicht die englischen Abkürzungen sondern Abkürzungen in der lokalen Sprache verwendeten. Kann mich aber nicht genau erinnern, bei welcher Version die Umstellung erfolgte.
Wenn du dein Makro unter einer älteren Excelversion verwendest, dann könnte dein Makro unerwünschte Ergebnisse liefern.
Ich meine mich zu erinnern, damals war
&S = Seite
&A = Anzahl Seiten
&U = Uhrzeit
Gruß
Franz

Anzeige
AW: Kopf- und Fußzeile
12.09.2013 09:00:55
Luschi
Hallo Heinz,
habe es mal mit WindowsXP & Excel 2003 (beide dt. Version) getestet und das Datum steht mittig und die Uhrzeit rechts in der Kopfzeile und in der Fußzeile mittig Seite 1 von 3.
Bei meinem dt. Windows 7 & Excel 2010 zickt das Makro und zeigt in der Kopfzeile mittig '&R', rechts garnichts und in der Fußzeile 'Seite ' und den Dateinamen an.
Gruß von Luschi
aus klein.Paris

Anzeige
AW: Kopf- und Fußzeile
12.09.2013 11:00:48
haw
Hallo Luschi,
genau so ist es bei mir auch.
Der Vorschlag von Franz funktioniert auch nicht, da ich ja xl2010 habe.
Kann man irgendwo diese Kürzel finden?
Vielleicht hat sich was geändert, obwohl man davon ausgehen könnte, dass die Aufzeichnung den richtigen Code liefern sollte.
Danke
Heinz

Anzeige
AW: Kopf- und Fußzeile
12.09.2013 11:02:21
haw
Hallo Franz,
danke für deine Meldung.
Leider funktioniert dein Vorschlag auch nicht, da ich ja xl2010 habe.
Wieso der von der Aufzeichnung generierte Code nicht funktioniert, ist mir schleierhaft.
Danke
Heinz

AW: Kopf- und Fußzeile
12.09.2013 11:18:13
fcs
Hallo Heinz,
der Übeltäter sind möglicherweise die Zeilen
Application.PrintCommunication = False
und
Application.PrintCommunication = True
Lösche diese beiden Zeilen. Angeblich sollen sie Ausführung des Codes beschleunigen.
Aber es harmoniert scheinbar nicht mit allen Windos-Betriebssystemen.
Gruß
Franz

Anzeige
AW: Kopf- und Fußzeile
12.09.2013 14:18:36
haw
Hallo Franz,
ich habe Folgendes gefunden:
Sub KopfUndFußzeile()
With ActiveSheet.PageSetup
.CenterHeader = "&D"
.RightHeader = "&T"
.CenterFooter = "&ISeite &P von &N"
End With
End Sub
das funktioniert. Also ohne die von dir genannten Zeilen und &I vor Seite.
Ist zwar eigenartig, aber was solls.
Danke noch einmal
Heinz

Anzeige
AW: Kopf- und Fußzeile
12.09.2013 16:40:48
fcs
Hallo Heinz,
das "&I" bewirkt bei mir, das der nachfolgende Text kursiv dargestellt wird.
ansonsten findest du in der VBA-Hilfe zu Excel 2010 unter dem Suchbegriff "VBA-Code Kopf- und Fußzeilen" einen Link zur kompletten Auuflistung der Formatierungs und Steuerzeichen.
Gruß
Franz

Anzeige
AW: Kopf- und Fußzeile
13.09.2013 10:16:13
haw
Hallo Franz,
super, danke!
Dass ich die Codes in der Hilfe finde, hätte mir auch einfallen können.
Ich wünsche dir ein schönes Wochenende
Heinz

;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Kopf- und Fußzeilen in Excel richtig einfügen und anpassen


Schritt-für-Schritt-Anleitung

  1. Öffne die Excel-Datei, in der Du die Kopf- und Fußzeilen einfügen möchtest.
  2. Gehe zu "Seitenlayout" in der Menüleiste.
  3. Klicke auf "Kopf- und Fußzeile". Du wirst zu einem neuen Layout weitergeleitet.
  4. Wähle die Position der Kopf- oder Fußzeile (z.B. mittig, links oder rechts).
  5. Um den Dateinamen oder Pfad in die Fußzeile einzufügen, klicke auf "Fußzeile" und dann auf "Dateiname" bzw. "Pfad" in der Symbolleiste.
  6. Um eine benutzerdefinierte Fußzeile zu erstellen, kannst Du direkt Text eingeben oder VBA verwenden. Beispiel für VBA:

    Sub KopfUndFußzeile()
       With ActiveSheet.PageSetup
           .CenterHeader = "&D" ' Datum
           .RightHeader = "&T"  ' Uhrzeit
           .CenterFooter = "Seite &P von &N" ' Seitenzahlen
       End With
    End Sub

Häufige Fehler und Lösungen

  • Kopfzeile zeigt "&R" an: Dies passiert oft, wenn die Kürzel nicht korrekt sind. Stelle sicher, dass Du die richtigen Steuerzeichen verwendest. Möglicherweise sind diese in Deiner Excel-Version anders.
  • Fußzeile zeigt falsche Informationen: Prüfe, ob Du die Fußzeile korrekt formatiert hast. Manchmal kann es helfen, die Zeilen Application.PrintCommunication = False und Application.PrintCommunication = True zu entfernen, wie von Benutzern im Forum vorgeschlagen.
  • Kein Datum oder keine Uhrzeit: Überprüfe, ob Du die richtigen Steuerzeichen (z.B. &D für das Datum und &T für die Uhrzeit) verwendest.

Alternative Methoden

  1. Direktes Einfügen über die Menüleiste: Du kannst auch direkt über "Einfügen" -> "Kopf- und Fußzeile" gehen, um die gewünschten Informationen hinzuzufügen.
  2. VBA-Skripte: Wenn Du regelmäßig Änderungen vornimmst, könntest Du ein Makro erstellen, das die Kopf- und Fußzeilen automatisch setzt. Ein Beispiel siehst Du im vorherigen Abschnitt.
  3. Verwenden von Vorlagen: Erstelle eine Excel-Vorlage mit bereits definierten Kopf- und Fußzeilen, die Du bei Bedarf verwenden kannst.

Praktische Beispiele

  • Fußzeile mit Dateiname und Pfad:

    Sub FusszeileMitPfad()
      With ActiveSheet.PageSetup
          .CenterFooter = "&F" ' Dateiname einfügen
          .RightFooter = "&Z"  ' Pfad einfügen
      End With
    End Sub
  • Kopfzeile für Berichte:

    Sub KopfzeileBericht()
      With ActiveSheet.PageSetup
          .CenterHeader = "Monatsbericht" ' Benutzerdefinierter Text
          .RightHeader = "Erstellt am: &D"
      End With
    End Sub

Tipps für Profis

  • Verwendung von VBA für wiederkehrende Aufgaben: Automatisiere das Einfügen von Kopf- und Fußzeilen mit VBA, um Zeit zu sparen.
  • Kürzel lernen: Mache Dich mit den verschiedenen Steuerzeichen vertraut, um schnell Anpassungen vornehmen zu können.
  • Testen in verschiedenen Excel-Versionen: Wenn Du Makros oder VBA-Code schreibst, teste sie in verschiedenen Versionen von Excel, um sicherzustellen, dass sie überall funktionieren.

FAQ: Häufige Fragen

1. Wie füge ich eine Fußzeile in Excel ein?
Gehe zu "Seitenlayout", klicke auf "Kopf- und Fußzeile" und wähle die gewünschten Optionen aus.

2. Was sind die wichtigsten Steuerzeichen für Kopf- und Fußzeilen in Excel?
Die häufigsten sind &D für das Datum, &T für die Uhrzeit und &P für die aktuelle Seitenzahl.

3. Kann ich die Fußzeile automatisch aktualisieren lassen?
Ja, durch die Verwendung von VBA kannst Du sicherstellen, dass die Fußzeile immer die aktuellen Informationen enthält, wie z.B. Datum und Seitenzahl.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige