[Excel] letzte Änderung/Speicherung in Fußzeile

Matthias S. OP #4721940 
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 ;-)
Antwort Zitieren Bearbeiten Thread verschieben Thread sperren Langsamer Modus Anmeldepflicht aktivieren Anpinnen Thread löschen Thread mit anderem zusammenführen Melden Danke
Matthias S. OP #4721946 
Manchmal hilfts, wenn man einen Forenbeitrag schreibt, und dann ist's in 
Sekunden erledigt:

1
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

2
Dim strFooter As String

3


4
strFooter = Split(ActiveSheet.PageSetup.LeftFooter, "Zuletzt gespeichert: ")(0)

5


6
ActiveSheet.PageSetup.LeftFooter = strFooter & "Zuletzt gespeichert: " & Now & " durch: " & Environ("USERNAME")

7
End Sub
Antwort Zitieren Bearbeiten Löschen Melden Danke
Thread beobachten

Antwort schreiben

Eine eigene Frage? Dieser Thread ist über 10 Jahre alt. Stell sie in einem eigenen Thread – dort lesen mehr Leute mit, und sie wird öfter und schneller beantwortet.

Neuen Thread starten

Eine Lösung, Ergänzung oder Rückmeldung zu diesem Thread? Dann antworte hier.

Formatierung
  • [c]C-Code[/c]
  • [code]Code in anderen Sprachen, ASCII-Zeichnungen[/code]
  • [math]Formel in LaTeX-Syntax[/math]
  • [[Titel]] – Link zu einem Artikel
  • Verweis auf einen anderen Beitrag: Rechtsklick auf dessen Beitrags-ID (#8078628), „Adresse kopieren“, in den Text einfügen

Mehr zur Formatierung

Längeren Sourcecode als Anhang, nicht in den Text. JPG nur für Fotos und Scans; Zeichnungen und Screenshots als PNG oder GIF. Siehe Bildformate.

Dein Name und deine E-Mail-Adresse

Schon registriert? Anmelden

Wird nicht angezeigt. Wir schicken dir einen Link; sobald du damit bestätigst, erscheint dein Beitrag.

Mit dem Abschicken legst du einen kostenlosen Account an und erkennst die Nutzungsbedingungen und die Datenschutzerklärung an.