Sehr oft tritt eine Situation auf, in der wir mehrere Werte summieren (akkumulieren) müssen, die nacheinander in eine Zelle eingegeben werden:
Diese. Wenn Sie beispielsweise in Zelle A1 die Zahl 5 eingeben, dann sollte in B1 die Zahl 15 erscheinen. Wenn Sie dann in A1 die Zahl 7 eingeben, sollte in Zelle B1 eine 22 stehen und so weiter. Im Allgemeinen, was Buchhalter (und nicht nur sie) eine kumulierte Summe nennen.
Sie können einen solchen Speicherzellen-Akkumulator mit einem einfachen Makro implementieren. Klicken Sie mit der rechten Maustaste auf die Blattregisterkarte, in der sich die Zellen A1 und B1 befinden, und wählen Sie aus dem Kontextmenü aus Quellentext (Quellcode). Kopieren Sie im sich öffnenden Visual Basic-Editorfenster den einfachen Makrocode und fügen Sie ihn ein:
Private Sub Worksheet_Change(ByVal Target As Excel.Range) With Target If .Address(False, False) = "A1" Then If IsNumeric(.Value) Then Application.EnableEvents = False Range("A2").Value = Range(" A2").Value + .Value Application.EnableEvents = True End If End If End With End Sub Die Adressen der Zellen A1 und A2 können natürlich durch Ihre eigenen ersetzt werden.
Wenn Sie die Dateneingabe verfolgen und nicht einzelne Zellen, sondern ganze Bereiche zusammenfassen müssen, muss das Makro geringfügig geändert werden:
Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Not Intersect(Target, Range("A1:A10")) Is Nothing Then If IsNumeric(Target.Value) Then Application.EnableEvents = False Target.Offset(0, 1) .Value = Target.Offset(0, 1).Value + Target.Value Application.EnableEvents = True End If End If End Sub Es wird davon ausgegangen, dass Daten in die Zellen des Bereichs A1:A10 eingegeben werden und die eingegebenen Zahlen in der angrenzenden Spalte rechts summiert werden. Wenn es in Ihrem Fall nicht benachbart ist, erhöhen Sie die Verschiebung nach rechts im Offset-Operator – ersetzen Sie 1 durch eine größere Zahl.
- Was sind Makros, wo fügt man Makrocode in VBA ein, wie verwendet man sie?