Aufgabe:
- Es sollen Rezepte mit einer fortlaufenden Nummerierung gedruckt werden.
- Auf einem A4 Blatt werden die Rezepte vorgedruckt, danach sollen die Rezepte noch einmal durch den Drucker geschickt werden, der dann fortlaufende Seriennummern draufdrucken soll.
- Jedes Rezept erhält eine Seriennummer.
- Diese Aufgabe soll mit Excel umgesetzt werden.
- Wichtig: Da sich auf dem A4 Blatt 4 Rezepte befinden, wird am Ende der Stapel kreuz und quer geschnitten.
Lösung:
In die 4 Felder werden die Startwerte eingetragen, in das gelbe Feld die Stückanzahl.
Beispiel:
1 201 100 (Stück) 101 301
Erzeugt 400 Rezepte auf 100 Stück A4
Dazu das Makro starten:
Sub nTisk()
n = Worksheets("Vzor").Cells(1, 4).Value
For x = 1 To n
'links oben
Worksheets("Vzor").Cells(1, 1).Value = Worksheets("Vzor").Cells(1, 1).Value + 1
'links unten
Worksheets("Vzor").Cells(1, 2).Value = Worksheets("Vzor").Cells(1, 2).Value + 1
'rechts oben
Worksheets("Vzor").Cells(2, 1).Value = Worksheets("Vzor").Cells(2, 1).Value + 1
'rechts unten
Worksheets("Vzor").Cells(2, 2).Value = Worksheets("Vzor").Cells(2, 2).Value + 1
ActiveSheet.PrintOut
Next x
End Sub