Automatische Kopfzeile für alle (zukünftigen) Tabellen

Erzürnter Excel User · 22. August 2017

Guten Tag Microsoft Community,

gibt es eine Möglichkeit in Excel 2007/2010 eine "default" Kopfzeile hinzuzufügen, die dann automatisch für alle (zukünftigen) Dateien bzw. die Tabellen in diesen Dateien verwendet wird.

Meine Vorstellung wäre, dass wenn ich eine neue Tabelle in einer Datei anlege, diese dann entweder automatisch eine vordefinierte Kopfzeile erhält oder dies übergeordnet (für die Datei) stattfindet. Im Endeffekt sollte jede (neue) Tabelle beim Drucken eine benutzerdefinierte Kopfzeile aufweisen.

Ich habe bereits versucht soetwas über eine simple Excel-Vorlage zu realisieren, was per se auch durch eine Vorlage für "Mappe" und "Tabelle" möglich ist. Das Problem ist allerdings, dass wenn alten Dateien die noch mit der alten Vorlage erstellt wurden eine neue Tabelle hinzugefügt wird, eine Fehlermeldung "Die Blätter können von Excel nicht in die Zielarbeitsmappe eingefügt werden, da sie eine geringere Anzahl von Zeilen und Spalten enthält als die Quellarbeitsmappe. ..." erzeugt wird. Außerdem "erschwert" es die Erzeugung einer neuen Datei etwas, da die Vorlage ausgewählt werden muss.

Sollte es keine Möglichkeit von Bordmitteln ausgehend geben, kann man eine Art "Skript" erstellen, das entweder beim Öffnen einer Datei alle Tabellen mit einer Kopfzeile versieht oder beim Erzeugen einer neuen Tabelle der speziellen Tabelle eine Kopfzeile hinzufügt?

Bei meiner Suche bin ich auf Addins gestoßen, wobei ich mich mit ihnen noch nicht auseinander gesetzt habe, weil ich nicht weiß ob dies zielführend wäre und meine Zeit momentan limitiert ist.

Mit freundlichen Grüßen

Erzürnter Excel User

Erzürnter Excel Use

Vielen Dank, dass hat mein Problem gelöst!

Ich beschreibe noch einmal kurz den Lösungsansatz den ich verfolgt habe:

In den "Excel-Optionen" die Registerkarte "Entwickler-Tools" aktivieren.
Unter "Ansicht -> Einblenden" die "PERSONAL" Arbeitsmappe einblenden lassen. Gibt es diese noch nicht, unter "Entwickler-Tools -> Makro aufzeichnen" eine Aufnahme in "persönliche Arbeitsmappe" starten und ggf. sofort wieder beenden.
Den VBA-Editor öffnen (Registerkarte Entwickler-Tools -> "Visual Basic")
Doppelklick auf "DieseArbeitsmappe" der Datei "PERSONAL.XLSB"
Ich habe den Code von Herrn Andreas Killer dahingehend verändert, dass alle Tabellen einer neu erstellten Arbeitsmappe bzw. neu erstellte Tabellen in allen Arbeitsmappen eine im Makro festgelegte Kopf- und Fußzeile erhalten.

Hier der Code:

Option Explicit

Dim WithEvents App As Application

' Iteriert über alle Tabellen und konfiguriert die Kopf- und Fußzeile

Private Sub App_NewWorkbook(ByVal Wb As Workbook)

Dim WS_Count As Integer

Dim I As Integer

WS_Count = Wb.Worksheets.Count

For I = 1 To WS_Count

With Wb.Worksheets(I).PageSetup

.LeftHeader = "&F - &A"

.RightHeader = "&D - &T"

.RightFooter = "Seite &P von &N"

End With

Next I

End Sub

' Konfiguriert die Kopf- und Fußzeile der neuen Tabelle

Private Sub App_WorkbookNewSheet(ByVal Wb As Workbook, ByVal Sh As Object)

With Sh.PageSetup

.LeftHeader = "&F - &A"

.RightHeader = "&D - &T"

.RightFooter = "Seite &P von &N"

End With

End Sub

Private Sub Workbook_Open()

Set App = Application

End Sub

Nun noch speichern und Excel beenden

Mit freundlichen Grüßen

Andreas Killer

Ich beschreibe noch einmal kurz den Lösungsansatz den ich verfolgt habe:

Sehr gut umgesetzt, freut mich das ich helfen konnte.

Andreas.

Andreas Killer

Ist es auch möglich ein Makro an das Erstellen einer Tabelle zu knüpfen? Ansonsten würden neu hinzugefügte Tabellen nicht automatisch eine Kopfzeile erhalten.

Ja, das geht, ist allerdings für Anfänger sehr "undurchsichtig" und schwierig zu verstehen das abläuft.

Ich rate davon ab. Es ist einfacher das Makro bei Bedarf einmal "von Hand" aufzurufen.

Aber egal, so zum Spaß: Zeichne Dir mal ein Makro in Deine "Persönliche Arbeitsmappe" auf, dann öffne den VBA Editor und kopiere den Code unten in das Codemodul "DieseArbeitsmappe" der Datei "PERSONAL.XLSB".

