Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B8:W90")) Is Nothing Then Range("J3").Value = Date
End Sub
Gruß, Daniel
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B8:W90")) Is Nothing Then
Application.EnableEvents = False
Range("J3") = Date
Application.EnableEvents = True
End If
End Sub
Gruß
Tino