Automatisk faktura-nummerering

Hej.


Jeg er ved at lave en faktura-'blok' hvor kun faktura-numrene og diverse oplysninger om firmaet står på. Når de så er udskrevet skriver jeg manuelt på arket med kalker-papir i mellem.

Jeg HAR fået den til at tælle hver gang jeg udskriver, men den kan ikke huske hvilket nummer jeg er kommet til når jeg gemmer og lukker, og jeg skal også aktivere hvert ark imellem hver udskrift for at den opdaterer tallet. Er der en løsning på det?

Jeg har to ark. Et som Kunde-kopi, og et som Arkiv-kopi. Er det muligt at lave det sådan at jeg ikke skal ind at definere ved hver udskrift at det skal være hele projektmappen den skal udskrive.

Og så vil det være rart hvis den vil starte med nummer 100001


Her følger den VBA-kode jeg har brugt (har fundet den her på siden):

Kunde-kopi:

Private Sub Worksheet_Activate()
Close #2
Range("f8") = Tal1
End Sub


Arkiv-kopi:

Private Sub Worksheet_Activate()
Close #2
Range("f8") = Tal1
End Sub


ThisWorkBook:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
A = ActiveSheet.Name
Select Case A
Case "Kunde-kopi"
Tal1 = Tal1 + 1
Open "C:\Skabelontæller.txt" For Output As #2
Print #2, Tal1; Tal2
Close #2

Case "Arkiv-kopi"
Tal2 = Tal2 + 1
Open "C:\Skabelontæller.txt" For Output As #2
Print #2, Tal1; Tal2
Close #2


End Select
End Sub


Module1:

Global Tal1
Global Tal2



Håber i kan hjælpe, og hvis det er helt uforståeligt så skal jeg prøve at omformulere det!

På forhånd tak.

Med venlig hilsen
Jesper