Zelle B1 um den Wert erhöhen, der in Zelle A1 eingegeben wird

Mit folgendem Event-Makro wird der Wert in Zelle B1 um den Wert erhöht, der in Zelle A1 eingegeben wird. Wenn in A1 eine 5 eingegeben wird, steht in B1 eine 5. Wird in A1 anschließend eine 3 eingegeben dann steht in B1 eine 8. Die Werte werden entsprechend aufsummiert.

PrivateSub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then Range("B1") = Range("B1") + Target.Value
EndSub

 

Da es sich um ein Worksheet-Ergeigniss handelt, ist dieses Makro in das Codemodul des betreffenden Tabellenblatts einzufügen.