VBA Factuurnummer

[Woordvoerder]

Kan iemand mij uitleggen hoe deze code moet geschreven worden ?

A1 = 2015056
A2 = =vandaag()

Als mijn bestand opgeslagen word dan heb ik het ingesteld dat A1 veranderd word in 2015057
Maar mijn vraag is kan het ook zo ingesteld worden als het 2016 is dat het veranderd word in 2016001
En de jaar erop ook weer naar 2017
(Die kleuren zijn niet van toepassing dit heb ik puur gedaan voor duidelijke beeld)

 

[edmoor]

Deze denk ik:
=JAAR(VANDAAG()) & "057"

Hierbij mag "057" uiteraard ook weer een celverwijzing zijn.

 

[VenA]

Deze denk ik:d

Sub volgnr()
If Year(Date) = Int(Left([A1], 4)) Then [A1] = [A1] + 1 Else [A1] = Int(Year(Date) & "001")
End Sub

 

[Woordvoerder]

@edmoor,
dit is een formule dat werk niet want excel moet elke jaar automatisch het jaar aanpassen.

@VenA,
Nee denk ik niet, ik weet het wel zeker
Dit is precies wat ik bedoel.

voor mijn beeld

Year(Date) = Int(Left([H18], 4))

De nummer 4 staat het voor de eerste 4 cijfers in een cel?
Zo ja? (Nogmaals, voor mijn beeld) hoe zou je de laatste cijfers kunnen kiezen left veranderen in right?

 

[VenA]

Deze gok laat ik geheel aan u over:d

Gewoon proberen dan merk je het vanzelf.