Speichern Excel zu, wieder öffnen und eine neue Tabelle erstellen.

Andreas.

Option Explicit

Dim WithEvents App As Application

Private Sub App_NewWorkbook(ByVal Wb As Workbook)

MsgBox "Neue Datei " & Wb.Name

End Sub

Private Sub App_WorkbookNewSheet(ByVal Wb As Workbook, ByVal Sh As Object)

MsgBox "Neue Tabelle " & Sh.Name & " in " & Wb.Name

End Sub

Private Sub Workbook_Open()

Set App = Application

End Sub

Erzürnter Excel Use

Vielen Dank für die schnelle Antwort!

Wenn ich den Artikel richtig verstanden habe, könnte ich also ein Makro erstellen und es beim Öffnen einer Arbeitsmappe automatisch ausführen lassen. Das würde meinen ersten Fall komplett abdecken und für alle Tabellen in einer alten Datei würde eine Kopfzeile
definiert werden.

Ist es auch möglich ein Makro an das Erstellen einer Tabelle zu knüpfen? Ansonsten würden neu hinzugefügte Tabellen nicht automatisch eine Kopfzeile erhalten.

Eine Möglichkeit die mir einfallen würde, wäre es ein Makro zu erstellen, dass eine Tabelle erzeugt und die Kopfzeile gleich konfiguriert. Bei diesem Ansatz sehe ich aber die Problematik, dass er sehr leicht zu übersehen bzw. unabsichtlich zu umgehen ist.
Darum wäre mir ein Automatismus am liebsten (, der an das Ereignis der Erstellung gekoppelt ist).

Mit freundlichen Grüßen

Andreas Killer

kann man eine Art "Skript" erstellen, das entweder beim Öffnen einer Datei alle Tabellen mit einer Kopfzeile versieht oder beim Erzeugen einer neuen Tabelle der speziellen Tabelle eine Kopfzeile hinzufügt?

Kann man, nennt sich Makro, kannst Du Dir selber in Deine Persönliche Makroarbeitsmappe aufzeichnen und dann bei Bedarf ausführen.

https://support.office.com/de-de/ar...eichnung-974ef220-f716-4e01-b015-3ea70e64937b

Andreas.

Hi,

willkommen im Windows Forum!

Automatische Kopfzeile für alle (zukünftigen) Tabellen - Similar Threads - Automatische Kopfzeile zukünftigen	Forum	Datum
Mails zu einem bestimmten Datum in der Zukunft automatisch löschen! Mails zu einem bestimmten Datum in der Zukunft automatisch löschen!: Hallo, gibt es bereits eine Möglichkeit eingehende Mails zum Zeitpunkt des Lesens mit einem bestimmten Datum in der Zukunft automatisch zu löschen? Es kommt oft vor , dass man Mails erhält, die...	Outlook.com	21. Januar 2021
Unterschiedliche Beschriftungen von Tabellen mit gleicher Kopfzeile Unterschiedliche Beschriftungen von Tabellen mit gleicher Kopfzeile: Hallo zusammen, ich möchte eine zweite Tabelle als eine Fortsetzung der ersten Tabelle mit gleicher Kopfzeile mit einer anderen Beschriftung (Tab. 2. etc.) versehen. Und auch so formatieren,...	Microsoft Office	10. April 2019
Zukunft von OneNote?! Zukunft von OneNote?!: Hallo, wie sieht denn die Zukunft von OneNote aus, nachdem OneNote als Desktopanwendung eingestellt und nicht mehr standardmäßig installiert wird, aus? Bisher kann man den Umweg über das...	Microsoft Office	12. Februar 2019
Tabelle mit schräger Kopfzeile in Word einfügen Tabelle mit schräger Kopfzeile in Word einfügen: Hallo, ich habe mit Excel eine Tabelle mit schräger Kopfzeile erstellt (Bild 1) und möchte diese nun genau so in ein Word-Dokument einfügen. Wenn ich dies über die klassischen Einfügeoptionen...	Microsoft Office	13. April 2018
Kopfzeile Kopfzeile: Hallo, ich möchte in der Kopfzeile sowohl die Kapitelüberschrift als auch die Seitenzahl schreiben. Die Kapitelüberschrift soll linksbündig und die Seitenzahl rechtsbündig sein. Leider schaffe...	Microsoft Office	6. Dezember 2017
Publisher - Kapitel automatisch in Kopfzeile einfügen Publisher - Kapitel automatisch in Kopfzeile einfügen: Hallo, wie im Titel beschrieben möchte ich folgendes tun: In der Kopfzeile soll automatisch das Kapitel eingetragen werden, anhand der in der Publikation eingegeben Überschriften. Wenn zum...	Microsoft Office	9. Juni 2017
Word 2010 Tabelle in Kopfzeile genau positionieren Word 2010 Tabelle in Kopfzeile genau positionieren: Hallo, für ein Word-Template muss ich eine 2-zeilige Tabelle genau in eine Kopfzeile positionieren. Vorgängerword konnte man über Tabelleneigenschaften und den Positionierungs-Button die Position...	Microsoft Office	3. März 2017

Automatische Kopfzeile für alle (zukünftigen) Tabellen