• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Datum laatst opgeslagen

Status
Niet open voor verdere reacties.
Met deze UDF
De celeigenschap op datum zetten

Code: 
Function jec() As Date
jec = ThisWorkbook.BuiltinDocumentProperties("Last Save Time")
End Function

of

Code: 
Function jec() As Date
jec = FileDateTime(ThisWorkbook.FullName)
End Function


te gebruiken als
Code: 
=jec()
 
Laatst bewerkt:
Alt + F11 voor openen VBA editor —> rechtermuisknop op het project —> insert module —> plak daar de code

Vervolgens kun je net als een normale functie aanroepen in Excel. =jec()
 
Maar, waarvoor wil je dat dan verder gebruiken ?
 
In een cel wil ik dan de datum van wanneer het bestand voor het laatst is opgeslagen. Zodat ik weet van wanneer de gegevens zijn.
 
Het kan ook met een Workbook_BeforeSave event:

Code: 
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Cells(1, 1) = Now()
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan