Note: The other languages of the website are Google-translated. Back to English

 Wie kann der Zellenwert nach jedem Druck automatisch erhöht werden?

Angenommen, ich habe eine Arbeitsblattseite, die zum Drucken von 100 Exemplaren benötigt wird. Die Zelle A1 ist die Schecknummer Company-001. Jetzt möchte ich, dass die Nummer nach jedem Ausdruck um 1 erhöht wird. Das heißt, wenn ich das zweite Exemplar drucke, wird die Nummer automatisch auf Company-002 erhöht, das dritte Exemplar auf Company-003… einhundert Exemplare, die Nummer lautet Company-100. Gibt es einen Trick, um dieses Problem in Excel schnell und möglicherweise zu lösen?

Automatischer Inkrementieren des Zellenwerts nach jedem Drucken mit VBA-Code


Pfeil blau rechte Blase Automatischer Inkrementieren des Zellenwerts nach jedem Drucken mit VBA-Code

Normalerweise gibt es für Sie keine direkte Möglichkeit, diese Aufgabe in Excel zu lösen, aber hier werde ich einen VBA-Code erstellen, um damit umzugehen.

1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modul Fenster.

VBA-Code: Zellenwert nach jedem Druck automatisch erhöhen:

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. Dann drücken F5 Wenn Sie die Taste drücken, um diesen Code auszuführen, wird ein Eingabeaufforderungsfeld angezeigt, das Sie daran erinnert, die Anzahl der Kopien einzugeben, die Sie für das aktuelle Arbeitsblatt drucken möchten. Siehe Screenshot:

Dokumentinkrement beim Drucken 1

4. Klicken Sie OK Klicken Sie auf die Schaltfläche, und Ihr aktuelles Arbeitsblatt wird jetzt gedruckt. Gleichzeitig werden die gedruckten Arbeitsblätter in Zelle A001 nach Bedarf mit der Nummer Company-002, Company-003, Company-1… nummeriert.

Hinweis: Im obigen Code die Zelle A1 Es werden die von Ihnen bestellten Sequenznummern und der ursprüngliche Zellenwert in eingefügt A1 wird gelöscht. Und "Firma-00”Ist die Sequenznummer, können Sie sie nach Ihren Wünschen ändern.


Die besten Tools für die Office-Produktivität

Kutools for Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%

  • Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
  • Super Formelriegel (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
  • Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen / Spalten... doppelte Zellen verhindern; Bereiche vergleichen...
  • Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
  • Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
  • Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
  • Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
  • Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
  • Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2021 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. 30-tägige kostenlose Testversion mit allen Funktionen. 60 Tage Geld-zurück-Garantie.
kte tab 201905

Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich

  • Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
  • Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
officetab unten
Kommentare (51)
Noch keine Bewertungen. Bewerten Sie als Erster!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Dieser Code ist erstaunlich, es ist genau das, was ich brauche, aber ich habe mich gefragt, ob es eine Möglichkeit gibt, mit dem Drucken von der Nummer zu beginnen, die in Zelle "A1" eingegeben wurde? Wenn ich zum Beispiel 100 Exemplare gedruckt habe, muss ich beim nächsten Drucklauf ab Nummer 101 drucken und von dort aus hochzählen. Ich habe ein paar Code-Anpassungen ausprobiert, aber es scheint nur die in die Zelle eingegebene Nummer zu nehmen, dh 101, 1 hinzuzufügen, und dann bleiben die restlichen Ausdrucke bei dieser einen Nummer, dh 102 ... Ihre Hilfe wäre sehr dankbar: -)
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Wenn Sie noch keine Lösung gefunden haben, können Sie Zeile 17 des Codes wie folgt bearbeiten: ActiveSheet.Range("A1").Value = Range("A1").Value + 1
Dies fügt +1 zu der Nummer hinzu, die Sie in Zelle A1 haben.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Es wird nicht an meinen Drucker gesendet
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Guten Tag,

en exécutant la macro ça efface le nombre de ma cellule.
Je voudrais par exemple avoir A1= 153, je lance une impression de 10 Exemplare. J'ai dis feuilles imprimée de 154 à 164 ET je voudrais que le nombre de la cellule soit aussi 164.
Comme ça quand je relance une impression ça prend le chiffre dans A1.
J'aimerais auch si possible na pas à avoir aller dans basic. je voudrais que la macro s'active directement via l'option impression. Ist das möglich?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Guten Tag,

en exécutant la macro ça efface le nombre en A1.

je voudrais si c'est possible par exemple A1=153 et faire une impression de 10 Exemplare. donc je récupéré 10 impressions numérotées de 154 à 164 ET je voudrais aussi que le 153 en A1 s'incrémente jusqu'à 164.

