Kopf und Fußzeile
30.01.2006 17:19:16
moritz
ich habe folgendes Problem. Ich habe in der Fußzeile die per VBA das Änderungsdatum und den benutzer anzeigen lassen. Dies funktioniert jedoch nur in Arbeitsblättern und nicht in Diagrammen.
Kennt hier jemand die Lösung
Vorab Vielen Dank Änderungen bitte in rot wenn möglich
Dim ws As Worksheet
Dim strTimestamp As String
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveWorkbook.BuiltinDocumentProperties(12) = Date + Time
ActiveWorkbook.BuiltinDocumentProperties(7) = Application.UserName
End Sub
Private Sub Workbook_Open()
strTimestamp ="Aktualisiert: " & CStr(ActiveWorkbook.BuiltinDocumentProperties(12)) & ", " & CStr(ActiveWorkbook.BuiltinDocumentProperties(7)) & CHR(10)& ActiveWorkbook.FullName
For Each ws In ActiveWorkbook.Worksheets
ws.PageSetup.RightFooter = strTimestamp
Next
End Sub