untenstehenden Code benutze ich um ein Datumseintrag in einer Tabelle zu generieren.
Ich müsste allerdings, wenn in E5 eine Änderung passiert das das aktuelle Datum in L8 eingetragen wird, noch hinzufügen, vielleicht denke ich zu kompliziert, aber habt ihr eine kurze Lösung für mich?
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("N4:N5000")) Is Nothing And Target.Count = 1 Then
Target.Offset(, 1) = Date
End If
End Sub
Schon jetzt einmal vielen Dank für eure tolle Unterstützung.Gruß
Hartmut