Note: The other languages of the website are Google-translated. Back to English
Inloggen  \/ 
x
or
x
Registreer  \/ 
x

or

Haal de gemaakte tijd en de laatst gewijzigde tijd op in cellen en voeg ze in

In dit artikel wordt ingegaan op manieren om de gemaakte tijd en de laatst gewijzigde tijd van de huidige werkmapinformatie op te halen en de gemaakte tijd en de laatst gewijzigde tijd van de huidige werkmapinformatie in cellen in Excel in te voegen.

Haal de gemaakte tijd en de laatst gewijzigde tijd op in Excel met de opdracht Info

Verkrijg de gemaakte tijd en de laatst gewijzigde tijd in Excel met de functie Geavanceerde eigenschappen

Voeg de gemaakte tijd en de laatst gewijzigde tijd in cellen in Excel in met VBA-code

Voeg de gemaakte tijd en de laatst gewijzigde tijd in cellen / koptekst / voettekst in met Kutools voor Excel goed idee 3

pijl blauw rechts bel Haal de gemaakte tijd en de laatst gewijzigde tijd op in Excel met de opdracht Info

We kunnen de exacte gemaakte tijd en de laatste gewijzigde tijd van de huidige werkmap achterhalen in de backstage-weergave van Microsoft Excel 2010/2013.

Klik op de Dien in > Info, en aan de rechterkant van de backstage-weergave wordt de Gerelateerde datums informatie. Onder de Gerelateerde datums titel, het toont de laatst gewijzigde tijd, aangemaakte tijd en laatst afgedrukte tijd. Zie volgende screenshot:

-2

 

Opmerking: Deze manier is alleen beschikbaar in Microsoft Excel 2010/2013. Het is ongeldig in Excel 2007.

pijl blauw rechts belVerkrijg de gemaakte tijd en de laatst gewijzigde tijd in Excel met de functie Geavanceerde eigenschappen

Eigenlijk kunnen we zowel de gemaakte tijd als de laatst gewijzigde tijd van de huidige werkmap ophalen in het dialoogvenster Documenteigenschappen.
Stap 1: Open de Geavanceerde eigenschappen dialoog venster:

Klik in Excel 2007 op het Kantoor knop> Klaarmaken > WoningaanbodEn een Document eigenschappen balk wordt onder de werkbalk weergegeven, klik op Document eigenschappen > Geavanceerde eigenschappen, zie screenshots:

doc-insert-gewijzigde-tijd-3-3
-1
doc-insert-gewijzigde-tijd-4-4

 

Klik in Excel 2010/2013 op het Dien in > Info > Woningaanbod > Geavanceerde eigenschappen.

doc-insert-gewijzigde-tijd-4-4

Stap 2: In de Geavanceerde eigenschappen dialoogvenster, ziet u de gemaakte tijd en de laatst gewijzigde tijd onder het tabblad Statistieken. Zie de volgende schermafbeelding:

doc-insert-gewijzigde-tijd-4-4

pijl blauw rechts bel Voeg de gemaakte tijd en de laatst gewijzigde tijd in cellen in Excel in met VBA-code

Met de volgende VBA-macro's kunt u de gemaakte tijd en de laatst gewijzigde tijd van de huidige werkmapinformatie rechtstreeks in cellen invoegen.

Voeg zowel de gemaakte tijd als de laatst gewijzigde tijd in Excel in

Stap 1: Houd de toets ingedrukt ALT + F11 toetsen, en het opent het Microsoft Visual Basic for Applications-venster.

Stap 2: Klik Invoegen >> Moduleen plak de volgende macro in het modulevenster.

VBA-code: voeg zowel de gemaakte tijd als de laatst gewijzigde tijd in Excel in

Sub Workbook_Open()
Range("A1").Value = Format(ThisWorkbook.BuiltinDocumentProperties("Creation Date"), "short date")
Range("A2").Value = Format(ThisWorkbook.BuiltinDocumentProperties("Last Save Time"), "short date")
End Sub

