Wie kann ich eine Zahlenkreihe summieren, die Summe in die erste freie Zele neben der zeile eintragen ?
Ich habe folgendes Problem .Ich habe eine Arbeismappe mit Monatsblätter(jeden Monat kommt eine neue dazu).Das Summentotal wird in Zeile 4 der "Jahresübersichtsmappe eingetragen.Nun möchte ich das Jahrestotal am Ende der letzten Eintragung haben.
Folgendes Makro funktioniert zwar aber Summe leider immer in Zelle IV 4.Wer hilft mir auf die Sprünge ???
Sub Jahrestotal()
Dim iCounter As Integer, icolumns As Integer
Dim irow
For iCounter = Sheets(1).Index To Sheets("Jahresübersicht").Index - 1
icolumns = (icolumns + 1)
Cells(3, icolumns) = Worksheets(iCounter).Range("J4").Value
Cells(4, icolumns) = Worksheets(iCounter).Range("B54").Value
Next iCounter
icolumns = Cells(4, Columns.Count).End(xlUp).Column
Cells(4, icolumns).FormulaR1C1 = "=SUM(RC4:RC[+1])"
End Sub
Vielen dank schon zum Voraus.