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
Anzeige
