Office 2013: Excel: mehrere Seiten mit fortlaufenden Zahlen generieren und ausdrucken

Mit einem Excel-Makro lassen sich mehrere Druckseiten mit fortlaufenden Seriennummern erzeugen. Der ursprüngliche Anwendungsfall waren vier nummerierte Felder pro A4-Seite.

Beispieldatei Rezept.xltm

Excel fortlaufende Nummerierung für Druckseiten

Beispiel für das Druckmakro

Sub nTisk()
n = Worksheets("Vzor").Cells(1, 4).Value
For x = 1 To n
  Worksheets("Vzor").Cells(1, 1).Value = Worksheets("Vzor").Cells(1, 1).Value + 1
  Worksheets("Vzor").Cells(1, 2).Value = Worksheets("Vzor").Cells(1, 2).Value + 1
  Worksheets("Vzor").Cells(2, 1).Value = Worksheets("Vzor").Cells(2, 1).Value + 1
  Worksheets("Vzor").Cells(2, 2).Value = Worksheets("Vzor").Cells(2, 2).Value + 1
  ActiveSheet.PrintOut
Next x
End Sub

Achtung: Das Makro sendet jede Schleife direkt an den Drucker. Deshalb zuerst mit einer Kopie der Datei und möglichst einem PDF-Drucker testen, bevor große Stückzahlen gedruckt werden.