Problem mit Zeitstempel in Excel

[snb]

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