Wie kann ich in der Fusszeile meines Excel-Sheets folg. Daten andrucken lassen:
- Pfad (C:\Dokumente\...)
- erstellt: Erstellungsdatum und Name des Erstellers
- geändert: Datum und Name des "Änderers"
Vielen Dank im Voraus
Gruss Alex
Wie kann ich in der Fusszeile meines Excel-Sheets folg. Daten andrucken lassen:
- Pfad (C:\Dokumente\...)
- erstellt: Erstellungsdatum und Name des Erstellers
- geändert: Datum und Name des "Änderers"
Vielen Dank im Voraus
Gruss Alex
probier mal hiermit:
Sub Makro1()
With ActiveSheet.PageSetup
.LeftFooter = "&8" & ThisWorkbook.FullName
.CenterFooter = "&8erstellt am " & ThisWorkbook.BuiltinDocumentProperties("Creation date") & _
" von " & ThisWorkbook.BuiltinDocumentProperties("Author")
.RightFooter = "&8geändert am " & ThisWorkbook.BuiltinDocumentProperties("Last save time") & _
" von " & ThisWorkbook.BuiltinDocumentProperties("Author")
End With
End Sub
Gruß
Steffen D
gruss alex