Ausdruck mit fortlaufender Nummer

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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

Beliebteste Forumthreads (12 Monate)

Ausdruck mit fortlaufender Nummer

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

68 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Ausdruck mit fortlaufender Nummer

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

68 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread