Henry möchte, dass eine Zelle eine Zahl enthält, die jedes Mal erhöht wird, wenn eine Kopie des Arbeitsblatts gedruckt wird. Wenn also die Zelle die Nummer 9 enthält und er 13 Kopien des Arbeitsblatts druckt, würde jede Kopie in dieser Zelle die Nummern 9, 10, 11 und weiter bis 21 enthalten.

Dies geschieht, wie Sie sich vorstellen können, am besten mit einem Makro. Alles, was getan werden muss, ist, das Arbeitsblatt so oft zu drucken, wie es gewünscht wird, und den Wert der Zelle nach jedem Druck zu erhöhen. In diesem Fall gehe ich davon aus, dass die zu inkrementierende Zelle B7 ist. Das folgende Makro übernimmt den Vorgang:

Sub PrintNumberedCopies()

Dim iCopies As Integer     Dim J As Integer     Dim r As Range

' Specify the cell to modify     Set r = Range("B7")



' Get the number of copies.

iCopies = Val(InputBox("Number of copies to print:"))



If iCopies > 0 Then         ' Loop iCopies times, printing once per loop         For J = 1 to iCopies             ActiveSheet.PrintOut             r.Value = r.Value + 1         Next J     End If End Sub

Beachten Sie, dass das Makro den Benutzer fragt, wie viele Kopien gedruckt werden sollen, und dann jede einzelne einzeln druckt. Nach jedem Ausdruck wird der in Zelle B7 gespeicherte Wert erhöht. Wenn der Benutzer etwas eingibt, das nicht in mehrere Kopien übersetzt werden kann, wird nichts gedruckt.

Denken Sie daran, dass Sie die Arbeitsmappe einige Zeit nach dem letzten Druck speichern müssen, wenn die Wertnummer in B7 immer auf dem neuesten Stand sein soll. Wenn Sie mit einer anderen Methode als diesem Makro drucken, gibt der Wert in B7 nicht die Anzahl der tatsächlich gedruckten Kopien wieder.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (12135) gilt für Microsoft Excel 2007, 2010, 2013, 2016, 2019 und Excel in Office 365.