Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
15.10.2025 13:31:47
WENN Formel mit zwei Bedingungen über 4 Spalten...
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
264to268
264to268
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ausdruck mit fortlaufender Nummer

Forumthread: Ausdruck mit fortlaufender Nummer

Ausdruck mit fortlaufender Nummer
05.06.2003 14:22:46
Heinz
Hallo,

ich habe einen Vordruck in der Größe eines Din A4 Blattes. Dieser enthält 4 gleiche Teile mit Daten. Dieser Vordruck wird nun mehrmals ausgedruckt, aber nicht immer in der gleichen Anzahl. Nun soll auf jedem der 4 Teile eine fortlaufende Nummer stehen. Den Anfang soll man vorgeben können ( Ich denke das mach ich mit einer separaten Zelle die nicht im Druckbereich liegt). Die Daten hole ich mir dann da (das ist kein Problem).
Wie aber kann ich nun auf dem zweiten Blatt die fortlaufende Nummerierung erhalten?
Beispiel: Ich brauche 5 Blätter. Ich gehe über "DAtei- drucken- Anzahl Kopien 5". Auf dem ersten Blatt Nummer 1-4 auf dem zweiten Blatt 5-8 usw.
Wer kann helfen?

Danke im Vorraus

Heinz

Anzeige

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Ausdruck mit fortlaufender Nummer
05.06.2003 15:17:26
Yal
_ Definiere ganz genau den Druckbereich der erste Blatt (siehe Ansicht>>Seitenumbruchvorschau, da kann man die Abgrenzungen verchieben)
_ füge unten eine Kopie durch Formeln ein. d.h. wenn die zweite Blatt auf A65 anfängt, fugt dort "=A1", in B65 "=B1" usw für alle Zellen. Format muss Du separat übertragen.
_ dies wiederholst Du 20 mal (oder nur 8 mal, wenn Du niemals mehr als 8 Kopie brauchst)
- fügt ein Fuß- oder Kopfzeile mit SeitenNr

Jetzt kannst Du sagen: Drucken, Seiten 1 bis 3, bis 5 oder bis 6, jede wird ihre eigene SeitenNr haben

Anzeige
Re: Ausdruck mit fortlaufender Nummer
05.06.2003 15:28:53
Heinz
Hallo Yal,

danke für Deinen Tip. Ist aber leider nicht ganz das was ich suche.
Es kommt vor das ich bis zu 20 Blätter drucken muss. Das ergibt eine doch recht große Datei. Ich habe ausserdem 33 verschiedene Dateien. Das zusammen ergibt einen recht großen Speicherbedarf.
Ich möchte eigentlich nur das eine Blatt in jeder Datei haben. Bisher drucke ich jedes Blatt einzeln. Das heißt: Nummer eingeben, drucken, nächste Nummer eingeben wieder drucken usw. ziemlich nervend halt.

Gruß Heinz

Anzeige
Re: Ausdruck mit fortlaufender Nummer
05.06.2003 15:44:40
Yal
Na gut.
Das Argument "33 verschiedene Dateien" hat mich überzeugt.
Folgende Makro etwa im PERSONL.xls speichern


Re: Ausdruck mit fortlaufender Nummer
05.06.2003 15:49:42
Ramses
Re: Ausdruck mit fortlaufender Nummer
05.06.2003 16:14:45
Heinz
Hallo Rainer,

beim ABlauf des Makros kommt ein Fehler. "Variable nicht definiert" bezieht auf die Zeile "For i = 1 To Var"
Ich habe das mal geändert in .......Var1.
Wenn ich dann das Makro laufen lasse fragt er die Anzahl ausrucke ab und bringt dann folgende Meldung:
"Laufzeitfehler 13, Typen unverträglich".
Damit kann ich leider nichts anfangen.

Gruß Heinz

Anzeige
Re: Ausdruck mit fortlaufender Nummer
05.06.2003 16:44:56
Ramses
Hallo Heinz,

Sorry,.. kleiner Lapsus meinerseits.

Es wird ein Integerwert aus der Inpubox zurückgegeben und gegen einen String geprüft.
Hier die korrekte Variante,... dafür mit Fehlerhandler ;-)


Option Explicit

