Gruppe
Allgemein
Problem
Wie kann ich zwei Zahlenkolonnen summieren, die Summen in die erste freie Zeile unterhalb der Kolonnen eintragen und in die linke Zelle darunter die Diefferenz der Summen anzeigen lassen?
StandardModule: basMain
Sub Summieren()
Dim iRow As Integer
iRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(iRow, 1).FormulaR1C1 = "=sum(R6C:R[-1]C)"
Cells(iRow, 2).FormulaR1C1 = "=sum(R6C:R[-1]C)"
Cells(iRow + 1, 1).FormulaR1C1 = "=R[-1]C-R[-1]C[1]"
End Sub