time stamp

[popipipo]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("g5:g100")) Is Nothing Then
        Target.Offset(, -2).Value = Now
        Target.Offset(, -3).Value = Now
    End If
End Sub

Bovenstaande code gebruik ik om via VBA datum en tijd in 2 cellen te zetten.
Via het formaat van de cel zet ik dit om in de datum of in de tijd.
In de cel staan ze echter beide.
Hoe kan ik in de cel alleen de datum of de tijd zetten.
Ik heb al iets geprobeerd met Format ("hh:mm:ss") maar in de cel blijft ook de datum staan.

 

[HSV]

Willem,

Target.Offset(, -2).Value = date
Target.Offset(, -3).Value = time

of voor de laatste:

Target.Offset(, -3).Value = Format(Time, "hh:mm:ss")

 

[popipipo]

Wat kan het leven toch simpel zijn. :thumb: :thumb:

Ik moet toch meer naar mijn eigen handtekening kijken

 

[HSV]

Soms wel.

Ik had mijn bericht nog aangepast, maar kan ook met de ingebouwde functie.

Target.Offset(, -3).Value = FormatDateTime(Now(), vbLongTime)

Succes ermee.

 

[popipipo]

Toch nog even een aanvullende vraag.
Welke beveiliging moet er ingebouwd worden om als de data in kolom G veranderd de datum en tijd niet meer veranderen.
Dus eenmaal een datum / tijd in kolom D / E dan mag deze niet meer veranderen.

 

[HSV]

Probeer de rode regel eens Willem.

If Not Intersect(Target, Range("g5:g100")) Is Nothing Then
      [COLOR="red"]If Target.Offset(, -2) > 0 Then Exit Sub[/COLOR]
        Target.Offset(, -2).Value = Date

 

[popipipo]

het werkt naar behoren
Bedankt