Sub Print_Var_Pages()
Dim Var1 As Integer, Var2 As Integer
Dim i As Integer, n As Integer
Dim myError As Integer
Dim myMsg
On Error GoTo myPrintError
myError = 1
Var1 = InputBox("Wieviele Blätter sollen gedruckt werden", "Druckvorgang starten...", 5)
If IsEmpty(Var1) Then Exit Sub
myError = 2
Var2 = InputBox("Mit welcher Nummer soll begonnen werden", "Startnummer abfragen...", 1)
If IsEmpty(Var2) Then Exit Sub
For i = 1 To Var1
    myError = 3
    Range("A1") = Var2
    For n = 1 To 4
        ActiveSheet.PageSetup.PrintArea = Range("Bereich" & n)
        ActiveSheet.PrintOut
        ActiveSheet.PageSetup.PrintArea = ""
    Next n
    Var2 = Var2 + 4
Next i
myPrintExit:
Exit Sub

myPrintError:
Select Case myError
    Case 1
        myMsg = MsgBox("Für die Anzahl Seiten wurde keine korrekte Zahl eingegeben", vbCritical + vbOKOnly, "Fehler")
    Case 2
        myMsg = MsgBox("Für die Seitenanzahl wurde keine korrekte Zahl eingegeben", vbCritical + vbOKOnly, "Fehler")
    Case 3
        myMsg = MsgBox("Der Druck kann nicht gestartet werden", vbCritical + vbOKOnly, "Unbekannter Fehler")
End Select
Resume myPrintExit
End Sub
 

     Code eingefügt mit Syntaxhighlighter 1.16

Gruss Rainer

Anzeige
Re: Ausdruck mit fortlaufender Nummer
05.06.2003 17:01:17
Heinz
Hallo Rainer,

nochmals Danke. Funzt aber leider immer noch nicht.
Er meldet "Der Druck kann nicht gestartet werden, unbekannter Fehler".

Gruß Heinz

Ach Excel ist so sensibel :-)
05.06.2003 17:13:18
Ramses
Hallo Heinz,

ändere die folgende Zeile

ActiveSheet.PageSetup.PrintArea = Range("Bereich" & n)

in

ActiveSheet.PageSetup.PrintArea = Range("Bereich" & n).Address

Sorry.

Gruss Rainer

Anzeige
Re: Ach Excel ist so sensibel :-)
05.06.2003 17:37:35
Heinz
Hallo Rainer,
scheint wirklich sensibel zu sein. Funzt nämlich auch nicht, gleicher Fehler wie vorher. Brauchst Dich auch nicht zu endschuldigen, bin froh wenn Du mir hilfst ;-)

Gruß Heinz

Re: Ach Excel ist so sensibel :-)
05.06.2003 17:39:52
Ramses
Hallo Heinz,

tut mir leid.
Aber der Code wurde getestet, inclusive Tabellenaufbau und Namensvergebung.
Bei mir funktioniert er.

Schick mir mal die Tabelle.

Gruss Rainer

Anzeige
Fürs Archiv.... :-)
05.06.2003 22:24:05
Ramses
Hallo Heinz,

Du hast die Druckbereiche falsch benannt !
Statt "Bereich1" usw. hast du die Bereiche mit "Druckbereich1" usw. benannt.

Passe die Namen im Makro an

....Range("Druckbereich" & n).Address

und es läuft.

Gruss Rainer

Re: Fürs Archiv.... :-)
06.06.2003 14:15:48
Heinz
Hallo Rainer,

dickes Danke an Dich. Hab das jetzt im Griff und funzt genauso wie ich das haben wollte.

Gruß Heinz

Anzeige
;
Anzeige

Infobox / Tutorial

Fortlaufende Nummern drucken in Excel

Schritt-für-Schritt-Anleitung

Um fortlaufende Nummern zu drucken, kannst du ein Makro verwenden. Hier ist eine einfache Anleitung:

  1. Makro erstellen:

    • Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
    • Klicke auf Einfügen > Modul, um ein neues Modul zu erstellen.

  2. Code einfügen:

    • Kopiere den folgenden Code in das Modul:
    Option Explicit

