Dateiinformationen in Fußzeile
18.07.2003 10:35:05
Christian
Ich habe mir ein kleines Makro geschrieben, welches mir meine Fußzeile anlegt. Dabei habe ich noch ein kleines Problem. Ich ermittele die letzte Änderung der Datei. In den der Angabe befindet sich das Datum und die Zeit.
Wie kann ich die Zeit entfernen??? 17.07.2003 10:28 ====> 17.07.2003
Mein Code:
Sub Fußzeile()
Dim Datei As String
Dim SaveDatum As Date
Dim iwks As Integer
For iwks = 1 To Worksheets.Count
Sheets(iwks).Activate
Datei = ActiveWorkbook.FullName
SaveDatum = FileDateTime(Datei)
'SaveDatum.Format = ("dd.mm.yyyy")
With ActiveSheet.PageSetup
.LeftFooter = "&8[" & SaveDatum & "] " & Datei & "[" & Sheets(iwks).Name & "]"
.RightFooter = "&8Seite &P von &N"
End With
Next iwks
End Sub
Anzeige