Problem mit Seitenzahl
Sören
ich hab mal wieder ein Problem, bei dem ich eure Hilfe dringend benötige.
Ich verwende folgenden Code:
Auszug:
Dim y As Integer
y = ActiveSheet.Cells(36, 7)
If ActiveSheet.Cells(5, 18).Value = "
'Einrichten der anderen Seiten und drucken bis zum ende
ActiveSheet.PageSetup.LeftHeader = "&""Formata Bold,Standard""&20KÜGLER &""Formata Condensed,Standard""&16Ingenieure"
ActiveSheet.PageSetup.CenterHeader = "&""Swis721 Cn BT,Fett""&12" & ActiveSheet.Cells(3, 2) & Chr(13) & _
"Abschaltbedingungen, " & Sheets("Stammdaten").Cells(17, 16).Value & Chr(13) & _
ActiveSheet.Cells(3, 3).Value
ActiveSheet.PageSetup.LeftFooter = "&""Swis721 Cn BT,Standard""&11" & ActiveSheet.Cells(8, 18) & Chr(13) & _
ActiveSheet.Cells(9, 18).Value
ActiveSheet.PageSetup.RightFooter = "&""swis721 Cn BT,Standard""&11" & Chr(13) & _
ActiveSheet.Cells(10, 18).Value & Chr(13) & _
"erstellt: " & ActiveSheet.Cells(11, 18).Value & Chr(13) & _
ActiveSheet.Cells(12, 18).Value & Chr(13) & _
"Seite &P-" & y & " von " & ActiveSheet.Cells(179, 7).Value
'ACTIVESHEET.PrintPreview
'ACTIVESHEET.PrintPreview
ActiveSheet.PrintOut From:=ActiveSheet.Cells(36, 8).Value, To:=ActiveSheet.Cells(179, 8).Value, Copies:=1, Collate:=True
So der markierte Bereich soll bewirken, dass von der aktuellen Anzahl der Druckseite ein bestimmter Wert abgezogen wird. Hat meiner Meinung nach auch schonmal funktioniert. Aber nun funzt es nicht(mehr).
Hab bei meinem Excel automatisch berechnen rausgenommen, aber auch mit automatisch berechnen funktioniert es nicht.
Hoffe mir kann jemand weiter Helfen.
Vielen Vielen Dank im Vorraus
Sören