Sub Print_Var_Pages()
   Dim Var1 As Integer, Var2 As Integer
   Dim i As Integer, n As Integer
   Dim myError As Integer
   Dim myMsg

   On Error GoTo myPrintError
   myError = 1
   Var1 = InputBox("Wieviele Blätter sollen gedruckt werden", "Druckvorgang starten...", 5)
   If IsEmpty(Var1) Then Exit Sub
   myError = 2
   Var2 = InputBox("Mit welcher Nummer soll begonnen werden", "Startnummer abfragen...", 1)
   If IsEmpty(Var2) Then Exit Sub

   For i = 1 To Var1
       myError = 3
       Range("A1") = Var2
       For n = 1 To 4
           ActiveSheet.PageSetup.PrintArea = Range("Bereich" & n).Address
           ActiveSheet.PrintOut
           ActiveSheet.PageSetup.PrintArea = ""
       Next n
       Var2 = Var2 + 4
   Next i
myPrintExit:
   Exit Sub

myPrintError:
   Select Case myError
       Case 1
           myMsg = MsgBox("Für die Anzahl Seiten wurde keine korrekte Zahl eingegeben", vbCritical + vbOKOnly, "Fehler")
       Case 2
           myMsg = MsgBox("Für die Seitenanzahl wurde keine korrekte Zahl eingegeben", vbCritical + vbOKOnly, "Fehler")
       Case 3
           myMsg = MsgBox("Der Druck kann nicht gestartet werden", vbCritical + vbOKOnly, "Unbekannter Fehler")
   End Select
   Resume myPrintExit
End Sub

  3. Makro ausführen:

    • Schließe den VBA-Editor und gehe zurück zu Excel.
    • Drücke ALT + F8, wähle Print_Var_Pages aus und klicke auf Ausführen.

  4. Anpassungen:

    • Stelle sicher, dass deine Druckbereiche korrekt benannt sind, z.B. "Bereich1", "Bereich2" usw.

Häufige Fehler und Lösungen

  • Fehlermeldung: "Der Druck kann nicht gestartet werden":

    • Überprüfe, ob die Druckbereiche korrekt benannt sind und den richtigen Zellbereich abdecken.

  • Laufzeitfehler 13, Typen unverträglich:

    • Achte darauf, dass die Variablen in den InputBoxen als Integer definiert sind.

  • Variable nicht definiert:

    • Stelle sicher, dass alle Variablen im Code deklariert sind. Nutze Option Explicit, um sicherzustellen, dass alle Variablen definiert werden.

Alternative Methoden

Falls du kein Makro verwenden möchtest, kannst du auch folgende Methoden ausprobieren:

  1. Formeln nutzen:

    • Erstelle eine fortlaufende Nummerierung in einer Zelle und kopiere diese einfach in die anderen Zellen.

  2. Seriennummern erstellen:

    • Wähle eine Zelle aus und gehe zu Start > Füllen > Serie, um eine Serie von fortlaufenden Nummern zu erzeugen.

Praktische Beispiele

Angenommen, du möchtest 5 Blätter mit jeweils 4 fortlaufenden Nummern drucken, beginnend bei 1. Der Code sorgt dafür, dass die Nummerierung auf jedem Blatt korrekt angewendet wird:

  • Blatt 1: 1, 2, 3, 4
  • Blatt 2: 5, 6, 7, 8
  • Blatt 3: 9, 10, 11, 12
  • usw.

Tipps für Profis

  • Druckbereich optimieren: Achte darauf, dass die Druckbereiche genau definiert sind, um Papier zu sparen.
  • Automatisierung: Überlege, ob du das Makro so anpassen kannst, dass es auch automatisch die Seitenzahlen in die Kopf- oder Fußzeile einfügt.
  • Testdruck: Mache vor dem endgültigen Druck immer einen Testdruck, um sicherzustellen, dass alles wie gewünscht aussieht.

FAQ: Häufige Fragen

1. Wie kann ich die Startnummer ändern? Du kannst die Startnummer im InputBox-Dialog ändern, der beim Ausführen des Makros erscheint.

2. Funktioniert das auch in Excel Online? Leider unterstützen viele Funktionen und Makros in Excel Online nicht dieselben Features wie die Desktop-Version. Es wird empfohlen, die Desktop-Version von Excel zu verwenden.

3. Kann ich auch mehr als 4 Bereiche drucken? Ja, du kannst die Schleifen im Makro anpassen, um mehr Bereiche zu drucken. Stelle sicher, dass du die entsprechenden Bereiche korrekt benennst.

4. Wie speichere ich das Makro? Speichere die Datei als Excel-Arbeitsmappe mit Makros (.xlsm), um das Makro zu behalten.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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