Beim verändern einer Zelle eine Aktion ausführen

Dieses Makro wird ausgeführt, wenn in der Zelle A1 bzw. A2 Änderungen vorgenommen werden. Mit dem Befehl Target kann man einige Adressen prüfen. Sollen mehrere Zellen überwacht werden, so ist das unten stehende Beispiel mit dem Befehl Intersect die bessere Lösung

Sub Worksheet_Change(ByVal Target As Excel.Range)

If Target.Address = "$A$1" Or Target.Address = "$C$1" Then
MsgBox "Sie haben gerade Zelle A1 oder C1 verändert!"
End If

End Sub

_________________________________________________________________________________

Eine andere Lösung stellt folgendes Makro dar:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1:A3")) Is Nothing Then
MsgBox "Im Bereich A1:A3 wurde eine Zelle geändert!"
End If
End Sub


Mit diesem Makro ist es also möglich, den Bereich auf mehrere Zellen auszuweiten. Im oben stehende Makro wird die Aktion ausgeführt, wenn die Zellen A1, A2 oder A3 verändert wird.

Die beiden Makros müssen in einem Tabellenblatt eingefügt werden. Nicht in einem Modul.