☰

Bei jedem Drucken eine Nummer ändern

tag-icon • tag-icon microsoft-excel printing
Bei jedem Drucken eine Nummer ändern

Ich habe eine Excel-Tabelle, die ich als Rechnung verwende.

Ich möchte 100 Seiten drucken und die Rechnungsnummer von 1 auf 100 ändern, sodass jedes Blatt eine andere Rechnungsnummer hat.

Wie kann ich das machen?

Antwort1

Dazu braucht man ein Makro. Ich habe das folgende Makro gefunden und ein paar Änderungen daran vorgenommen. Probieren Sie es aus, um zu sehen, ob es richtig funktioniert:

Sub PrintCopies_ActiveSheet()

Dim CopiesCount As Long
Dim copynumber As Long

CopiesCount = Application.InputBox("How many copies do you want?", Type:=1)
'Now the program wants you to input how many pages you like to print.
'You can input 100 here.

For copynumber = 1 To CopiesCount
With ActiveSheet
   .Range("E1").Value = copynumber 'I assume your invoice number is in cell E1.
   .PrintOut 'Print the sheet
End With
Next copynumber
End Sub

Antwort2

Ich würde hierfür ein Makro verwenden, da es dafür offenbar keine einfache, integrierte Methode gibt. Die Struktur des Makros wäre recht einfach. Etwa so:

  1. Abfrage der Kopienanzahl und des Druckernamens
  2. Setzen Sie die Zelle „Rechnungsnummer“ auf 0
  3. Schleife für Anzahl Kopien
    1. Erhöhen Sie die Rechnungszellennummer
    2. Drucken Sie das Dokument auf dem Druckernamen

Bearbeiten

Diese Seitehat ein Beispiel dafür für Word, Sie können es also einfach an Excel anpassen. Diese Seitehat ein grobes Beispiel für Excel

verwandte Informationen