ich würde gerne in Spalte Y die Summer der Spalten Q bis X erzeugen. Für alle befüllten Spalten.
Sub test()
Range(Cells(1, 6), Cells(Range("A1").End(xlUp).Row, 6)).FormulaR1C1 = "=SUM(RC[-8]:RC[-1])"
End Sub
bzw. macht es immer in Spalte F... Und wenn ich es versuche zu verstellen, dann summiert er von F nach die Spalten durch. Mir fehlt einfach das Wissen das obige Makro zu meinen Wünschen anzpusassen.
Sub Test_Summe()
Dim LR As Long, SP As Integer
SP = 25 'Zielspalte Y
With Sheets("Tabelle1")
LR = .Cells(.Rows.Count, SP - 8).End(xlUp).Row 'letzte Zeile der Spalte Q
.Cells(1, SP).Resize(LR, 1).FormulaR1C1 = "=SUM(RC[-8]:RC[-1])"
End With
End Sub
LG UweDDie erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen