habe das in der Datei beschriebene Problem und hoffe es kennt jemand eine Lösung:
https://www.herber.de/bbs/user/12880.xls
Bedanke mich jetzt schon recht herzlich für jede Hilfestellung.
Gruß
Werner
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("E8:L12")) Is Nothing Or Not IsDate(Target) Then Exit Sub
Cells(Target.Row, 4) = Now
End Sub