Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("D:D")) Is Nothing Then
If Target = "" Then
Target.Offset(0, -2).ClearContents
Else
Target.Offset(0, -2) = CDate(Format(Now, "dd.mm.yyyy HH:MM"))
End If
End If
If Not Intersect(Target, Range("H:H")) Is Nothing Then
If Target = "Erledigt" Then
Target.Offset(0, 1) = CDate(Format(Now, "dd.mm.yyyy HH:MM"))
End If
End If
End Sub