Hallo ihr alle,
ich habe folgendes Problem:
Es soll ein Formular erstellt werden mit einem Nummernfeld (nehmen wir an, es befindet sich in A1). Beim Drucken soll diese Nummer mit jedem Ausdruck um 1 erhöht werden. Wenn ich also beim Drucken auswähle, dass das Bestellformular 50 mal ausgedruckt wird, sollen die Ausdrucke die Nummern 1-50 erhalten. Beim nächsten Drucken, wenn ich das Formular nur 5 mal ausdrucke, soll natürlich weitergezählt werden, hier also von 51-55. Wie kann ich das wohl bewerkstelligen?
leg in Deiner Datei das Blatt „Steuerung“ an, in dem in Zelle A1 der Zähler gespeichert wird. Starte das beigefügte Makro aus dem auszudruckenden Blatt heraus und freu Dich.
Manfred
Sub nDrucken()
n = InputBox(„Wieviele Seiten?“, „Frage“, 1)
For x = 1 To n
Zähler = Worksheets(„Steuerung“).Cells(1, 1).Value
ActiveSheet.Cells(1, 1).Value = Zähler + x
ActiveSheet.PrintOut
Next x
Worksheets(„Steuerung“).Cells(1, 1).Value = Worksheets(„Steuerung“).Cells(1, 1).Value + n