seitenzahlen einfügen und fortlaufend drucken

Forumthread: seitenzahlen einfügen und fortlaufend drucken

01.03.2006 17:05:56

silvia

Hallo,
ich habe folgendes Problem, ich möchte gerne ein vorgefertigtes Tabellenblatt 50x ausdrucken, dabei sollen auf den 50 Blättern die Seitenzahlen von 1-50 aufeinanderfolgend mit ausgedruckt werden. Wie kann ich das am schnellsten hinbekommen? Vielen Dank für einen Tip
Gruß
Silvia

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: seitenzahlen einfügen und fortlaufend drucken

01.03.2006 18:07:57

JMR

Hi Silvia,
was anderes, als das Formular 50x in die gleiche Mappe zu kopieren und in der Seiteneinrichtung die Fusszeile mit der Seitenanzahl zu versehen faellt mir dazu leider auch nicht ein. Aber so viel sind 50 Seiten auch wieder nicht...:-)
Gruss,
Jan

AW: seitenzahlen einfügen und fortlaufend drucken

01.03.2006 18:14:35

JMR

Hab dein angegebenes Level missachtet...
Die genannte Einstellung findest du im Menu (ich verwende italienisches Excel, bin mir bzgl. Uebersetzung nicht 100% sicher):
File, Imposta Pagina (Seiteneinrichtung?), Intestazioni/Pie.diPagina (Kopf-undFusszeile) und dort deine gewuenschte Zaehlweise auswaehlen
Viel Spass und ERfolg beim basteln,
Jan

AW: seitenzahlen einfügen und fortlaufend drucken

01.03.2006 19:06:19

Karsten

Hallo Sylvia,
den u. a. Code in ein Modul kopieren und Makro ausführen.
Diese Code-Zeile bedeutet hier 50x ausdrucken:
For Xmal = 1 To 50
Du kannst die Code-Zeile ja mal auf "2x ausdrucken" ändern und das Ergebnis testen:
For Xmal = 1 To 2
Diese Code-Zeile wählt das zu druckende Tabellenblatt aus:
pTabelle = "Drucken" 'Name Tabellenblatt
Bitte ändern/ anpassen, zum Beispiel:
pTabelle = "Tabelle1" 'Name Tabellenblatt
Viel Erfolg
Karsten
Code in ein Modul kopieren:
- Menü > Extras > Makro > VBA-Editor
- oder: Tastenkombination: Alt+F11
im VBA-Editor geht's weiter mit:
- "Microsoft Excel Objekte" markieren
- rechte Maustaste > Einfügen > Modul
- u. a. Code in das Modul kopieren und speichern
Makro ausführen:
- Menü > Extras > Makro > Makros...
- oder: Tastenkombination: Alt+F8
- "DruckenSeiteXmal" auswählen und ausführen


Sub DruckenSeiteXmal()
Dim pTabelle As String
Dim Xmal As Integer
pTabelle = "Drucken"    'Name Tabellenblatt
ThisWorkbook.Activate
For Xmal = 1 To 50
'Fußzeile
With Sheets(pTabelle).PageSetup
.LeftFooter = ""    'Linker Bereich
.CenterFooter = ""  'Mittlerer Bereich
.RightFooter = "Seite: " & Xmal  'Rechter Bereich
End With
'Drucken
Sheets(pTabelle).PrintOut
Next Xmal
End Sub

DANKE

01.03.2006 19:40:20

Silvia

Danke an JMR und Karsten,
das mit dem Makro hat funktioneirt, voll super :o)
Gruß
Silvia

Infobox / Tutorial

Seitenzahlen in Excel einfügen und fortlaufend drucken

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Um in Excel Seitenzahlen fortlaufend einzufügen und zu drucken, kannst Du folgende Schritte befolgen:

Tabellenblatt vorbereiten: Stelle sicher, dass Dein Tabellenblatt fertig ist und korrekt aussieht.
Makro erstellen: Öffne den VBA-Editor mit Alt + F11.
Modul einfügen: Klicke mit der rechten Maustaste auf "Microsoft Excel Objekte" und wähle "Modul" einfügen.

