| Tipps & Tricks | |
![]() |
Linux Windows Programmieren |
| Ereignisse | |
![]() |
am 23. May besonderes heute was war im Jahr Personen geboren |
| Bildergalerie | |
![]() |
die neuesten Desktop-Bilder Blumen Fahrzeuge Landschaften mit Ortsangabe |
| Spiele | |
![]() |
Kreuzworträtsel Stadt Land Fluss Allgemeinwissen Bilder Quiz Lustiges Bilder Quiz Technik Quiz Länder Quiz |
| Tools | |
![]() |
Internetspuren Konvertierungen Umrechnungen Umwandlungen |
| Sonstiges | ||
|
Astronomie Erde Daten Kalender |
Gesundheit Energie Sparen Internet Links |
|
| Sitemap Kontakt Impressum |
| Kategorie: Software / Excel | Tipp im neuen Fenster anzeigen |

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim WS As Worksheet
For Each WS In ThisWorkbook.Worksheets
WS.PageSetup.LeftFooter = " gespeichert am " & Date & " von " & Application.UserName
Next
End Sub
In Excel unter Extras >Macro >Visual Basic Editor
--Diese Arbeitsmappe-- das obige eintragen