per Makro schauts so aus:
sam
Option Explicit
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Worksheets("Flow-Chart").PageSetup.PrintArea = ""
With Worksheets("Flow-Chart").PageSetup
.LeftFooter = Range("B1").Value
.LeftFooter = Format(Date, "dd.mm.yyyy")
End With
End Sub
Kannst Du mir weiterhelfen, wenn ich das CreateDate in eine bestimmte Zelle schreiben möchte? Vielen Dank zum voraus
Option Explicit
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Worksheets("Flow-Chart").PageSetup.PrintArea = ""
With Worksheets("Flow-Chart").PageSetup
.LeftFooter = Range("B1").Value
.LeftFooter = Format(Date, "dd.mm.yyyy")
End With
End Sub
Kannst Du mir weiterhelfen, wenn ich das CreateDate in eine bestimmte Zelle schreiben möchte? Vielen Dank zum voraus
muss kurz weiter ausholen:
1) das CreateDatum vom Sinn her sollte ja eigentlich garnicht mehr geändert werden. Wenn du also in B1 =Heute() stehen hast, wird immer beim Speichern das aktuelle Datum eingesetzt. Sinn?
Darum habe ich auch eine If-Anweisung geschrieben, wenn bereits ein Datum im Fußbereich steht, soll er es nicht verändern. Wenn das nicht gewünscht ist, dann einfach die If-Anweisung löschen.
2) da man das Datum ja eh nur 1x einträgt, könnte man sich überhaupt das Makro sparen, denn so trage ich das heutige Datum händisch ein und alles müsste passen.
3) Wenn du offenbar ein Datum in eine Zelle schreiben willst und immer beim Speichern soll das Datum in die Fußzeile wandern (was aber nicht dem CreateDatum im eigentlichen Sinne entspricht), sieht die Programmierung etwas anders aus:
Bei deiner Anweisung schreibst du zuerst das datum von B1 rein und anschließend überschreibst du es sofort mit dem heutigen Datum (Date-Funktion).
Ich hoffe, ich konnte etwas helfen,
Sam