Code einfügen: Kopiere den folgenden Code in das Modul.

Sub DruckenSeiteXmal()
   Dim pTabelle As String
   Dim Xmal As Integer
   pTabelle = "Drucken"    ' Name Tabellenblatt
   ThisWorkbook.Activate
   For Xmal = 1 To 50
       ' Fußzeile
       With Sheets(pTabelle).PageSetup
           .LeftFooter = ""    ' Linker Bereich
           .CenterFooter = ""  ' Mittlerer Bereich
           .RightFooter = "Seite: " & Xmal  ' Rechter Bereich
       End With
       ' Drucken
       Sheets(pTabelle).PrintOut
   Next Xmal
End Sub

Makro ausführen: Gehe zu Extras > Makro > Makros... oder drücke Alt + F8, wähle das Makro "DruckenSeiteXmal" aus und klicke auf "Ausführen".

Jetzt solltest Du in der Lage sein, die Seitenzahlen in Excel fortlaufend von 1 bis 50 zu drucken.

Häufige Fehler und Lösungen

Fehler: Das Makro druckt nicht korrekt.
- Lösung: Stelle sicher, dass der Name des Tabellenblatts im Code (pTabelle) genau mit dem Namen Deines Arbeitsblatts übereinstimmt.
Fehler: Seitenzahlen fehlen oder sind nicht fortlaufend.
- Lösung: Überprüfe, ob der Code korrekt eingefügt ist und dass die For-Schleife die richtige Anzahl an Durchläufen hat.

Alternative Methoden

Wenn Du keine Makros verwenden möchtest, kannst Du die Seitenzahl auch manuell in die Fußzeile einfügen:

Gehe zu Seitenlayout > Seiteneinrichtung.
Klicke auf Kopf- und Fußzeile.
Wähle die Option zur Fußzeile und füge die Seitenzahl mit der Platzhalterfunktion ein: Seite [Seite] von [Seiten].

Dies ist jedoch nicht so flexibel wie die Makro-Lösung, insbesondere wenn Du mehrere Tabellenblätter hast.

Praktische Beispiele

Seitenzahlen auf mehreren Tabellenblättern: Wenn Du Seitenzahlen über mehrere Tabellenblätter hinweg drucken möchtest, kannst Du das Makro anpassen, indem Du eine Schleife über die gewünschten Blätter hinzufügst.
Erweiterung des Makros: Du kannst die Zeile For Xmal = 1 To 50 anpassen, um die Anzahl der Kopien zu ändern, z.B. For Xmal = 1 To 2 für 2 Kopien.

Tipps für Profis

Nutze die PageSetup-Eigenschaften, um das Layout Deiner Seiten anzupassen, bevor Du druckst.
Teste Dein Makro mit einer geringeren Anzahl an Seiten, um sicherzustellen, dass alles funktioniert, bevor Du 50 Seiten druckst.
Speichere Deine Arbeitsmappe regelmäßig, insbesondere wenn Du mit VBA arbeitest, um Datenverlust zu vermeiden.

FAQ: Häufige Fragen

1. Wie füge ich in Excel die Seitenzahl für mehrere Tabellenblätter hinzu?
Du kannst ein Makro erstellen, das durch die gewünschten Tabellenblätter iteriert und die Seitenzahl in die Fußzeile jeder Tabelle einfügt.

2. Was ist der Unterschied zwischen „Seite 1 von 2“ und „Seite 1 von x“?
„Seite 1 von 2“ zeigt die Anzahl der Seiten an, während „Seite 1 von x“ eine dynamische Anzahl darstellt, die automatisch angepasst wird, je nachdem, wie viele Seiten es gibt.

Beliebteste Forumthreads (12 Monate)

seitenzahlen einfügen und fortlaufend drucken

Forumthread: seitenzahlen einfügen und fortlaufend drucken

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Seitenzahlen in Excel einfügen und fortlaufend drucken

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

seitenzahlen einfügen und fortlaufend drucken

Forumthread: seitenzahlen einfügen und fortlaufend drucken

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Seitenzahlen in Excel einfügen und fortlaufend drucken

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread