mikrocontroller.net

Forum: PC Hard- und Software [Excel] letzte Änderung/Speicherung in Fußzeile


Autor: Matthias S. (da_user)
Datum:

Bewertung
0 lesenswert
nicht lesenswert
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/off...

http://www.pctipp.ch/tipps-tricks/kummerkasten/off...

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:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim strFooter As String

strFooter = Split(ActiveSheet.PageSetup.LeftFooter, "/")(0)

ActiveSheet.PageSetup.LeftFooter = strFooter & Now & " durch: " & Environ("USERNAME")
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 ;-)

Autor: Matthias S. (da_user)
Datum:

Bewertung
0 lesenswert
nicht lesenswert
Manchmal hilfts, wenn man einen Forenbeitrag schreibt, und dann ist's in 
Sekunden erledigt:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim strFooter As String

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

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


Antwort schreiben

Die Angabe einer E-Mail-Adresse ist freiwillig. Wenn Sie automatisch per E-Mail über Antworten auf Ihren Beitrag informiert werden möchten, melden Sie sich bitte an.

Wichtige Regeln - erst lesen, dann posten!

  • Groß- und Kleinschreibung verwenden
  • Längeren Sourcecode nicht im Text einfügen, sondern als Dateianhang

Formatierung (mehr Informationen...)

  • [c]C-Code[/c]
  • [avrasm]AVR-Assembler-Code[/avrasm]
  • [code]Code in anderen Sprachen, ASCII-Zeichnungen[/code]
  • [math]Formel in LaTeX-Syntax[/math]
  • [[Titel]] - Link zu Artikel
  • Verweis auf anderen Beitrag einfügen: Rechtsklick auf Beitragstitel,
    "Adresse kopieren", und in den Text einfügen




Bild automatisch verkleinern, falls nötig
Bitte das JPG-Format nur für Fotos und Scans verwenden!
Zeichnungen und Screenshots im PNG- oder
GIF-Format hochladen. Siehe Bildformate.
Hinweis: der ursprüngliche Beitrag ist mehr als 6 Monate alt.
Bitte hier nur auf die ursprüngliche Frage antworten,
für neue Fragen einen neuen Beitrag erstellen.

Mit dem Abschicken bestätigst du, die Nutzungsbedingungen anzuerkennen.