oder:
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
on error resume next
Application.EnableEvents = False
For Each it In Intersect(Target, Columns(1))
If it <> "" Then it.Offset(, 1) = Time
Next
Application.EnableEvents = True
End Sub