Vordefinierte Kopf- und Fußzeile zentral speichern

Computer: Software & Programmierung Office Software
1

Hallo,

ich versuche schon die ganze Zeit eine vordefinierte Kopf- und Fußzeile mit Excel 2003 für mehrere Dokumente zu verwenden, aber leider bekomme ich nicht das gewünschte Ergebnis.

Ich möchte folgendes erreichen. Die Kopf- und Fußzeile ist schon angelegt und funktioniert auch in einem Arbeitsblatt. Wenn ich jetzt aber eine neue Excel Seite öffne und die vordefinierte Kopf- und Fußzeile einfügen möchte, so kann ich diese nicht finden.

Wie kann ich denn die vordefinierten K u F zeilen benennen, bisher speichert Excel diese immer unter einer willkürlichen Bezeichnung, die auf dem Inhalt basiert.

Desweiteren würde ich gerne wissen, ob man die Kopf- und Fußzeile zentral speichern kann um Sie im Netzwerk zu verwenden und ob Änderungen, welche man im nachhinein an der Kopf- und Fußzeile vornimmt dann auch automatisch in allen Dokumenten, die die Kopf- und Fußzeile enthalten geändert werden, oder ob ich jedes einzelne Dokument ändern muss, was ja wenig sinnvoll wäre.

Falls dies mit der Excel Funktion Kopf- und Fußzeile nicht möglich sein sollte, dann würde ich mich über Vorschläge freuen, wie ich mein Anliegen umsetzen kann.

Kurze Zusammenfassung.

Ich suche eine Möglichkeit, einer zentral gespeicherten vordefinierten und im Netzwerk verwendbaren Kopf- und Fußzeile, die Änderungen, die im Nachhinein getätigt werden in allen Dokumenten anpasst in denen Sie verwendet wird.

So und nun erstmal genug mit der Schreiberei.

Ich freu mich auf eure Antworten.

2

Ich suche eine Möglichkeit, einer zentral gespeicherten
vordefinierten und im Netzwerk verwendbaren Kopf- und
Fußzeile, die Änderungen, die im Nachhinein getätigt werden in
allen Dokumenten anpasst in denen Sie verwendet wird.

Hi Alexander,

ich habe hier XL2000 und finde da keine Möglichkeit die Kopf- oder Fußzeilen einzeln anzuspeichern.

Wenn dies in XL2003 anders ist, so zeichne mal ein Makro auf während du da abspeicherst. Wenn was aufgzeichnet wird, so zeige das mal.

Für die Zukunft könnte man bei allen neuen Dateien eine Vorlage öffnen in der die aktuellen Kopf- und Fußzeilen drin sind.

Für alle schon erstellten Dateien müßte dann ein Makro durchlaufen was alle Dateien nacheinander öffnet, die Kopf- und Fußzeilen entsprechend der aktuellen Vorlage abändert.
Erschwernisse dabei sind Passwörter, Blattschutz usw.

Gruß
Reinhard

3

Hallo
Hier was ich (EXCEL 2002) mache, allerdings bei lokal geöffnetem Workbook, Sollte sich aber leicht anpassen lassen.

Dim actSheet As Worksheet
Set actSheet = Application.ActiveSheet

ActiveWorkbook.BuiltinDocumentProperties("Author").Value = "ich"
ActiveWorkbook.BuiltinDocumentProperties("Keywords").Value = "mein Abteilung"
ActiveWorkbook.BuiltinDocumentProperties("Comments").Value = "mein Kommentar"
ActiveWorkbook.BuiltinDocumentProperties("Template").Value = ActiveWorkbook.name & ", Last edited: " & Date

'ggfs. vorher setzen, sofern es ein einheitliches gibt
For Each sh In ActiveWorkbook.Sheets
 If (actSheet.ProtectContents = True) Then
 On Error Resume Next
 actSheet.Unprotect (passWord)

 actSheet.Range("A1").Select
 actSheet.PageSetup.LeftFooter = "&""Swis721 Lt BT,Light""&8" & ActiveWorkbook.name
 If (InStr(1, ActiveWorkbook.name, "\_deu")) Then
 actSheet.PageSetup.RightFooter = "Seite &amp:stuck\_out\_tongue\_winking\_eye: von &N"
 Else
 actSheet.PageSetup.RightFooter = "Page &amp:stuck\_out\_tongue\_winking\_eye: of &N"
 End If

 actSheet.Protect (passWord)
 On Error GoTo 0
 Else
 actSheet.Range("A1").Select
 actSheet.PageSetup.LeftFooter = "&""Swis721 Lt BT,Light""&8" & ActiveWorkbook.name
 If (InStr(1, ActiveWorkbook.name, "\_deu")) Then
 actSheet.PageSetup.RightFooter = "Seite &amp:stuck\_out\_tongue\_winking\_eye: von &N"
 Else
 actSheet.PageSetup.RightFooter = "Page &amp:stuck\_out\_tongue\_winking\_eye: of &N"
 End If
 End If
 Next

Die „on error“ möge man mir nachsehen!

Für das Template kenne ich übrigens (noch) keine andere Möglichkeit es zu setzen.

Bei Header und Footer kann man ja ggfs. auf eine erst zu öffnende date zugreifen.

Proble ist mE dasspäter zu automatisieren. Klar, sofern alle dateien in einem bekannten Verzeichnis liegen könnte ich darüber eine Schleife legen. Aber wenn nicht???

mfg

Dirk.Pegasus