Seeitenzahlen in Fußzeilen
28.02.2003 08:27:39
Klaus
Mit folgendem Makro stelle ich das Layout der Fußzeilen ein.
Leider funktioniert das bei den Seitenzahlen nicht auf allen Rechnern gleichmäßig.
(Trotz gleicher Betriebssyteme (W2K) und gleicher XL-Version)
Weiß jemand warum? Bzw. Kann mir jemand sagen wie ich in VBA auf die aktuelle Seitenzahl und die Gesamtseitenzahl zugreifen kann?
Gruß Klaus
Sub FusszeileMitPfad()
Application.ScreenUpdating = False
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = "&06" & Application.UserName & ", " & "&D"
.CenterFooter = ""
.RightFooter = "&06" & ActiveWorkbook.FullName & Chr(10) _
& ActiveSheet.Name & "; Seite &P von &N"
'&P steht für aktuelle Seitenzahl
'&N steht für die Gesamtseitenzahl
.PrintComments = xlPrintInPlace
End With
Application.ScreenUpdating = True
End Sub