Stap 3:Druk de F5 toets om deze macro uit te voeren. En dan worden de gemaakte datum en de laatste gewijzigde datum afzonderlijk in cel A1 en cel A2 ingevoegd.

Opmerking:: u kunt de bestemmingscel in de VB aanpassen aan uw behoeften.

Voeg de laatste gewijzigde tijd van de werkmap in Excel in

Stap 1: Houd de toets ingedrukt ALT + F11 toetsen, en het opent het Microsoft Visual Basic for Applications-venster.

Stap 2: Klik Invoegen >> Moduleen plak de volgende macro in het modulevenster.

Public Function ModDate()
ModDate = Format(FileDateTime(ThisWorkbook.FullName), "m/d/yy h:n ampm")
End Function

Stap 3: Bewaar en sluit deze code, en ga terug naar het werkblad, voer in een lege cel de formule in van = ModDate ()en druk op de Enter sleutel. Vervolgens voegt het de laatst gewijzigde tijd in de cel in.

-2

Voeg de gemaakte tijd van de werkmap in Excel in

Stap 1: Houd de toets ingedrukt ALT + F11 toetsen, en het opent het Microsoft Visual Basic for Applications-venster.

Stap 2: Klik Invoegen >> Moduleen plak de volgende macro in het modulevenster.

Function CreateDate() As Date
CreateDate = ActiveWorkbook.BuiltinDocumentProperties("Creation Date")
End Function

Stap 3: Bewaar en sluit deze code, keer terug naar het werkblad, voer in een lege cel de formule in van = CreateDate ()en druk op de Enter key. en de gemaakte datum wordt in de cel ingevoegd als volgende schermafbeeldingen:

-2

Opmerking: Als uw cel geen datumnotatie heeft, kan deze een vreemd getal weergeven. Formatteer deze cel gewoon als Datum formaat, wordt het weergegeven als een normale datum.

pijl blauw rechts bel Voeg de gemaakte tijd en de laatst gewijzigde tijd in cellen / koptekst / voettekst in met Kutools voor Excel

Mag ik u een handig hulpmiddel voorstellen:Kutools for Excel welke inclusief meer dan 300 handige functies kunnen uw werkefficiëntie verbeteren? Met zijn Voeg werkmapinformatie in functie, kunt u snel werkmappad, werkmap / werkbladnaam, gebruikersnaam of gemaakte tijd en laatst gewijzigde tijd invoegen in cellen of kop- of voettekst.

Kutools for Excel, met meer dan 300 handige functies, maakt uw werk eenvoudiger. 
Gratis download
gratis volledige functionaliteit in 30 dagen

Na gratis installeren Kutools voor Excel, doe het als volgt:

1. klikken Kutools Plus > werkboek > Voeg werkmapinformatie in. Zie screenshot:
doc laatste wijziging naam2

2. Vervolgens in de Voeg werkmapinformatie in dialoogvenster, controleer de informatie die u wilt invoegen in het gedeelte Informatie en ga vervolgens naar de locatie die u wilt invoegen, u kunt kiezen tussen cellen, voettekst (linkervoettekst, voettekst midden, voettekst rechts) of koptekst (koptekst links, koptekst midden, rechter koptekst). Zie screenshot:
doc insert gemaakt gewijzigde tijd 1

3. klikken Ok, en de informatie die u controleert, is ingevoegd op de locatie die u opgeeft.

Tip. Als u een gratis proefversie van de functie Werkmapinformatie invoegen wilt, ga naar gratis download Kutools voor Excel eerst, en ga dan de bewerking toepassen volgens bovenstaande stappen.

pijl blauw rechts bel Voeg werkmapinformatie in


De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
  • Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
  • Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
  • Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
  • Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.
