Kopfzeile mit Änderungsdatum

Das Tabellenkalkulationsprogramm

Moderator: Moderatoren

Stephan
********
Beiträge: 12368
Registriert: Mi, 30.06.2004 19:36
Wohnort: nahe Berlin

Re: Kopfzeile mit Änderungsdatum

Beitrag von Stephan »

ordne jedem Tabellenblatt eine eigene Seitenvorlage zu und schreibe das Änderungsdatum in die gewünschte Seitenvorlage.
Folgendes Makro schreibt das Änderungsdatum in den rechten Bereich der Kopfzeile der Seitenvorlage "meineSeitenvorlageVorlage":

Code: Alles auswählen

Sub Main
	tmp = ThisComponent.StyleFamilies.getByName("PageStyles").getByName("meineSeitenvorlageVorlage")
	tmp.HeaderIsOn = True 
	oHeader = tmp.RightPageHeaderContent

	oHRText = oHeader.RightText
	info = ""
	With ThisComponent.getDocumentProperties.ModificationDate
		info = info & .Day & "."
		info = info & .Month & "."
		info = info & .Year & " "
		info = info & .Hours & ":"
		info = info & .Minutes & ":"
		info = info & .Seconds
	End With
	oHRText.String = "zuletzt geändert: " & info
	tmp.RightPageHeaderContent = oHeader
End Sub
Gruß
Stephan