Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Cells(Target.Row, 4).Value = Now
Application.EnableEvents = True
End Sub
MfG BerndPrivate Sub Worksheet_Change(ByVal Target As Range)
Dim objCell As Range
If Target.Column = 1 Then
Application.EnableEvents = False
For Each objCell In Intersect(Target, Columns(1))
If objCell "" Then Cells(objCell.Row, 4).Value = Date
'ggf. wieder entfernen beim Löschen
If objCell = "" Then Cells(objCell.Row, 4).ClearContents
Next
Application.EnableEvents = True
End If
End Sub
Gruß Gerd