Gruppe
Funktion
Bereich
Vba
Thema
Ab der aktiven Zelle summieren
Problem
Wie kann ich per VBA die aktuelle Cursorposition bestimmen und in die aktive Zelle die Summe aller Zellwerte über bzw. unter dieser Zelle ermitteln?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain
Sub SummeBildenOben()
Dim iCol As Integer
Dim sFormula As String
iCol = ActiveCell.Column
sFormula = "=SUM(R1C" & iCol & ":R[-1]C" & iCol & ")"
ActiveCell.FormulaR1C1 = sFormula
End Sub
Sub SummeBildenUnten()
Dim iCol As Integer
Dim sFormula As String
iCol = ActiveCell.Column
sFormula = "=SUM(R[1]C" & iCol & ":R" & Rows.Count & "C" & iCol & ")"
ActiveCell.FormulaR1C1 = sFormula
End Sub