Thread: sum-funktion als makro

Hallo Zusammen,

ich möchte die Formel: =Sum(range) durch eine Makroprogrammierung ersetzten.

Dabei soll der Wert in der Zelle, die den definierten Bereich summiert bei Änderungen automatisch angepasst werden, sprich so, wie dies bei der Excel-Funktion "=sum" üblich ist.

Das ganze habe ich schon über die Makroaufzeichnung hinbekommen:

Sub SummenBildung()
Range("E45).Select
ActiveCell.FormulaR1C1 = "=SUM(R[-8]C:R[-2]C)"
End Sub

...jedoch erscheint, wenn ich auf die Zelle klicke, die diese Summe summiert (E45), dann immer noch die Formel, was ich nicht unbedingt möchte. Weiß jemand ob sowas auch mit folgender oder anderer Funktion geht:

Sub SummenBildung()
Range("e45") = Application.WorksheetFunction.Sum("e37:e43")
Range("e45") = Application.Volatile
End Sub

Dabei ist die dynamische Anpassung sehr wichtig, da sich Zahlenwerte ja ändern können.

Vielen Dank im Voraus

Originally Posted by BartekBartek

Hallo Zusammen,

ich möchte die Formel: =Sum(range) durch eine Makroprogrammierung ersetzten.

Dabei soll der Wert in der Zelle, die den definierten Bereich summiert bei Änderungen automatisch angepasst werden, sprich so, wie dies bei der Excel-Funktion "=sum" üblich ist.

Das ganze habe ich schon über die Makroaufzeichnung hinbekommen:

Sub SummenBildung()
Range("E45).Select
ActiveCell.FormulaR1C1 = "=SUM(R[-8]C:R[-2]C)"
End Sub

...jedoch erscheint, wenn ich auf die Zelle klicke, die diese Summe summiert (E45), dann immer noch die Formel, was ich nicht unbedingt möchte. Weiß jemand ob sowas auch mit folgender oder anderer Funktion geht:

Sub SummenBildung()
Range("e45") = Application.WorksheetFunction.Sum("e37:e43")
Range("e45") = Application.Volatile
End Sub

Dabei ist die dynamische Anpassung sehr wichtig, da sich Zahlenwerte ja ändern können.

Vielen Dank im Voraus

Guten Tag,

Bitte,kannst du deine Datei beilegen? Danke schön.