Hi,
ich erstelle gerade eine Excel-Datei und hätte gerne das Datum und den
Benutzer der letzten Änderung, oder zumindest Speicherung in der
Fußzeile.
Diese beiden Beiträge habe ich bei Google schon gefunden:
http://www.pctipp.ch/tipps-tricks/kummerkasten/office/artikel/windows-benutzername-in-excel-fusszeile-49511/
http://www.pctipp.ch/tipps-tricks/kummerkasten/office/artikel/letztes-speicherdatum-in-fusszeile-ausgeben-excel-20179/
In der linken Fußzeile soll der Text in die zweite Zeile, der Text in
der ersten steht schon fest drinnen, in die Zweite habe ich jetzt
einfach reingetippt: "Zuletzt gespeichert: ".
Das zusammengewürfelte Makro sieht jetzt so aus:
1 | Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
|
2 | Dim strFooter As String
|
3 |
|
4 | strFooter = Split(ActiveSheet.PageSetup.LeftFooter, "/")(0)
|
5 |
|
6 | ActiveSheet.PageSetup.LeftFooter = strFooter & Now & " durch: " & Environ("USERNAME")
|
7 | End Sub
|
Jetzt habe ich natürlich das Problem, dass bei jedem Speichern der Text
"Now & " durch: " & Environ("USERNAME")" angefügt wird, und somit die
Zeile ziemlich lang wird.
Was wäre den eine Lösung? Gäbe es nicht die Möglichkeit, das Makro
hinter ein Feld zu legen, so dass ich nur "&[meinMakro]" in die Fußzeile
tippseln muss?
Danke schonmal für's grübeln ;-)