Automatische factuurnummering Excel 2010

[AWils]

Hallo

Ik heb in Excel 2010 een factuursjabloon opgemaakt.
Alle klantengegevens worden in het juiste veld ingevuld door een klik, alsook de datum en vervaldag automatisch.

Ik zou graag mijn factuurnummering ook automatisch willen krijgen. Hiermee bedoel ik wanneer ik de sjabloon open om een nieuwe factuur te maken, dat ik automatisch de eerstvolgende factuurnummer krijg (bv laatste factuurnummer was 20120001, als ik sjabloon open zou ik 20120002 moeten zien).
Welke VBA-code moet ik waar ingeven?

Bedankt
A.

 

[MauriceSmit]

Geef de cel met het factuurnummer even een naam (b.v. 'factuurnummer'). Is makkelijker te refereren dan in VBA en als hij verandert van locatie blijft de code functioneel.

Dan de code 'achter' het sheet:

Private Sub Worksheet_Activate()
    Me.Range("factuurnummer") = Me.Range("factuurnummer") + 1
End Sub

Belangrijk:
Document dient ten alle tijde te worden opgeslagen (anders staat het 'oude' factuurnummer er nog in).