Jede in Zelle A1 eingegebene Zahl soll z. B. in Zelle A2 zu dem dort schon stehenden Wert dazuaddiert werden. Dazu muss in Zelle A2 die Formel =A1 stehen und dann im VBA-Editor (Alt+F11) ein Doppelklick auf das betreffende Tabellenblatt ausgeführt werden. In das leere Modul folgendes eintragen:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If IsNumeric(Target) Then Range("A2") = Range("A2") + Target
End If
End Sub