„Ewige Summe”

In einem definierten Bere­ich, in ein­er einzel­nen Zelle oder in mehreren wer­den Zahlen eingegeben. In jew­eils der gle­ichen Zeile soll in der Spalte rechts der entsprechen­den Zelle der eingegebene Wert zum bish­eri­gen, bere­its dort ste­hen­den Wert addiert wer­den. Es soll also ‑basierend auf dem bish­eri­gen Ergeb­nis- immer wieder die Summe gebildet wer­den. Wird ein­deutiger Text (also mit Buch­staben) eingegeben, geschieht nichts. Eine Zif­fer oder eine reine Zif­fer­n­folge als Text (beispiel­sweise '123,45) wird trotz des Text-Mark­ers ' als Zahl inter­pretiert. Das Ganze kön­nte dann so ausse­hen:

„Ewige Summe”

In ein­er Zelle im Bere­ich B2:B11 wird ein Wert eingegeben. Sofort nach ver­lassen der Zelle wird in der gle­ichen Zeile, Spalte C der alte Wert durch den neuen Wert über­schrieben. Der neue Wert ist (natür­lich) die Summe des alten Wertes und der Eingabe in Spalte B.

▲ nach oben …

Die Lösung

Diese Auf­gabe lässt sich mit einem kleinen Makro (VBA) lösen. Der zu über­prüfende Bere­ich soll B2:B11 sein, die Ergeb­nisse sollen entsprechend in C2:C11 aus­gegeben wer­den. – Sehen Sie sich die Beispiel­d­atei gerne an. Hier für die „Spezis” das Makro (für prak­tisch alle Excel-Ver­sio­nen):

Option Explicit

Private Sub WorkSheet_Change(ByVal Target As Range)
   Dim rngPruef As Range
   Dim rngZiel As Range
   Set rngPruef = Range("B2:B11")
   Set rngZiel = Cells(Target.Row, Target.Column + 1)
   If Not Intersect(rngPruef, Target) Is Nothing Then
      If IsNumeric(Target) Then rngZiel = rngZiel + Target
   End If
End Sub