Je voudrais aussi möglich ne pas à avoir utiliser basic pour l'impression. je voudrais pouvoir declancher directement la macro en utilisant l'option impression tout simplement.

Vielen Dank für Ihre Hilfe
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Kaji,
Um Ihr Problem zu lösen, wenden Sie bitte den folgenden Code an:
Sub IncrementPrint_Num()
Dim xCount As Variant
Dim xScreen As Boolean
Dim I As Long
Dim xInt As Integer
On Error Resume Next
xInt = 153 'number
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
xInt = xInt + 1
ActiveSheet.Range("A1").Value = xInt
ActiveSheet.PrintOut
Next
Application.ScreenUpdating = xScreen
End If
End Sub

Bitte versuchen Sie es, ich hoffe, es kann Ihnen helfen, wenn Sie ein anderes Problem haben, kommentieren Sie es bitte hier.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Anbei finden Sie die geänderten Codes.

Und hier im Text:
Sub IncrementPrint()
'updateby Extendoffice
Dim xEnd als Variante
Dim xStart als Variante
Dim xScreen As Boolean
Dimme ich so lange
On Error Resume Next
LEingang:
xStart = Application.InputBox("Bitte geben Sie die erste Zahl ein:", "Kutools for Excel")
xEnd = Application.InputBox("Bitte geben Sie die letzte Zahl ein:", "Kutools for Excel")
Wenn TypeName(xCount) = „Boolean“, dann Sub beenden
If (xStart = "") Or (Not IsNumeric(xStart)) Or (xStart < 1) Then
MsgBox "Fehler eingegeben, bitte erneut eingeben", vbInformation, "Kutools for Excel"
Gehe zu LInput
sonst
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = False
Für I = xStart bis xEnd
ActiveSheet.Range("A1").Value = "Company-00" & I
ActiveSheet.PrintOut
Weiter
ActiveSheet.Range("A1").ClearContents
Application.ScreenUpdating = xScreen
End If
End Sub
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich brauche Seriennummern wie IA1-055242, IA1-055243, IA1-055244 .....
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Vielen Dank für diesen Beitrag, er ist sehr hilfreich. Meine Frage ist folgende: Ich habe 2 verschiedene Barcodes, die auf einer Seite erhöht werden müssen, wie kann ich den Code ändern, um das zu tun?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Tut mir leid, dies in einem separaten Beitrag zu fragen ... Meine Seriennummern beginnen mit einer NULL, aber wenn ich das Programm ausführe, werden die Nullen eliminiert. Ich habe versucht, das Zahlenfeld in Text umzuwandeln, aber das hat es nicht behoben. Andere Ideen?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Klicken Sie mit der rechten Maustaste auf Zelle, Format, Benutzerdefiniert, wo "Allgemein" steht, ersetzen Sie das durch so viele Nullen, wie Ihre Seriennummer sein wird. Dadurch wird die erforderliche Anzahl von Nullen vor Ihrer Seriennummer erzwungen. Wenn ich eine Gruppe von Seriennummern habe, bei denen es sich um 10-stellige Seriennummern handelt, gebe ich 0000000000 in das Feld „Typ“ ein, damit „0004563571“ im Feld „Seriennummer“ angezeigt wird.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Danke Kunst. Ich habe das versucht, aber der Barcode eliminierte weiterhin die führenden Nullen ... selbst nachdem ich ein benutzerdefiniertes Zahlenformat erstellt hatte.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Meine Seriennummer beginnt mit 227861, von wo aus ich drucken kann
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Gedruckt wie 30 Kopien, aber jetzt kann ich nicht drucken, habe das Skript viele Male ausgeführt, aber es funktioniert nicht, mach nichts :(
Dieser Kommentar wurde vom Moderator auf der Website minimiert
danke für das obige, wirklich hilfreich. ist es möglich, den letzten Wert zu speichern und sich daran zu erinnern
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Pieter,
Um den zuletzt gedruckten Wert beim nächsten Drucken zu speichern und sich daran zu erinnern, sollten Sie den folgenden VBA-Code anwenden:

Sub IncrementPrint()
Dim xCount als Variante
Dim xScreen As Boolean
Dimme ich so lange
xM so lang dimmen
Dim xMNWS als Arbeitsblatt
Dim xAWS als Arbeitsblatt
On Error Resume Next
LEingang:
xCount = Application.InputBox("Bitte geben Sie die Anzahl der Kopien ein, die Sie drucken möchten:", "Kutools for Excel")
Wenn TypeName(xCount) = „Boolean“, dann Sub beenden
If (xCount = "") Or (Not IsNumeric(xCount)) Or (xCount < 1) Then
MsgBox "Fehler eingegeben, bitte erneut eingeben", vbInformation, "Kutools for Excel"
Gehe zu LInput
sonst
xScreen = Application.ScreenUpdating
Legen Sie xAWS = ActiveSheet fest
Bei Fehler GoTo EMarkNumberSheet
Setze xMNWS = Sheets("IncrementPrint_MarkNumberSheet")
EMarkNumberSheet:
Wenn xMNWS dann nichts ist
Setze xMNWS = Application.Worksheets.Add(Type:=xlWorksheet)
xMNWS.Name = "IncrementPrint_MarkNumberSheet"
xMNWS.Range("A1").Wert = 0
xM = 0
xMNWS.Visible = xlSheetVeryHidden
sonst
xM = xMNWS.Bereich("A1").Wert
End If
Application.ScreenUpdating = False
Für I = 1 bis xCount
xM = xM + 1
xAWS.Range("A1").Value = " Company-00" & xM
xAWS.PrintOut
Weiter
xMNWS.Range("A1").Wert = xM
xAWS.Range("A1").ClearContents
Application.ScreenUpdating = xScreen
End If
End Sub

Wenn Sie die gedruckte Nummer auf die Standardnummer zurücksetzen müssen, führen Sie bitte zuerst den folgenden Code aus und führen Sie dann den obigen Code zum Drucken aus.

Sub IncrementPrint_Reinstall()
Dim xMNWS als Arbeitsblatt
Bei Fehler GoTo EMarkNumberSheet
Setze xMNWS = Sheets("IncrementPrint_MarkNumberSheet")
EMarkNumberSheet:
Wenn nicht, dann ist xMNWS nichts
Application.DisplayAlerts = Falsch
xMNWS.Visible = xlSheetHidden
xMNWS.Löschen
Application.DisplayAlerts = True
End If
End Sub
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, vielen Dank für diesen Code. Ich habe eine Frage. Ich habe diesen Code verwendet, aber die Serien springen wie 0071,0072,0073. ist zwischen Serie 3-1 etwa 100x passiert. Also habe ich die vba geschlossen, ohne den Code neu zu speichern, aber es wird die letzte gespeicherte Serie gedruckt (0032). Meine Frage ist, wie kann ich kontinuierlich drucken, ohne dass die Serie springt, und wie kann ich ab 101 erneut drucken? wird Ihre Antwort wirklich zu schätzen wissen. das tut mir leid. Ich bin kein Programmierer, ich hoffe du verstehst das. Danke! 
Dieser Kommentar wurde vom Moderator auf der Website minimiert
vielen Dank für diesen Beitrag, das ist sehr hilfreich. Meine Frage ist folgende: Ich habe 2 verschiedene Barcodes, die auf einer Seite erhöht werden müssen, wie kann ich den Code ändern, um das zu tun?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Desmond,
Wenn Sie 2 Stellen auf einer Seite haben (z. B. 2 Gutscheine oder 2 Vorlagen / 2 Gutscheine usw.), können Sie es mit dem folgenden Code versuchen. (Angenommen, Ihr 1. Barcode und 2. Barcode befinden sich in den Zellen "A1" und "A20" auf derselben Seite, erhöht dieser Code Werte wie Company-001 und Company-002 auf der ersten Seite und Company-003 und Company-004 auf der zweiten Seite usw. Sie können die Zellennummer und den Firmennamen in den Zeilen 20, 21, 23, 24 und 28,29 des Codes beliebig bearbeiten. 
Sie werden auch aufgefordert, die Startnummer und die Endnummer einzugeben (Danke an Geniusman für diesen Teil des Codes). Also zum Beispiel Ihre Start-Nr. ist 1 und endet nicht. 8, es werden 4 Seiten von 1,2 auf der 1. Seite, 3,4 auf der 2. Seite, 5,6 auf der 3. Seite und schließlich 7,8 auf der 4. Seite gedruckt. Ich hoffe, es hilft Ihnen oder jemandem, der nach dieser Art von Bedarf / Anforderung sucht. 
Geänderter Code:------------------------------------------------------------ ------------Sub IncrementPrint()
'updateby Extendoffice
Dim xEnd als Variante
Dim xStart als Variante
Dim xScreen As Boolean
Dimme ich so lange
On Error Resume Next
LEingang:
xStart = Application.InputBox("Bitte geben Sie die erste Zahl ein:", "Kutools for Excel")
xEnd = Application.InputBox("Bitte geben Sie die letzte Zahl ein:", "Kutools for Excel")
Wenn TypeName(xCount) = „Boolean“, dann Sub beenden
If (xStart = "") Or (Not IsNumeric(xStart)) Or (xStart < 1) Then
MsgBox "Fehler eingegeben, bitte erneut eingeben", vbInformation, "Kutools for Excel"
Gehe zu LInput
sonst
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = False
Für I = xStart bis xEnd
Wenn ich Mod 2 = 0 dann
ActiveSheet.Range("A1").Value = "Company-00" & I + 1
ActiveSheet.Range("A20").Value = "Company-00" & I
sonst
ActiveSheet.Range("A20").Value = "Company-00" & I + 1
ActiveSheet.Range("A1").Value = "Company-00" & I
ActiveSheet.PrintOut
End If
Weiter
ActiveSheet.Range("A1").ClearContents
ActiveSheet.Range("A20").ClearContents
Application.ScreenUpdating = xScreen
End If
End Sub

-------------------------------------------------- -------------------------------------------------- -----Danke, RNS
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Meine Zelle ist I3 und die Nummer ist 2298, wenn ich den (VBA-Code: Zellenwert nach jedem Drucken automatisch erhöhen :) versuche, gibt es mir 22981, wie ich es auf 2298,2299,2300 bekomme
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Jennifer,
Um Ihr Problem zu lösen, wenden Sie bitte den folgenden VBA-Code an:
Hinweis: Bitte ändern Sie den Präfixtext und die Nummer in Ihre eigenen.

Sub IncrementPrint_Num()
Dim xCount als Variante
Dim xScreen As Boolean
Dimme ich so lange
Dim xStr als Zeichenfolge
Dim xInt als ganze Zahl
On Error Resume Next
xStr = "Company-" 'Präfixtext
xInt = 2291 'Zahl
LEingang:
xCount = Application.InputBox("Bitte geben Sie die Anzahl der Kopien ein, die Sie drucken möchten:", "Kutools for Excel")
Wenn TypeName(xCount) = „Boolean“, dann Sub beenden
If (xCount = "") Or (Not IsNumeric(xCount)) Or (xCount < 1) Then
MsgBox "Fehler eingegeben, bitte erneut eingeben", vbInformation, "Kutools for Excel"
Gehe zu LInput
sonst
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = False
Für I = 1 bis xCount
xInt = xInt + 1
ActiveSheet.Range("A1").Value = xStr & xInt
ActiveSheet.PrintOut
Weiter
ActiveSheet.Range("A1").ClearContents
Application.ScreenUpdating = xScreen
End If
End Sub

Bitte versuchen Sie es, ich hoffe, es kann Ihnen helfen!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo kannst du mir dabei helfen? Ich möchte, dass xINT mehr als 5 Ziffern enthält. Jedes Mal, wenn ich eine Zahl mit 6 Ziffern eingebe, geht die Zählung auf 1 zurück. Wie kann ich das verhindern?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, sehr interessant, obwohl ich nach einer anderen Lösung suche, die ich nicht finden konnte, und selbst wenn ich versucht habe, den Code anzupassen, konnte dies bisher nicht erreicht werden. Nach Ihrem Beispiel müsste ich dieselbe Seite 100 Mal drucken. zum Beispiel in das gleiche PDF und auf jeder Seite wird die Seitenzahl erhöht. Wie ich schon sagte, habe ich die Sortiermethode ausprobiert, aber wie ich verstanden habe, können Sie sie zusammen drucken, wenn Sie mehrere Kopien desselben Ausdrucks benötigen. Vielen Dank im Voraus, Giuseppe
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, dieser Code funktioniert ausgezeichnet, aber nach 32767 Zellenwert geht er wieder auf 1 zurück. Nach diesem Wert wird ab Nummer 1 gedruckt.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
vielen Dank, bei mir funktioniert es. Und ich schaffe es, ein paar kleine Änderungen an meinen Bedürfnissen vorzunehmen. Schätzen Sie wirklich zu Ihrem Teilen.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Jennifer, versuche es mal
Sub IncrementPrint()
'updateby Extendoffice 20160530
Dim xCount als Variante
Dim xScreen As Boolean
Dimme ich so lange
On Error Resume Next
LEingang:
xCount = Application.InputBox("Bitte geben Sie die Anzahl der Kopien ein, die Sie drucken möchten:", "Kutools for Excel")
Wenn TypeName(xCount) = „Boolean“, dann Sub beenden
If (xCount = "") Or (Not IsNumeric(xCount)) Or (xCount < 1) Then
MsgBox "Fehler eingegeben, bitte erneut eingeben", vbInformation, "Kutools for Excel"
Gehe zu LInput
sonst
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = False
Für I = 1 bis xCount

ActiveSheet.PrintOut
ActiveSheet.Range("J18").Value = ActiveSheet.Range("J18").Value + 1
Weiter
'ActiveSheet.Range("J18").ClearContents'

Application.ScreenUpdating = xScreen
End If
End Sub
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Dank einer Million
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Funktioniert gut zum Drucken von inkrementellen Nummern. Wie drucke ich bei Bedarf jeden 5., 10.?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Gibt es eine Möglichkeit auszuwählen, welche Werte ich drucken möchte? Zum Beispiel habe ich die Sequenzen 1 bis 30 gedruckt, muss aber die Sequenzen 15 bis 19 erneut drucken.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hey, ich möchte die Nummer der K11-Zellennummer nach dem Drucken auf 1-2-3-4-5-6 usw. ändern. Können Sie mir helfen? und sagen Sie mir auch, wie man diese Funktion aufruft
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich habe mich gefragt, wie ich eine kleine Änderung vornehmen kann, damit 1 von 10, 2 von 10, 3 von 10 usw. gedruckt wird.
Ansonsten funktioniert das super. Vielen Dank.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, mein Name ist sicher. Ich habe Daten im Excel-Format ohne Seriennummer, die ein Beispiel für einen Frachtbrief enthalten. Ich muss es als 100 Seiten drucken und muss die Seriennummer drucken, was immer ich von einer 4-Ziffer brauche, aber während des Druckens muss ich es manuell tun. Können Sie erklären, wer beim Drucken automatisch den Seriennummerncode generieren soll?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Toll !! Ich bin kein Programmierer, aber ich habe es geschafft, die Zellenreferenz und die gewünschte eindeutige Nummerierung zu ändern. Hat bei mir super funktioniert Gott segne dich!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Kann man diesen Code auch ergänzen, damit automatisch 2 Exemplare gedruckt werden?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich würde denken, Sie könnten diesen Teil ändern: ActiveSheet.Range("A1").Value = "Company-00" & I
ActiveSheet.PrintOut

zu
ActiveSheet.Range("A1").Value = "Company-00" & I
ActiveSheet.PrintOut
ActiveSheet.PrintOut

um jeweils 2 Exemplare zu erhalten.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich habe mich gefragt, ob Sie die Datei nach dem erneuten Öffnen einfach direkt ausdrucken können und sie immer noch der fortlaufenden Nummer folgt?
Was ich derzeit mache, ist jedes Mal, wenn ich die Datei öffne, ALT + F11, dann F5 und die Anzahl der Kopien anzugeben. Es wird dann die Datei mit der richtigen Nummerierung drucken und dann einfach erneut speichern. und wenn ich wieder öffnen werde, muss ich nur denselben Schritt tun.
Wenn es einen Code gibt, bei dem Sie ihn jedes Mal, wenn Sie die Datei öffnen, direkt ausdrucken können und er weiterhin der fortlaufenden Nummerierung folgt?
Vielen Dank im Voraus
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich habe mich gefragt, ob Sie die Datei nach dem erneuten Öffnen einfach direkt ausdrucken können und sie immer noch der fortlaufenden Nummer folgt?

Was ich derzeit mache, ist jedes Mal, wenn ich die Datei öffne, ALT + F11, dann F5 und die Anzahl der Kopien anzugeben. Es wird dann die Datei mit der richtigen Nummerierung drucken und dann einfach erneut speichern. und wenn ich wieder öffnen werde, muss ich nur denselben Schritt tun.

Wenn es einen Code gibt, bei dem Sie ihn jedes Mal, wenn Sie die Datei öffnen, direkt ausdrucken können und er weiterhin der fortlaufenden Nummerierung folgt?

Vielen Dank im Voraus
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Vielen Dank für das Teilen des obigen Codes. Es ist sehr hilfreich für alle. Können wir etwas mehr Code hinzufügen, um 8 Zahlen anstelle von 1 nach dem Drucken zu erhöhen? Warten auf Ihre Antwort. Vielen Dank
Es sind noch keine Kommentare vorhanden
Mehr laden
Hinterlassen Sie Ihre Kommentare
Als Gast posten
×
Bewerte diese Nachricht:
0   Figuren
Vorgeschlagene Standorte

Folgen Sie uns

Copyright © 2009 - www.extendoffice.com. | Alle Rechte vorbehalten. Unterstützt von ExtendOffice. | Sitemap
Microsoft und das Office-Logo sind Marken oder eingetragene Marken der Microsoft Corporation in den USA und / oder anderen Ländern.
Geschützt durch Sectigo SSL