Speicherdatum in Kopfzeile

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

... ja ich weiss, ist nur ne schlechte Alternative :o)
Dazu wechselst du in den Makroeditor "Alt" + "F11"
- auf der linken Seite siehst du eine Explorerleiste, hier Doppelklick auf "VBAProject(Personl.xls)", dann Doppelklick auf "Microsoft Excel Objekte", dann Doppelklick auf "DieseArbeitsmappe"
- jetzt ist auf der rechten Seite ein leeres Blatt zu sehen
hier schreibst du folgendes rein:


Function SpeicherDatum() As Date
SpeicherDatum = ActiveWorkbook.BuiltinDocumentProperties("Last Save Time")
End Function

- dann schließt du den Editor, dann bist du wieder in Excel
Hier suchst du dir irgendeine Zelle und fügst die neue, benutzerdefinierte Funktion ein
(Menüleiste: Einfügen/ Funktion ; hier die Funktion auswählen)
Du musst evtl. noch die Zelle auf "Datum" formatieren.
Klappt´s?
Gruss
Chris

Sub Kopf_Fuss_Zeile() Dim wks As Worksheet Application.ScreenUpdating = False For Each wks In Worksheets With wks.PageSetup .LeftHeader = "" .CenterHeader = "" .RightHeader = "" .LeftFooter = "" .CenterFooter = "" .RightFooter = "" .LeftHeader = "Stand: " & Format(ActiveWorkbook.BuiltinDocumentProperties(12), "dd.mmmm yyyy") .CenterHeader = "&""Arial""&B&11" & wks.Name .LeftFooter = "&""Arial""&B&8" & Application.UserName & vbLf & ActiveWorkbook.Path & "\&F" .CenterFooter = "&""Arial""&B&8 &P / &N" .RightFooter = "&""Arial""&B&8 Gedruckt: &D; &T" End With Next wks Application.ScreenUpdating = True End Sub

Hallo Peter,
mein Fehler. Gehe in den VBA-Editor und kopiere diesen Code unter "DieseArbeitsmappe":
Option Explicit


Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim wks As Worksheet
Application.ScreenUpdating = False
For Each wks In Worksheets
With wks.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftHeader = "Stand: " & Format(ActiveWorkbook.BuiltinDocumentProperties(12), "dd.mmmm yyyy")
.CenterHeader = "&""Arial""&B&11" & wks.Name
.LeftFooter = "&""Arial""&B&8" & Application.UserName & vbLf & ActiveWorkbook.Path & "\&F"
.CenterFooter = "&""Arial""&B&8 &P / &N"
.RightFooter = "&""Arial""&B&8 Gedruckt: &D; &T"
End With
Next wks
Application.ScreenUpdating = True
End Sub

Jetzt wird jedesmal vor der Seitenansicht, oder vor dem Drucken der Code abgearbeitet.
Gruß
Ralf

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread