Seitennummerierung in der Fußzeile
petra
ich habe da mal wieder ne Frage.
Und zwar würde ich gerne in der Fußzeile rechts unten eine Seitennummerierung beim Drucken haben. Allerdings soll die Seitennummerierung je Tabellenblatt funktionieren.
Und das auch nicht von dem ersten Tabellenblatt an, sondern von Tabellenblatt 36 an.
Ab Tabellenblatt 36 sind die Seiten so eingerichtet, dass jeweils eine Seite gedruckt wird.
Ich habe aus dem Forum folgenden Makro bekommen
Sub MakeFooter()
For I = 36 To Sheets.Count
Sheets(I).PageSetup.RightFooter = "&P"
Next
' Druckt alles auf Standarddrucker
For I = 1 To Sheets.Count
Sheets(I).PrintOut Copies:=1, Collate:=True
Next
End Sub
Nur leider funktioniert es so nicht.
Die Tabellenblätter vor Nr. 36 sind nicht notwendigerweise einseitig. Der Makro schreibt im Moment auf den ausgedruckten Seiten irgendwo auf den vorderen Tabellenblätter Seitenzahlen hin. Allerdings fängt er mit der Seitenzahl 43 an. und bis er auf Tabellenblatt 36 kommt, schreibt er gar keine Seitenzahl mehr hin.
von daher wäre es super, wenn ihr mir mitteilen könnt, wie ich den Makro umformulieren muss, damit er ab Tabellenblatt 36 mit Seite 1 unten rechts anfängt.
Geht das?
LG
petra