Als ik in vel A1 iets schrijf, kan ik dat in cel B1 registreren
met een datum ?
In access gaat dit wel, maar in excel !!!

Groetjes Danny.

Gebruik dit kleine stukje code

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Range("A1") Then Range("B1") = Now
End Sub
WG

Dit is zeker mogelijk. Hier is de code:

Private Sub Workbook_Open()
Worksheets("Datums").Range("A1") = "Overzicht"
Worksheets("Datums").Range("A" & Rows.Count).End(xlUp).Offset(1, 0) = Now
End Sub

Verander Datums en Overzicht desgewenst.

Wigi

Bij het openen van de file wordt er geen openingsdatum geplaatst.

Bij het manueel activeren via :RMK op tabblad "Datums"
- programmacode weergeven - "sub/userform uitvoeren"
dan wordt er wel een datum geplaatst.

Gaat dit niet automatisch wanneer men de file opent ?

Groetjes Danny.

Werkte het in het begin en heb je iets speciaals gedaan ondertussen? Is het beveiligingsniveau van macro's veranderd? Houd je Shift ingedrukt tijdens het openen?

WG

Beste Wigi

Het lukt mij nog steeds niet telkens als ik het bestand opent om de datum automatisch te laten registreren in een cel.
Alleen als ik het handmatig doet via weergeven van de code dan lukt het wel.
De shift toets bij het openen helpt ook niet.
Welke instellingen zouden er bij mij verkeerd staan?
Heb dit ook met een digitale klok, deze loopt niet als ik het bestand opent.
Zou het mogelijk zijn dit in een bestand te zetten, dat ik daarna kan downloaden.

Groetjes Danny

Hier is het.

Wigi

Bedankt WIGI

Nu werkt het perfect als ik de file opent

Mijn excuses voor mijn ongeduldig gedrag voor de topic
" stopwatch in excel"
Ik heb echt veel bewondering voor jullie, wat jullie allemaal kunnen in excel, natuurlijk kan je niet iedereen tegelijkertijd helpen, SORRY !!!

Groetjes Danny

OK, no problem

Ik heb nog een kleinigheidtje WIGI

Zou het mogelijk zijn, voordat ik de file sluit dat hij automatisch de gegevens opslaat?
Anders heeft het geen nut als iemand anders de file open doet zonder de datumregistratie op te slaan.

Groetjes Danny.

Zet dit in ThisWorkbook (je weet ondertussen hoe dat moet  ):

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ThisWorkbook.Save
End Sub

Wigi

Bedankt WIGI
Als het ene lukt dat lukt het andere ook.

Groetjes Danny.