0160-93 82 19 37 | Nehmen Sie 
Zelle B1 um den Wert erhöhen, der in Zelle A1 eingegeben wird
104008
Mit folgendem Event-Makro wird die Zelle B1 um die in A1 eingegebenen Werte erhöht.
Wenn in A1 eine 5 eingegeben wird, steht in B1 eine 5. Wird in A1 weiter eine 3 eingegeben
dann steht in B1 eine 8 usw.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then Range("B1") = Range("B1") + Target.Value
End Sub
Da es sich um ein Worksheet-Ergeigniss handelt ist dieses Makro in ein Tabellenblatt nicht in ein Modul einzufügen.
