Ein kleines Beispiel wie man einen Trigger auf eine einzelne Zelle im MS Excel setzen kann.

Dim oldTarget As Variant
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
	oldTarget = Target
End Sub
 
Private Sub Worksheet_Change(ByVal Target As Range)
	Dim oldValue As Variant
	Dim newValue As Variant
 
	oldValue = getValue(oldTarget)
	newValue = getValue(Target)
 
	MsgBox "der Alte Wert: '" & oldValue & "' wird mit '" & newValue & "' überschrieben"
End Sub
 
Private Function getValue(ByVal Target As Variant) As Variant
	If Not IsArray(Target) Then
		'direkt ausgeben wenn ein einzelnes Feld ausgewählt ist
		getValue = Target
	Else
		'Bei einer Mehrfachauswahl den Inhalt des ersten Feldes ausgeben
		getValue = Target(1, 1)
	End If
End Function