======[VBA] [Excel] Trigger auf einzelnes Feld======
Ein kleines Beispiel wie man einen Trigger auf eine einzelne Zelle im MS Excel setzen kann.

===== Code =====
<code vb>
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
</code>
{{tag>VBA MS_Excel}}