Erstelldatum in Kopf- oder Fußzeile

Miguel Roenes

unread,

Jul 15, 2004, 4:18:26 AM7/15/04

to

Hallo,

ich suche nach einer Möglichkeit, in der Kopf- oder
Fußzeile das Erstelldatum automatisch anzeigen zu lassen.
Mit [Datum] wird ja nur das aktuelle Datum angezeigt.

Kann mir bitte jemand helfen?!

Danke im Voraus

Gruß
Miguel

Peter H. Erdmann

unread,

Jul 15, 2004, 5:18:47 AM7/15/04

to

Hallo Miguel,

Sub Datum_in_Fusszeile()
Dim puffer As String
puffer = ThisWorkbook.BuiltinDocumentProperties(11)._
Value
ActiveSheet.PageSetup.RightFooter = puffer
End Sub

Gruß aus dem Land der Bayern
Peter

>-----Originalnachricht-----

>.
>

stefan onken

unread,

Jul 15, 2004, 5:49:56 AM7/15/04

to

hallo Miguel,
das geht (nur) mit einem Makro, über die
BuiltinDocumentProperties.
ActiveWorkbook.BuiltinDocumentProperties(11) ist das
Erstelldatum, ActiveWorkbook.BuiltinDocumentProperties(12)
das Datum der letzen Speicherung usw.
Einige Beispiele dazu:
http://tinyurl.com/3wzxb

Um das zu automatisieren, könntest du das Ereignis
Workbook_Open (das Öffnen der Datei, die Fußzeile würde
auch erst nach erneutem öffnen geändert),
Workbook_BeforeSave (beim speichern) oder
Workbook_BeforePrint nutzen.

Bsp für BeforePrint:

wechsle in den VBA-Editor (ALT+F11)
doppelklicke links oben in Projekt-Explorer auf
DieseArbeitsmappe
in das große Codefenster kopierst du dieses Makro:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet.PageSetup
.LeftFooter = _
ActiveWorkbook.BuiltinDocumentProperties(11)
End With
End Sub

Gruß
stefan

>-----Originalnachricht-----

>.
>

anon...@discussions.microsoft.com

unread,

Jul 15, 2004, 5:56:20 AM7/15/04

to

Danke Peter, es hat funktioniert! Auch schönen Gruß aus
Bayern (Schweinfurt)
Miguel

>-----Originalnachricht-----

>.
>

Peter H. Erdmann

unread,

Jul 15, 2004, 6:48:44 AM7/15/04

to

Hi,

Bin in Schweinfurt aufgewachsen (Humboldt Gymnasium)

Gruß Peter
>-----Originalnachricht-----

>.
>

Miguel Roenes

unread,

Jul 15, 2004, 3:54:23 PM7/15/04

to

Hallo Stefan,

vielen Dank für die ausführliche Hilfe/Info!

Gruß
Miguel

>-----Originalnachricht-----

>hallo Miguel,
>das geht (nur) mit einem Makro, über die
>BuiltinDocumentProperties.
>ActiveWorkbook.BuiltinDocumentProperties(11) ist das
>Erstelldatum, ActiveWorkbook.BuiltinDocumentProperties(12)
>das Datum der letzen Speicherung usw.
>Einige Beispiele dazu:
>http://tinyurl.com/3wzxb
>
>Um das zu automatisieren, könntest du das Ereignis
>Workbook_Open (das Öffnen der Datei, die Fußzeile würde
>auch erst nach erneutem öffnen geändert),
>Workbook_BeforeSave (beim speichern) oder
>Workbook_BeforePrint nutzen.
>
>Bsp für BeforePrint:
>
>wechsle in den VBA-Editor (ALT+F11)
>doppelklicke links oben in Projekt-Explorer auf
>DieseArbeitsmappe
>in das große Codefenster kopierst du dieses Makro:
>
>Private Sub Workbook_BeforePrint(Cancel As Boolean)
>With ActiveSheet.PageSetup

>..LeftFooter = _

>ActiveWorkbook.BuiltinDocumentProperties(11)
>End With
>End Sub
>
>Gruß
>stefan
>
>
>
>
>
>>-----Originalnachricht-----
>>Hallo,
>>
>>ich suche nach einer Möglichkeit, in der Kopf- oder
>>Fußzeile das Erstelldatum automatisch anzeigen zu
>lassen.
>>Mit [Datum] wird ja nur das aktuelle Datum angezeigt.
>>
>>Kann mir bitte jemand helfen?!
>>
>>Danke im Voraus
>>
>>
>>Gruß
>>Miguel
>>.
>>

>.
>