ungewollter Speicherpfad in Fußzeile
27.03.2014 13:23:16
Albert
mit diesem Codeschnipsel erstelle ich meine Fußzeile in einem 10-seitigem Dokument.
Sub Codeschnipsel()
WS_Count = ActiveWorkbook.Worksheets.Count
'Start der Schleife
For I = 1 To WS_Count
Application.ScreenUpdating = False
With Sheets("0.Cover")
Sheets(I).Unprotect Password:="Xv2!&7umP8"
Sheets(I).PageSetup.LeftFooter = "&""Arial Narrow""&8" & " "
Sheets(I).PageSetup.CenterFooter = "&""Arial Narrow""&8" & " "
Sheets(I).PageSetup.RightFooter = "&""Arial Narrow""&8" & " "
Sheets(I).PageSetup.LeftFooter = "&""Arial Narrow""&8" & "Dokumenten Nr. / document no.: " & _
.Range("AH1").Value & Chr(10) & _
"Version / revision: " & .Range("AH2").Value & "." & .Range("AH3" _
).Value
Sheets(I).PageSetup.CenterFooter = "&""Arial Narrow""&8" & "Datum / date:" & Chr(10) & . _
Range("AH4").Value
Sheets(I).PageSetup.RightFooter = "&""Arial Narrow""&8" & "Seite / page:" & Chr(10) & "&P" & _
" / " & "&N"
If Sheets(I).ProtectContents = False Then
Sheets(I).Protect Password:="Xv2!&7umP8", DrawingObjects:=False, Contents:=True, _
Scenarios:=True, AllowFiltering:=False
End If
End With
Next I
End Sub
Und immer wieder, wenn ich das ganze als pdf ausdrucke, wird mir der Speicherpfad mit eingefügt. Den hab ich aber gar nicht angegeben!Woran könnte das liegen? Ich werde wahnsinnig...
Gruß
Albert