Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
724to728
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
724to728
724to728
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Kopf und Fußzeile

Kopf und Fußzeile
30.01.2006 17:19:16
moritz
Hallo zusammen
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kopf und Fußzeile
30.01.2006 17:25:27
Rolf
Dim sh As Object
For Each sh In ActiveWorkbook.sheets
ws.PageSetup.RightFooter = strTimestamp
Next
mfg Rolf

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige