Fußzeile VBA
Dori
ich hoffe Ihr könnt mir weiter helfen. Habe folgendes Problem. Ich habe eine Datei, bei der in der Fußzeile
ganz unten der Komplette Pfad stehen soll.
Sobald der Pfad 2 Zeilig wird bekomme ich einen Fehler.
Was habe ich falsch gemacht ?
Was kann ich ändern?
Hier der Code:
Sub Fusszeile_hier()
Dim strUn As String, strDatInfo As String
'hier wird das Letzte Speicherdatum ausgelesen (nur das Datum durch dd.mm.yyyy) strDatInfo = _
_
_ Format(ActiveWorkbook.BuiltinDocumentProperties("Last Save Time"), "dd.mm.yyyy")
'hier wird der letzte Benutzer der das Dokument gespeichert hat ausgelesen strUn = _ _
ActiveWorkbook.BuiltinDocumentProperties("Last Author")
With ActiveSheet.PageSetup
.LeftMargin = Application.InchesToPoints(0.78740157480315)
.RightMargin = Application.InchesToPoints(0.78740157480315)
.TopMargin = Application.InchesToPoints(0.196850393700787)
.BottomMargin = Application.InchesToPoints(0.78740157480315)
.HeaderMargin = Application.InchesToPoints(0.196850393700787)
.FooterMargin = Application.InchesToPoints(0.15748031496063)
ActiveSheet.PageSetup.LeftFooter = ""
ActiveSheet.PageSetup.LeftFooter = "&12" & Application.WorksheetFunction.Rept("_", 80) & vbCr & _
_
_
ActiveWorkbook.BuiltinDocumentProperties("author") & " (Abteilung)" & vbCr & vbCr & "&9" & _
ActiveWorkbook.FullName
ActiveSheet.PageSetup.RightFooter = ""
ActiveSheet.PageSetup.RightFooter = "&12" & Application.WorksheetFunction.Rept("_", 79) & vbCr & _
_
_
"&12" & "Seite &P von &N" & vbCr & "&9Letzte Änderung durch " & strUn & " am " & strDatInfo _
_
_
& "&9" & vbCr
ActiveSheet.PageSetup.CenterFooter = ""
End With
End Sub
Vielen Dank für eure Unterstützung !!
Liebe Grüße Dori
Anzeige