Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: fortlaufende Nummerierung beim Druck

fortlaufende Nummerierung beim Druck
06.12.2018 12:04:40
TS
Guten Tag zusammen.
Für unseren Verein habe ich einen Verzehrzettel (Excel / 1 Seite / Tabelle1) gemacht.
In der Zelle "F1" steht eine Zahl(startet ab 1500), die bei jedem Ausdruck um 1 erhöht werden soll (fortlaufende Nummerierung).
Ich möchte 500 Verzehrzettel ausdrucken.
Hat jemand eine VBA Lösung?
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
das Archiv hat lösungen. owT
06.12.2018 12:15:06
Rudi
AW: fortlaufende Nummerierung beim Druck
06.12.2018 12:23:52
TS
Habe ich schon geschaut. Die fortlaufende Nummerierung bekomme ich hin, aber die Anzahl der zu druckenden Seiten nicht
AW: fortlaufende Nummerierung beim Druck
06.12.2018 12:27:32
TS
Das habe ich für die fortlaufende Nummerierung
Sub Druck()
Dim wert As String
ActiveWindow.SelectedSheets.PrintOut 'Druckt den angegebenen Druckbereich
wert = Range("F1").Value ' Bereich, wo Wert ist: J5 abändern
Range("F1").Value = wert + 1 ' J5 abändern
End Sub

Anzeige
AW: fortlaufende Nummerierung beim Druck
06.12.2018 12:59:04
Werner
Hallo,
so:
Sub Druck()
Dim Anzahl As Long, i As Long
Anzahl = Range("A1") 'anpassen
For i = 1 To Anzahl
ActiveWindow.SelectedSheets.PrintOut 'Druckt den angegebenen Druckbereich
Range("F1") = Range("F1") + 1 ' J5 abändern
Next i
End Sub
Gruß Werner
Anzeige
AW: fortlaufende Nummerierung beim Druck
06.12.2018 12:59:12
UweD
Hallo
so?
Sub Druck()
    Dim Anzahl, i As Integer
    
    Anzahl = InputBox("Wie viele?", "Druck", 500)
    If Not IsNumeric(Anzahl) Then MsgBox "Abbruch": Exit Sub
    For i = 1 To Anzahl
    
        ActiveWindow.SelectedSheets.PrintOut 'Druckt den angegebenen Druckbereich 
        With Range("F1")
            .Value = .Value + 1
        End With
    Next
End Sub

LG UweD
Anzeige
AW: fortlaufende Nummerierung beim Druck
07.12.2018 10:48:55
TS
Danke Uwe
Klappt hervorrangend
Lieben Dank auch an alle anderen
gern geschehen owT
07.12.2018 10:55:27
UweD
;
Anzeige
Anzeige

Infobox / Tutorial

Fortlaufende Nummerierung beim Druck in Excel


Schritt-für-Schritt-Anleitung

Um eine fortlaufende Nummerierung beim Drucken in Excel zu erstellen, kannst du die folgende VBA-Lösung verwenden. Diese Anleitung beschreibt, wie du die Nummerierung in der Zelle "F1" beginnend bei 1500 um 1 erhöhst, während du 500 Verzehrzettel druckst.

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Klicke im Menü auf Einfügen und wähle Modul.

  3. Füge den folgenden Code in das Modul ein:

    Sub Druck()
       Dim Anzahl As Long, i As Long
       Anzahl = 500 ' Anzahl der zu druckenden Seiten
       For i = 1 To Anzahl
           ActiveWindow.SelectedSheets.PrintOut ' Druckt den angegebenen Druckbereich
           Range("F1").Value = Range("F1").Value + 1 ' Erhöht die Nummer in F1 um 1
       Next i
    End Sub
  4. Schließe den VBA-Editor und gehe zurück zu Excel.

  5. Stelle sicher, dass die Zelle "F1" mit der Startnummer (z.B. 1500) gefüllt ist.

  6. Führe das Makro aus, indem du ALT + F8 drückst und das Makro Druck auswählst.


Häufige Fehler und Lösungen

  • Fehler: Das Makro führt keinen Druck aus.

    • Lösung: Stelle sicher, dass der Drucker korrekt eingerichtet und verbunden ist. Überprüfe auch die Druckeinstellungen in Excel.
  • Fehler: Die Nummer in F1 wird nicht erhöht.

    • Lösung: Überprüfe, ob der Zellbereich korrekt angegeben ist. Stelle sicher, dass du die richtige Zelle (F1) im Code verwendest.

Alternative Methoden

Wenn du keine VBA-Lösungen verwenden möchtest, kannst du auch die fortlaufende Nummerierung direkt in Excel ohne Programmierung durchführen:

  1. Gib in die Zelle "F1" die Startnummer (z.B. 1500) ein.
  2. In der Zelle "F2" kannst du die Formel =F1+1 verwenden.
  3. Ziehe das untere rechte Eck der Zelle "F2" nach unten, um die Nummerierung zu kopieren.
  4. Drucke die gewünschte Anzahl von Seiten aus, indem du den Druckbereich entsprechend anpasst.

Praktische Beispiele

Hier sind einige Beispiele, wie du die fortlaufende Nummerierung in verschiedenen Szenarien nutzen kannst:

  • Verzehrzettel für Veranstaltungen: Verwende die obige VBA-Lösung, um für jeden Teilnehmer einen individuellen Verzehrzettel mit fortlaufenden Nummern zu drucken.
  • Rechnungen: Du kannst eine ähnliche Methode verwenden, um Rechnungen mit fortlaufenden Rechnungsnummern zu erstellen.

Die Verwendung der fortlaufenden Nummerierung in Word kann auch nützlich sein, wenn du Dokumente drucken möchtest, die ebenfalls eine Nummerierung benötigen.


Tipps für Profis

  • Sicherungskopien: Erstelle immer eine Sicherungskopie deines Excel-Dokuments, bevor du Makros ausführst.
  • Druckvorschau: Nutze die Druckvorschau, um sicherzustellen, dass alles korrekt aussieht, bevor du die endgültigen Drucke machst.
  • Automatisierung: Du kannst die VBA-Skripte anpassen, um die Nummerierung basierend auf bestimmten Bedingungen zu steuern.

FAQ: Häufige Fragen

1. Frage
Kann ich die fortlaufende Nummerierung in Word verwenden?
Antwort: Ja, du kannst die fortlaufende Nummerierung in Word mit ähnlichen Methoden wie in Excel durchführen, indem du die Serienbrief-Funktion nutzt.

2. Frage
Wie viele Seiten kann ich mit dieser Methode drucken?
Antwort: Du kannst so viele Seiten drucken, wie du möchtest, solange die Anzahl in der Variable Anzahl korrekt eingestellt ist.

3. Frage
Was passiert, wenn ich eine falsche Nummer eingebe?
Antwort: Wenn du eine nicht-numerische Eingabe machst, wird eine Fehlermeldung angezeigt, und das Makro wird abgebrochen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige