Zimlech dacks entsteet eng Situatioun wa mir e puer Wäerter musse summéieren (accumuléieren) sequenziell an eng Zell agefouert:
Déi. wann Dir zum Beispill d'Nummer 1 an der Zell A5 gitt, da soll d'Nummer 1 an B15 erscheinen. Wann Dir dann d'Nummer 1 an A7 aginn, da soll 1 an Zell B22 erschéngen, a sou weider. Am Allgemengen, wat Comptabelen (an net nëmmen si) nennen e kumulativen Total.
Dir kënnt esou e Späicherzellakkumulator mat engem einfachen Makro ëmsetzen. Riets-klickt op de Tab Tab, wou d'Zellen A1 a B1 sinn a wielt aus dem Kontextmenü Quelltext (Source Code). An der Visual Basic Editor Fënster déi opmaacht, kopéiert a paste den einfachen Makrocode:
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 D'Adressen vun Zellen A1 an A2, natierlech, kann duerch Är eegen ersat ginn.
Wann Dir Datenentrée verfollegen musst an net eenzel Zellen zesummefaassen, awer ganz Reihen, da muss de Makro liicht geännert ginn:
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 Et gëtt ugeholl datt d'Donnéeën an den Zellen vum Beräich A1:A10 agefouert ginn, an déi aginn Zuelen ginn an der niewendru Kolonn op der rietser zesummegefaasst. Wann et an Ärem Fall net niewendrun ass, da erhéicht d'Verréckelung no riets am Offset-Bedreiwer - ersetzt 1 mat enger méi grousser Zuel.
- Wat sinn Makroen, wou een Makrocode an VBA setzen, wéi se se benotzen?