immer wenn in B18 ein Einzel-Wert eingegeben wird,soll der in B75 bereits vorhandene Gesamt-Wert um
diesen Einzel-Wert erhöht werden.
Wer hilft uns?
Die Zwillinge Dina und Daniela
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$18" Then
On Error GoTo ERRHANDLER
Application.EnableEvents = False
Range("B75") = Range("B75") + Target
Application.EnableEvents = True
End If
ERRHANDLER:
Application.EnableEvents = True
End Sub