Hi SoftAid,
Time vanuit VBA is een harde waarde. Dus die blijft staan.
Ik zou deze pakken als de cel ook weer leeg moet als er niets is ingevuld
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
With Target
If .Address(0, 0) = "C2" And .Value <> "" And IsNumeric(.Value) Then
.Offset(, 10) = Time
Else
.Offset(, 10).Value = ""
End If
End With
Application.EnableEvents = True
End Sub