Hallo liebe VBAler,

ich verzweifle derzeit an der Umsetzung einer fortlaufenden Nummerierung von Verzehrkarten beim Mehrfachdruck.

Der Plan:
Auf einer DIN-A4 Seite sollen je vier Verzehrkarten gedruckt werden. Oben rechts steht eine fortlaufende Nummerierung der individuellen Kartennummer. (Zellen F2, M2, F27, M27)

In Zelle P6 soll die gewünschte Anzahl an Druckerzeugnissen eingetragen werden (z.B. 25, um 100 Verzehrkarten zu drucken) Jede dieser Verzehrkarten soll durch eine For Next Schleife eine individuelle Kartennr. (Zellen F2, M2, F27, M27) erhalten.
Vor eingetragen sind die Zahlen 1-4. Nach jedem Print sollen die Zahlen in den Zellen F2, M2, F27, M27 um 4 erhöht werden und dann automatisch weiter ausgedruckt werden.

Über eure Hilfe würde ich mich sehr freuen :)

Hierzu habe ich folgenden Code "verhunzt":

Sub Drucken()

Dim Anzahl As Integer
Dim i As Integer
Dim Kartennr1 As Integer
Dim Kartennr2 As Integer
Dim Kartennr3 As Integer
Dim Kartennr4 As Integer

Anzahl = CInt(P6.Value)
KartennrA = CInt(F2.Value)
KartennrB = CInt(M2.Value)
KartennrC = CInt(M27.Value)
KartennrD = CInt(M27.Value)

For i = 1 To Anzahl

ThisWorkbook.Sheet.Range("A1:N49").PrintOut
KartennrA.Value = KartennrA.Value + 4
KartennrB.Value = KartennrB.Value + 4
KartennrC.Value = KartennrC.Value + 4
KartennrD.Value = KartennrD.Value + 4

Next i
End Sub

https://www.herber.de/bbs/user/164488.xlsm