Wie druckt man mehrere Exemplare mit durchgehenden, fortlaufenden Seitennummern?
Sind Sie schon einmal in die Situation geraten, mehrere Exemplare desselben Arbeitsblatts drucken zu müssen – jedes jedoch mit einer eigenen, fortlaufenden Seitennummer? Stellen Sie sich vor, Sie benötigen 10 Kopien eines Formulars, wobei beim ersten Ausdruck „001“ in Zelle A1 erscheint, beim zweiten „002“ und so weiter bis „010“ beim letzten Exemplar. Dieses Vorgehen eignet sich ideal für nummerierte Rechnungen, Tickets, Bestellformulare oder jede andere Serie, bei der einzelne Exemplare zur besseren Organisation oder Prüfung eindeutig nachverfolgt werden müssen.
Leider bietet Excel keine integrierte Funktion, mit der Benutzer automatisch mehrere Exemplare mit fortlaufend nummerierten Zellen drucken können. Gerade bei einer großen Anzahl von Kopien ist das manuelle Bearbeiten jedes Blatts vor dem Druck äußerst umständlich. Mit einem einfachen VBA-Makro lässt sich dieser Prozess jedoch automatisieren – so sparen Sie Zeit, minimieren manuelle Fehler und stellen sicher, dass jedes Exemplar wie gewünscht eine eindeutige Nummer erhält.
Druckkopien mit unterschiedlichen Nummern per VBA-Code
Verwenden von Excel-Formeln und manuellem Drucken
Druckkopien mit unterschiedlichen Nummern per VBA-Code
Druckkopien mit unterschiedlichen Nummern per VBA-CodeDiese Methode nutzt ein VBA-Makro, um mehrere Exemplare eines Arbeitsblatts zu drucken und dabei automatisch fortlaufende Nummern in eine festgelegte Zelle jedes Ausdrucks einzufügen.
Führen Sie die folgenden Schritte aus, um das Makro schnell zu erstellen und auszuführen:
1. Aktivieren Sie zunächst das Arbeitsblatt, das Sie drucken möchten. Drücken Sie anschließend Alt + F11, um das Microsoft Visual Basic for Applications (VBA)-Editor-Fenster zu öffnen.
2. Klicken Sie im VBA-Editor auf Einfügen > Modul, um ein neues Modul hinzuzufügen. Kopieren Sie den folgenden Code und fügen Sie ihn in das Modulfenster ein. (Beachten Sie den Screenshot als visuelle Hilfestellung.)
VBA: Druckexemplare mit fortlaufenden Seitenzahlen.
Sub PrintCopiesWithNumbers()
'UpdatebyEntendoffice20161031
Dim i As Integer
Application.ScreenUpdating = False
For i = 1 To 10
Range("A1").Value = "'00" & i
ActiveSheet.PrintOut
Next i
Application.ScreenUpdating = True
MsgBox "Total printed copies: " & (i - 1), vbInformation, "Kutools for Excel"
End Sub
Hinweise und Tipps zu Parametern:
- Im Code bezieht sich die Referenz A1 auf die Zelle, in der die Sequenznummer erscheinen wird. Falls Sie eine andere Zelle bevorzugen – beispielsweise B2 –, aktualisieren Sie die Referenz entsprechend.
- 1 To10 legt fest, wie viele Kopien gedruckt werden sollen (in diesem Beispiel 10). Sie können die Zahl 10 bei Bedarf durch eine beliebige andere positive ganze Zahl ersetzen.
- „'00" & I formatiert die Sequenznummer so, dass sie als dreistellige Zahl mit führenden Nullen angezeigt wird (z. B. 001, 002, 003). Wenn Sie ein anderes Format wünschen – etwa eine Nummerierung ab 100 oder ohne führende Nullen – passen Sie die Zeichenkette entsprechend an.
- Stellen Sie vor dem Ausführen des Makros sicher, dass Ihr Arbeitsblatt bereit ist und keine Daten enthält, die in der Zielzelle überschrieben werden könnten. Speichern Sie Ihre Arbeitsmappe vor dem Fortfahren – Makroaktionen lassen sich nämlich nicht rückgängig machen.
3. Drücken Sie bei aktivem Arbeitsblatt F5 oder klicken Sie im VBA-Editor auf die Schaltfläche Ausführen, um den Code auszuführen. Es erscheint ein Dialogfeld mit einer Benachrichtigung wie: „10 Exemplare werden mit aufeinanderfolgenden Zahlen gedruckt.“ Klicken Sie auf OK, um fortzufahren – das Makro durchläuft automatisch jede Nummer, fügt die fortlaufende Nummer in Ihre festgelegte Zelle ein und druckt das Blatt. Jeder Ausdruck ist entsprechend Ihren Einstellungen eindeutig nummeriert.
Verwenden von Excel-Formeln und manuellem Drucken
Wenn Sie nur eine begrenzte Anzahl von Exemplaren benötigen oder auf Makros verzichten möchten, nutzen Sie einfach den Ausfüllkästchen-Griff („Ausfüllkästchen“) in Excel, um fortlaufende Nummern zu erstellen – und drucken anschließend jedes Exemplar manuell. Diese Methode ist ideal, wenn innerhalb einer überschaubaren Menge eindeutige Nummerierungen für Etiketten, Abzeichen oder Formulare erforderlich sind.
1. Geben Sie in einer neuen Spalte (z. B. Spalte A) die Startsequenznummer in die erste Zelle ein – beispielsweise „001“. Verwenden Sie dazu folgende Formel in Zelle A1:
=TEXT(ROW(A1),"000")2. Ziehen Sie das Ausfüllkästchen nach unten, um die Formel für so viele Exemplare zu kopieren, wie Sie drucken möchten (z. B. bis Zeile 10 für 10 Exemplare). Jede Zelle zeigt dann die nächste fortlaufende Nummer mit führenden Nullen an.
3. Kopieren Sie die gesamte Zeile oder den gesamten Datensatz für jedes benötigte Exemplar auf ein neues Blatt und verwenden Sie die Drucken-Funktion von Excel, um die Blätter einzeln auszudrucken. Diese manuelle Methode eignet sich ideal für kleinere Chargen und bietet Ihnen eine bessere visuelle Kontrolle vor dem Druck.
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins