Wie erhöht man den Zellenwert automatisch nach jedem Druck?

Angenommen, ich habe eine Arbeitsblattseite, die 100-mal gedruckt werden muss. Die Zelle A1 enthält die Prüfnummer Firma-001. Nun möchte ich, dass die Nummer nach jedem Ausdruck um 1 erhöht wird. Das bedeutet, wenn ich die zweite Kopie drucke, soll die Nummer automatisch auf Firma-002 erhöht werden, bei der dritten Kopie auf Firma-003… und bei der hundertsten Kopie auf Firma-100. Gibt es einen Trick, dieses Problem in Excel schnell und möglichst einfach zu lösen?

Automatische Erhöhung des Zellenwerts nach jedem Druck mit VBA-Code

Automatische Erhöhung des Zellenwerts nach jedem Druck mit VBA-Code

Normalerweise gibt es keinen direkten Weg, diese Aufgabe in Excel zu lösen, aber hier werde ich einen VBA-Code erstellen, um damit umzugehen.

1. Halten Sie die Tasten ALT + F11 gedrückt, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.

2. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code in das Modulfenster ein.

VBA-Code: Automatische Erhöhung des Zellenwerts nach jedem Druck:

Sub IncrementPrint()
'updateby Extendoffice
    Dim xCount As Variant
    Dim xScreen As Boolean
    Dim I As Long
    On Error Resume Next
LInput:
    xCount = Application.InputBox("Please enter the number of copies you want to print:", "Kutools for Excel")
    If TypeName(xCount) = "Boolean" Then Exit Sub
    If (xCount = "") Or (Not IsNumeric(xCount)) Or (xCount < 1) Then
        MsgBox "error entered, please enter again", vbInformation, "Kutools for Excel"
        GoTo LInput
    Else
        xScreen = Application.ScreenUpdating
        Application.ScreenUpdating = False
        For I = 1 To xCount
            ActiveSheet.Range("A1").Value = " Company-00" & I
            ActiveSheet.PrintOut
        Next
        ActiveSheet.Range("A1").ClearContents
        Application.ScreenUpdating = xScreen
    End If
End Sub

3. Drücken Sie dann die F5-Taste, um diesen Code auszuführen, und ein Eingabeaufforderungsfenster erscheint, das Sie auffordert, die Anzahl der Kopien einzugeben, die Sie vom aktuellen Arbeitsblatt drucken möchten, siehe Screenshot:

4. Klicken Sie auf die Schaltfläche OK, und Ihr aktuelles Arbeitsblatt wird nun gedruckt. Gleichzeitig werden die gedruckten Arbeitsblätter mit den Nummern Firma-001, Firma-002, Firma-003… in Zelle A1 nummeriert, wie Sie es benötigen.

Hinweis: Im obigen Code wird die Zelle A1 mit den von Ihnen angegebenen Sequenznummern versehen, und der ursprüngliche Zellenwert in A1 wird gelöscht. „Firma-00“ ist die Sequenznummer, die Sie bei Bedarf ändern können.