Seitennummerierung in der Fußzeile
petra
ich hab leider immer noch das gleiche Problem.
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 39 an. Dabei wird die Datei immer wieder verändert und neue Tabellenblätter werden hinzugefügt. Auf dem ersten Tabellenblatt steht allerdings in Zelle C18 die entsprechende Anzahl, ab wann die Seitennummerierung starten soll. Also wird ein weiteres Blatt hinzugefügt, verändert sich die Zahl in Zelle C18 im ersten Tabellenblatt entsprechend.
Ich habe aus dem Forum bisher einige Makros bekommen. Allerdings funktionieren die nicht so richtig. ich weiß nicht voran es liegt, aber es werden weder Seitennummern noch "Seite" angezeigt.
Hier ein Beispiel-Makro
Sub MakeFooter()
For I = 39 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 wie gesagt funktioniert es so nicht.
Habt ihr noch ne andere Lösung für mich?
danke für eure hilfe!
lg
petra