Werte in Spalte zu Werten anderer Spalte addieren
Dietmar
mit nachfolgendem Code, den ich hier in der Sammlung gefunden habe, kann ich den Wert einer _ Zelle dem bestehenden Werte einer anderen Zelle hinzurechnen.
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
Das läuft bestens.
Meine Frage:
Wie müsste ich den Code umschreiben, so dass diese Berechnung auf alle Zellen einer Spalte zutrifft.
Es sollen also die Eintragungen in einem Bereich, sagen wie B1:B10 berücksichtigt werden und den JEWEILIGN Werten in dem Bereich A1:A10 hinzugerechnet werden.
Wenn ich also in B5 einen Wert eintrage, soll der Wert der Zelle A5 um diesen Wert erhöht werden.
Vielen Dank vorab!
Viele Grüße
Dietmar aus Aachen
