Excel: datum laatst opgeslagen laten zien in een cel

[iAmRenzo]

Het is jammer dat alle onderwerpen hier op het forum zo snel gesloten worden, topics genoeg maar de oplossingen werken allemaal niet in Excel 365 (v16/NL).

Bijvoorbeeld, de opties in https://www.helpmij.nl/forum/showthread.php/930133-Datum-laatste-keer-opgeslagen geven bij mij een cel genaamd ?NAAM

Hoe krijg ik de datum/tijd in een cel van de laatst opgeslagen keer?

 

[edmoor]

Dan doe je niet goed wat er in dat topic staat.
Tevens ken ik ?NAAM niet, #NAAM! wel en dat betekent dat je een niet bestaande functie gebruikt.

Laat dus zien wat je hebt gedaan dat niet werkt.

 

[iAmRenzo]

Het probleem is dat ik het bestand niet kan uploaden (gevoelige info). En als ik het in een nieuw bestand doe (precies het zelfde) dan doet hij het natuurlijk wel.

 

[edmoor]

Dan zal je het in het eigenlijke document toch anders doen.

 

[Ad Becude]

En met deze in "ThisWorkbook"

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets(1).Range("B1") = Now()
End Sub

Wil je alléén de datum wijzig "Now()" in "Date"

 

[HSV]

Dat is niet het laatst opgeslagen datum @Ad.

Bij elke sluiting van het werkboek zal het overschreven worden, ook als het niet is opgeslagen.

 

[Ad Becude]

Klopt Harry,

Zo dus:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets(1).Range("B1") = Now()
End Sub