habe folgendes zur Formatierung der Fusszeilen programmiert:
==============================
On Error GoTo Fehler
With ActiveSheet.PageSetup
.RightFooter = "&""Arial""&8" & "Seite " & "&P" & " von " & "&N"
.LeftFooter = "&""Arial""&6" & "Confidential. Copyright). All rights reserved" & Chr(10) & "Bearbeiter: " & Worksheets("Setuptable").Cells(16, 2) & Chr(10) & ActiveWorkbook.FullName
End With
Exit Sub
Fehler:
With ActiveSheet.PageSetup
.RightFooter = "&""Arial""&8" & "Seite " & "&P" & " von " & "&N"
.LeftFooter = "&""Arial""&6" & "text zu lang"
End With
=============================
Jedesmal wenn der Dateipfad zu lang ist habe ich einen Fehler, den ich durch die Fehlerbehandlung umgehen wollte. Jedoch wird im rechten teil der Fusszeile jetzt angezeigt:
seite x von (Dateiname) ;hä wie kommt denn das?
Ich bin am Ende.
Danke für eure Hilfe