Automatisch nummeren

[Yasmin]

Ik wil een document (A4 formaat) ontwerpen in Excel met in de rechter bovenhoek een doorlopende nummering (Alfa nummeriek). Hoe krijg ik het voor elkaar dat bij het geven van een printopdracht het nummer automatisch 1 nummer hoger wordt dan de vorige afdruk.

Ook lijkt me het handig dat de beginwaarde eenvoudig in te stellen is.

vr.gr. André

 

[jpvs]

Met deze macro zou het moeten lukken:

Eventueel de cel I2 aanpassen?

Sub PrintenMetNummering()
Dim invoer As Integer
Dim i As Integer
invoer = InputBox("aantal afdrukken")
For i = 1 To invoer
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Range("I2") = Range("I2") + 1
Next i
End Sub


Pierre