Tijd in cel

[pvag]

Beste experts,

Ik heb in een blad een cel (K3) waar steeds de huidige tijd moet worden ingevoerd om te gebruiken als tijdstempel bij het opslaan in een database.
Ik had een soort klok gevonden op het forum en dat werkte goed, doch bij het opslaan van de gehele werkmap diende de problemen zich aan.
1 keer opslaan als werkblad met macro's ging goed, doch de 2e keer werkte het niet meer.
Nu zoek ik een VBA script die de huidige tijd uu:mm:ss in K3 zet als op de cel wordt geklikt.
Wie kan me daarbij helpen.
Bij voorbaat dank,
Ton

 

[HSV]

Met een dubbelklik ook goed?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 If Target.Address(0, 0) = "K3" Then Target = Format(Now, "hh:mm:ss")
 Cancel = True
End Sub

 

[pvag]

tijd

Hallo Harry,

Je bent een kei.
Heel hartelijk bedankt.

 

[HSV]

Graag gedaan,

Maar waarom doe je het niet rechtstreeks bij het sluiten van het bestand.
In Thisworkbook.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
 ThisWorkbook.SaveAs "c:\users\hsv\documents\" & Format(Now, "dd-mm-yyyy hh_mm_ss"), 52
End Sub

Met de datum ervoor kan het nooit fout gaan.

 

[pvag]

tijd

Hoi Harrie,

Dat tijdstempel is niet voor de opslag van het bestand.
Ik heb een aantal werkbladen (4) waarin mutaties worden gedaan.
die mutaties houden in dat er bij een verkooppunt van muntjes voor drank,
de kassa wordt afgeroomd. Die gegevens worden in het werkblad en middels een druk op een knop,
weggeschreven naar een werkblad waar die gegevens worden opgeslagen.
In de eerste kolom wordt dan de huidige tijd genoteerd.
Als de zaak is opgeslagen, worden alle invoergegevens in het werkblad gewist zodat het klaar is voor een volgende mutatie.
Maar toch heel fijn dat je even mee dacht.
Dank daarvoor.
m.v.g., Ton

 

[HSV]

Hallo Ton,

Prima toch?
Veel plezier er van.