Habe folgenden Code. Das Ziel ist, bei jeder Änderung innerhalb von A3:AB3 (resp A4:AB4,...) das aktuelle Datum in AC3 (AC4,...) zu haben. Wie kann man das lösen?
Gruss
Co
Set Target = Application.Intersect(Target, Range("A3:AB4"))
'If not within the range, the sub is being left
If Target Is Nothing Then Exit Sub
' Activates error handling
On Error GoTo ErrorHandler
'Turns of events to avoid re-update
Application.EnableEvents = False
' sets the zone where the date should be entered
Target.Offset(0, 25) = Now