Excellsjabloon moet nieuw nummer krijgen bij opslaan als

[Tim2003]

hallo

Ik heb een sjabloon gemaakt in excel voor het uitrekenen van een zendnota.
Het is de bedoeling dat als ik dit sjabloon wil opslaan er een nieuw oplopend nummer moet komen te staan en dat hij voor het opslaan dit nummer moet nemen.
Ik had al zoiets, maar dit werkt (nog) niet.


Private Sub Workbook_Open()
Range("K4").Value = Range("K4").Value + 1
End Sub

Dank

Tim

 

[Roncancio]

Het lijkt mij het meest logisch dat de code in het event BeforeSave van ThisWorkbook staat.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Range("K4").Value = Range("K4").Value + 1
End Sub

Met vriendelijke groet,


Roncancio