Hallo,
ich habe da ein kleines Problem. Ich habe mit Excel eine Tabelle erstellt die ich nun mehrmals ausdrucken muss, allerdings mit unterschiedlichen Seitenzahlen. Muss ich nun diese Tabelle so oft kopieren bis ich meine 100 benötigten Seiten auf einem Blatt zusammenhabe oder gibt es eine Möglichkeit eine Tabelle 100mal mit unterschiedlichen Seitenzahlen zu drucken?
Für eure Hilfe schonmal vielen Dank
Gruß
Karl
Hallo Karl,
Ungefähr so geht es:
Sub Makro()
Dim n As Integer
For n = 1 To 100
ActiveSheet.PageSetup.RightHeader = "Seite " & n
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Next n
End Sub
Gruss
Erich
Hallo,
sorry das ich mich jetzt erst melde, kam vorher nicht mehr dazu.
Hat hervorragend geklappt Deine Lösung, Danke, Danke, Danke… das hat mir jetzt viel Arbeit erspart!
Gruß
Karl
Hallo nochmal,
Darauf aufbauend habe ich jetzt eine weitere Frage. Nehmen wir an ich habe in einem Tabellenblatt zwei Seiten. Diese Seiten möchte ich nun auf ein Blatt beidseitig aufdrucken, wobei aber nur eine Seite, die Vorderseite, die Seitennummer erhalten soll Die Rückseite aber ohne Seitennummer bleiben soll. Mit
ActiveSheet.PageSetup.RightFooter = "Seite" & n
steht die Seitennummer ja auf jeder Seite, also sowohl Vorder- als auch Rückseite, so soll´s aber leider nicht sein 
.
Geht das?
Danke schonmal
Gruß Karl