Ich möchte das wenn in einem Bereich der den Namen "Daten" hat etwas geändert wird eine Anzeige in z.B. A1 kommt. Dort soll dann " Daten geändert" stehen.
Kann mir jemand helfen ?
viele Grüße Hans
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Application.EnableEvents = False
If Not Intersect(Target, Range("Daten")) Is Nothing Then
[A1] = "Änderung"
Else
[A1] = ""
End If
Application.EnableEvents = True
End Sub