Datum Eintrag
12.12.2019 13:55:27
Hartmut
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
Gruß
Hartmut
Anzeige