Nutzen Sie unser 
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.
