Gruppe
Funktion
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?
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