Opgelost wegschrijven via vba voorloop nul gebruiken bij opslaan file naam

[Friend]

Beste forummers,

Ik heb de volgende regel waarin "volgnr" komt uit : volgnr = ActiveSheet.Range("N4") dit nummer wordt elke keer bij een nieuwe file opgehoogd.

ActiveWorkbook.SaveAs Filename:="C:\2024\" & volgnr & "-" & decldate, FileFormat:=xlOpenXMLWorkbookMacroEnabled, _
    Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
    CreateBackup:=False

Het begint met 1. Kan ik het in het opslaan altijd 2 cijferig maken? Dus : 01 etc. Eigenlijk dus een voorloop nul als het 1 cijfer is .
Dat sorteert mijn files namelijk beter.

Is dat Format(volgnr ???

Friend

 

[Mde]

misschien zo:

if volgnr<10 then volgnr = 0 & volgnr

niet getest

 

[HSV]

.SaveAs Filename:="C:\2024\" & format(volgnr,"00") &

 

[Friend]

Marco,

Hartelijk dank voor je reactie en je code Ik krijg nu nog een compileerfout. Dus daar ga ik nog even op studeren.

Friend

 

[Friend]

Harry,

Hartelijk dank voor je reactie en je code
Dat doet precies wat het moet doen.

Top, dank je wel.

Friend