kte tabblad 201905

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert elke dag honderden muisklikken voor u!
officetab onderkant
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Jack · 3 years ago
    I want to automatically create a space between each customer in excel how do i do this??
  • To post as a guest, your comment is unpublished.
    Sujin Raj · 4 years ago
    Hi Team,

    I need your help.

    I am having an excel file, there i want to find the modified date of a particular cell.

    Please help me with the coding here, if possible.

    Thanks in advance.
  • To post as a guest, your comment is unpublished.
    Wayne Erfling · 4 years ago
    I learned why "Last Save Time" was not working for me. I put my function in my .XLA file, and "ThisWorkbook" was referring to the .XLA file itself. Therefore I needed to get Application.ActiveWorkbook (presumably the location of the function call), ending up with:

    Function DocumentProperty(PropertyName As String)

    '
    'You can refer to document properties either by index value or by name. The following list shows the available built-in document property names:

    'Title Subject Author
    'Keywords Comments Template
    'Last Author Revision Number Application Name
    'Last Print Date Creation Date Last Save Time
    'Total Editing Time Number of Pages Number of Words
    'Number of Characters Security Category
    'Format Manager Company
    'Number of Bytes Number of Lines Number of Paragraphs
    'Number of Slides Number of Notes Number of Hidden Slides
    'Number of Multimedia Clips Hyperlink Base Number of Characters (with spaces)


    Call Application.Volatile(True)

    Dim ActiveUserWorkbook

    On Error Resume Next
    Set ActiveUserWorkbook = Application.ActiveWorkbook
    If Err.Number 0 Then
    DocumentProperty = "!!! Error getting Application.ActiveWorkbook: " & Err.Description
    Exit Function
    End If
    DocumentProperty = ActiveUserWorkbook.BuiltinDocumentProperties(PropertyName)
    If Err.Number 0 Then
    DocumentProperty = "!!! Unknown Property Name !!!"
    Exit Function
    End If

    End Function
  • To post as a guest, your comment is unpublished.
    Wayne Erfling · 4 years ago
    I see that "Last Save Time" is only referenced ONCE in the code.

    I'm using Excel 2010.When I put "Last Save Time" into a function, even with Application.Volatile(true), the value never updates.

    Then I noticed that the value returned by "Last Save Time" does not appear in the Excel 2010 "Properties" page NOR any of the tabs in the "Advanced Properties" dialog.

    Could "Last Save Time" be some relic?
  • To post as a guest, your comment is unpublished.
    Christopher Huergo · 4 years ago
    Thanks for the help, but I also had a problem with the cell not updating after a save without having to first close and reopen the workbook. I added the following code to the workbook which refreshes after a save event:

    Private Sub Workbook_AfterSave(ByVal Success As Boolean)
    If Success Then
    ActiveSheet.Calculate
    End If
    End Sub

    That did the trick for me. Hope it helps.
  • To post as a guest, your comment is unpublished.
    Bruce · 5 years ago
    Could this be modified to display the Created Date of [i]other[/i] closed files?

    I'd like to compare the Created Date of a file on my Desktop to a file on a public web server.

    I could create the formula to use your functions...CreateDate() of local file to CreateDate() of web file...and alert me to a change.

    I appreciate your help.

    Bruce
  • To post as a guest, your comment is unpublished.
    Mokhtar · 6 years ago
    very very very very very very very very helpful
    thanks
  • To post as a guest, your comment is unpublished.
    JulieHughes · 6 years ago
    Hiya
    Love love love this but sadly the date only is appearing in USA and in Australia we have dd/mm/yy
    I've tired changing it to this format using the "Date" section but have not had any luck.
    Any ideas?
    • To post as a guest, your comment is unpublished.
      MurrayFree · 6 years ago
      Julie - in the VBA code use "dd/mm/yy hh:n" instead. That'll put the date in the "right" order!
      :lol:
  • To post as a guest, your comment is unpublished.
    DavidC · 7 years ago
    Hey this was awesome.

    Is it possible to insert the created date and last modified date of a different workbook? I'm looking to create an index file that tells me when other documents were last updated.

    Thanks!!
  • To post as a guest, your comment is unpublished.
    Ashraf · 7 years ago
    Please help!!!

    need to return last modified date and time of a closed file, and return this info in a cell in the open file
  • To post as a guest, your comment is unpublished.
    Swaran · 7 years ago
    [quote name="Larry S. Peteet"]Hello:
    I did this a different way but also by coding. Since I added code it makes me save the workbook with Macros and consequently as a *.XLSM. That is fine but a lot of places won't allow Macros's like this.
    Is there a way to get this (or save the workbook with the change) to a normal .XLS?
    I also assume it will ask someone to "Enable Macros" if they have that setting turned on (I am a consultant and most places I work it makes me turn on Macros when applicable after opening a workbook).
    FYI: Here is how I did it in a Macro (not better; just different).
    Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
    Cancel As Boolean)

    Cancel = False
    With ActiveSheet.PageSetup
    ' .LeftHeader = ""
    ' .CenterHeader = ""
    ' .RightHeader = "Last Update " & Format(Now(), "mm/dd/yyyy")
    .RightHeader = ""
    .RightFooter = "Last Updated " & Format(Now(), "mm/dd/yyyy")
    End With

    End Sub[/quote]

    Hi

    I successfully inserted the Last modified Date and time, but it doesnt update when you save and re-open the workbook.

    Please help here......i dont know about coding so I basically copy whatever info is given on such forums

    Thanks
    Swaran
    • To post as a guest, your comment is unpublished.
      BillG · 6 years ago
      Yes I have same issue - it worked perfectly yesterday but then today it would not change when saved.
  • To post as a guest, your comment is unpublished.
    UMAIR · 7 years ago
    thanks for this info
  • To post as a guest, your comment is unpublished.
    UMAIR · 7 years ago
    This information is very helpful for me.
    thanks concern
  • To post as a guest, your comment is unpublished.
    Larry S. Peteet · 7 years ago
    Hello:
    I did this a different way but also by coding. Since I added code it makes me save the workbook with Macros and consequently as a *.XLSM. That is fine but a lot of places won't allow Macros's like this.
    Is there a way to get this (or save the workbook with the change) to a normal .XLS?
    I also assume it will ask someone to "Enable Macros" if they have that setting turned on (I am a consultant and most places I work it makes me turn on Macros when applicable after opening a workbook).
    FYI: Here is how I did it in a Macro (not better; just different).
    Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
    Cancel As Boolean)

    Cancel = False
    With ActiveSheet.PageSetup
    ' .LeftHeader = ""
    ' .CenterHeader = ""
    ' .RightHeader = "Last Update " & Format(Now(), "mm/dd/yyyy")
    .RightHeader = ""
    .RightFooter = "Last Updated " & Format(Now(), "mm/dd/yyyy")
    End With

    End Sub
  • To post as a guest, your comment is unpublished.
    Khalid · 7 years ago
    Thank you very much for help, these what we need.
    the codes work properly but without update, means do not update the date of modification once i save.
    do you have any solution for this?

    i tried many times, save, close then re-open, with no update for the date.
    • To post as a guest, your comment is unpublished.
      Alex · 5 years ago
      Hi Khalid,

      I had the same issue and I added the line "Application.Volatile" to the code and when I press F9 it will update the information.
      I saw it in the video "Learn Excel - "Function for Last Saved Time": Podcast #1725 " of Bill Jelen.
      @Bill: Thank so much for the video!

      https://www.youtube.com/watch?v=KnSA6xdmc2Q

      Regards,
      Alex
  • To post as a guest, your comment is unpublished.
    Brian · 7 years ago
    This was perfect. Exactly what I was looking for. Thanks so much!!
  • To post as a guest, your comment is unpublished.
    Syed Nehal · 7 years ago
    Helpful information.... :-)