datum laatste uitvoerin macro in cel plaatsen

[cocko]

Beste Helpers,

Is er een mogelijkheid om de datum (en liefst ook de tijd) van de laatste keer dat een macro uitgevoerd is in een cel te zetten?

Bedoeling is dus dat ik later kan zien wanneer de bewuste macro voor het laatst is uitgevoerd.

Kan dit, en zo ja wil iemand dan voor mij hiervoor een stukje code schrijven?

Bij voorbaat hartelijk dank!

 

[RvanGalenLast]

cocko,

Als voorbeeld heb ik tabblad "Log" gemaakt. In cel A1 de koptekst "Laatste uitvoer" en in cel B1 "Excel Gebruiker". Daar wordt iedere keer dat de macro draait de datum en tijd + de naam van de Excel-gebruiker geplaatst.
Deze code kan je onderaan je bestaande code zetten.

Dim lr As Long
    Sheets("Log").Cells(Rows.Count, ("A")).End(xlUp).Offset(1)  = Now
    Sheets("Log").Cells(Rows.Count, ("A")).End(xlUp).Offset(, 1)  = Application.UserName
    ActiveWorkbook.Worksheets("Log").Sort.SortFields.Clear
    lr = Sheets("Log").Cells(Rows.Count, ("B")).End(xlUp).Row
    ActiveWorkbook.Worksheets("Log").Sort.SortFields.Add Key:=Range("A1"), _
        SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortTextAsNumbers
    With ActiveWorkbook.Worksheets("Log").Sort
        .SetRange Range("A1:B" & lr)
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
     End With

 

[cocko]

Hartelijk bedankt!

Beste RvanGalenLast,

Dit is precies wat ik nodig heb!

Hartelijk bedankt!