Office: Arbeitsmappe drucken; pro Tabellenblätter Seitenzahl 1 usw.

Hallo Leute,

ich habe folgendes Problem. Ich habe eine Excel Arbeitsmappe mit ca. 65 Tabellenblättern. Jetzt muss ich die komplette Arbeitsmappe ausdrucken. Bis hierhin ist alles klar. Wenn ich aber die Arbeitsmappe ausdrucke, nummeriert mir Excel die Seitenzahlen komplett von 1 bis zur letzten gedruckten Seite der Arbeitsmappe durch.

Jetzt fängt mein Problem aber an. Laut Vorgabe meines Chefs muss jedes Tabellenblatt von 1 an beginnen. Also Seite 1 von 1 usw. Hier ein Beispiel:

....................................Soll (Chef)...............Ist (Excel)
Tabellenblatt 1 ....................1.............................1
Tabellenblatt 1 ....................2.............................2
Tabellenblatt 2 ....................1.............................3
Tabellenblatt 3 ....................1.............................4

Lässt sich das irgendwie umsetzen?! Ich hoffe ich hab das verständlich erklärt?! Achja... Ich benutze Excel 2003 und die Seitenzahl hab ich logischerweise in die Fußzeile eingebaut.

Bin schon auf Tipps gespannt.
Vielen Lieben Dank!

:)

 

Hallo ....,

2 Lösungen:
- Jedes Blatt einzeln zum Drucker schicken (eventuell per Makrorekorder aufzeichnen und bei Bedarf starten)
- Alle zu druckenden Blätter auswählen, Datei|Seite einrichten und unter "Erste Seitenzahl" anstelle Automatisch eine 1 eingeben.

Grüße
EarlFred

 

Hallo Earl Fred,

vielen Dank für die schnelle Antwort. Hab natürlich gleich ausprobiert ob das funktioniert. Zu Lösungsvorschlag Nummer eins: Jedes Blatt einzeln zum Drucker schicken scheint mir ein bisschen umständig und dauert ewig, wie ich einen Makrorekorder aufzeichnen kann ist mir leider ein Rätsel *frown.gif*

Lösungsvorschlag Nummer zwei ist da schon besser. Funktioniert auch ganz gut bis auf eine Sache die ich glaube ich ausversehen vorenthalten habe. Meine Seitenzahl soll folgendermaßen ausstehen: "Seite 1 von 2" Zwar fängt jetzt jedes Tabellenblatt wie gewünscht wieder bei 1 an, aber die letzte "Seitenzahl" ist nicht die vom Tabellenblatt sondern der Arbeitsmappe. Kann man das auch irgendwie mit einfachen Tricks umstellen?

Vielen Dank nochmal für die flinke Antwort!
Grüße

 

Hallo unterwlixxx2010,

da bleibt meines Wissens nur noch die Variante mit dem Makro.

Mit Alt+F11 kommst Du in den VBA-Editor. Stelle sicher, dass Du Dich im richtigen Projekt befindest. Es sollte VBAProject(DeinMappenName) sein. Auf das Projekt Rechtsklick|Einfügen|Modul.
In den Codebereich (das große leere Blatt) fügst Du folgenden Code ein:

Code:

Zurück im "normalen" Excel findest Du unter Extras|Makro|Makros... (oder Alt+F8) nun ein Makro namens ausdruck_einzeln. Sobald Du dieses startest, wird jedes einzelne Blatt auf dem Standarddrucker ausgegeben.

Grüße
EarlFred

 

Ich bin begeistert!!! Ich hab zwar keine Ahnung was ich gerade gemacht habe, aber es funktioniert!!! *Smilie

Wenn ich hier schonmal so einen Experten habe... ich hätte da noch die ein oder andere Frage, die man wahrscheinlich nur über Makros lösen kann... *Smilie Muss ich dazu ein neues Thema aufmachen, oder darf man das hier einfach dran hängen?! *Smilie

 

Hallo unterwlixxx2010,

freut mich, wenn ich helfen konnte.

Wenn das "andere" Thema mit diesem hier nichts zu tun hat, würde ich auf alle Fälle ein neues eröffnen.

Grüße
EarlFred

 

Alles klar wird gemacht!! VIELEN LIEBEN DANK!!!

Grüße

 

Hallo,

ich habe eig. genau das beschrieben Problem und hatte schon die Hoffnung dass es sich ähnlich schnell auflösen würden.
Nach Eingabe des Codes und anschließendem ausführen erhalte ich die Fehlermeldung 1004:
Die Methode PrintOut für das Objekt "_Worksheet" ist fehlgeschlagen.

Kann mir da jemand weiterhelfen? Grundsätzlich habe ich reichlich wenig Ahnung von vba -.-