Gruppe
Ereignis
Problem
In B1 eingegebene Zahlen sollen dem Wert in Zelle A1 hinzuaddiert werden.
ClassModule: Tabelle1
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$1" Then Exit Sub
Application.EnableEvents = False
On Error GoTo ERRORHANDLER
Range("A1").Value = Range("A1").Value + Target.Value
ERRORHANDLER:
Application.EnableEvents = True
End Sub