ich möchte 500 gutscheine erstellen,
nummeriert, fortlaufend 1-500.
habe dazu bereits einen "druckzähler" (siehe unten)
nun möchte ich jedoch noch namen in eine zelle integrieren, z.B.
gutschein mit nr. 1-25 = XYZ
gutschein mit nr. nr 26-70 = ABC
usw.
vielen dank für hilfe & rückmeldung
Sub Druckzähler()
Dim AnzSeiten As Integer, i As Integer
alt = Cells(1, 12)
AnzSeiten = InputBox("Wieviele Seiten sollen gedruckt werden?", "Frage", 1)
For i = 1 To AnzSeiten
Cells(1, 8) = alt + i
ActiveSheet.PrintOut
Next i
End Sub