Mit folgendem Event-Makro wird die Zelle A1 um den in Zelle A1 eingegebenen Werte erhöht. Wenn in A1 eine 5 eingegeben wird, steht in A1 eine 5. Wird in A1 anschließend die Zahl 3 eingegeben, dann steht in A1 eine 8. Auf diese Weise lassen sich Werte in einer einzigen Zelle aufsummieren.

Option Explicit
Dim zahl As Double

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then
        Application.EnableEvents = False
        Target.Value = Target.Value + zahl
        Application.EnableEvents = True
    End If
End Sub
{/codecitation}
 
{codecitation}
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$A$1" Then zahl = Target.Value
End Sub

Bitte fügen Sie dieses Makro in das Code-Modul des Tabellenblatts ein, in dem er verwendet werden soll, da es sich um ein Worksheet-Event handelt.