Dateieigenschaften-Feld in Excel-Kopfzeilen

[marlenequax]

Hallo.

In Word ist es möglich Felder in den Dateieigenschaften in Dokumente
einzubinden, so auch in Kopfzeilen.
Diese Dateieigenschaften-Felder gibt es auch bei Excel.
Kann ich diese Felder auch in Excel-Kopfzeilen oder Fußzeilen zur
Dokumentautomation einbinden/ anzeigen?

[Claus Busch]

Hallo Marlene,

Post by marlenequax
In Word ist es möglich Felder in den Dateieigenschaften in Dokumente
einzubinden, so auch in Kopfzeilen.
Diese Dateieigenschaften-Felder gibt es auch bei Excel.
Kann ich diese Felder auch in Excel-Kopfzeilen oder Fußzeilen zur
Dokumentautomation einbinden/ anzeigen?

es kommt auf deine Excel-Version an. Ab 2002 sind ja schon einige
Datei-Eigenschaften direkt über Ansicht => Kopf- und Fusszeilen =>
Benutzerdefiniert auszuwählen. Bei früheren Versionen oder für
Eigenschaften, die nicht zur Verfügung stehen, müsstest du VBA bemühen.

[marlenequax]

Hallo Claus,

verwende Excel 2003.
Dateiname etc. kann ich ja direkt auswählen, mir geht es um Felder wie
Autor, Manager oder Ziel, Zweck, Projekt, Dokumentnummer o. ä. unter
Eigenschaften/ Anpassen.
Gibt es hier keine direkte Möglichkeit des Einbindens?
--
Danke
Gruß
Marlene

Post by Claus Busch
Hallo Marlene,

Post by marlenequax
In Word ist es möglich Felder in den Dateieigenschaften in Dokumente
einzubinden, so auch in Kopfzeilen.
Diese Dateieigenschaften-Felder gibt es auch bei Excel.
Kann ich diese Felder auch in Excel-Kopfzeilen oder Fußzeilen zur
Dokumentautomation einbinden/ anzeigen?

es kommt auf deine Excel-Version an. Ab 2002 sind ja schon einige
Datei-Eigenschaften direkt über Ansicht => Kopf- und Fusszeilen =>
Benutzerdefiniert auszuwählen. Bei früheren Versionen oder für
Eigenschaften, die nicht zur Verfügung stehen, müsstest du VBA bemühen.
--
Mit freundlichen Grüssen
Claus Busch
Win XP Prof SP2; Office 2000 SP3
claus_busch(at)t-online.de

[Claus Busch]

Hallo Marlene,

Post by marlenequax
verwende Excel 2003.
Dateiname etc. kann ich ja direkt auswählen, mir geht es um Felder wie
Autor, Manager oder Ziel, Zweck, Projekt, Dokumentnummer o. ä. unter
Eigenschaften/ Anpassen.
Gibt es hier keine direkte Möglichkeit des Einbindens?

leider nur die, die du schon gefunden hast. Wenn du mehr Informationen in
die Kopfzeile packen willst, dann geht das nur über VBA. Hier ist ein
kleines Beispiel, das du noch ausbauen oder verändern kannst. Falls du es
für die Fusszeile benutzen willst, musst du nur Header durch Footer
ersetzen:
Sub Kopfzeile()

Dim wsh As Worksheet
Dim objBDP As Object
'1 = Titel
'3 = Autor
'20 = Manager
'18 = Kategorie
'5 = Kommentare
'&F = Dateiname
'&A = Tabellenblattname
'&P = Aktuelle Seitenzahl
'&N = Seitenanzahl gesamt


Set objBDP = ThisWorkbook.BuiltinDocumentProperties

For Each wsh In Worksheets
With wsh.PageSetup
.LeftHeader = objBDP(1) _
& Chr(10) & objBDP(3) _
& Chr(10) & objBDP(20) _
& Chr(10) & objBDP(18) _
& Chr(10) & objBDP(5)
.CenterHeader = "&F" & Chr(10) & "&A"
.RightHeader = "&P" & " von " & "&n"
End With
Next

End Sub