ich müsste in Zelle A ständig Zahlen eingeben, die sich dann in Zelle B aufsummieren sollten, d.h. bei Neueingabe/Überschreiben von A immer zu B dazu addiert werden.
Herzlichen Dank für Tips.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
[B1] = [B1] + [A1]
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo fehler
If Target.Address(0, 0) = "A1" Then
[B1] = [B1] + [A1]
[C1] = [C1] + 1
End If
fehler:
End Sub