Wie erkenne ich automatisch eine Änderung in den Zellen und setze dadurch das Datum in A1?
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A2:A10")) Is Nothing Then
On Error GoTo ErrorHandler
Application.EnableEvents = False
Range("A1").Value = Now
Application.EnableEvents = True
On Error GoTo 0
End If
Exit Sub
ErrorHandler:
Application.EnableEvents = True
End Sub
Public temp As Variant
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A2:A10")) Is Nothing Then
On Error GoTo ErrorHandler
If Target.Value <> temp Then
Application.EnableEvents = False
Range("A1").Value = Now
Application.EnableEvents = True
End If
On Error GoTo 0
End If
Exit Sub
ErrorHandler:
Application.EnableEvents = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
temp = Target.Value
Application.StatusBar = temp
End Sub
Application.StatusBar = temp