Ich möchte in einem zweiten Tabellenblatt die Werte aus dem ersten Tabellenblatt addieren.
Dabei sollen die Spalten 6 - n mit den Werten aus Spalte 4 addiert werden.
Lässt sich so etwas mit einer Schleife lösen?
Danke im Vorraus!
Liebe Grüße
n = 24
Sheets("Sheet1").Range("F:F").Resize(, n).copy
Sheets("Sheet2").Range("C:C").Resize(, n).pasteSpecial xlpastevalues
Sheets("Sheet1").Range("D:D").copy
Sheets("Sheet2").Range("C:C").Resize(, n).pastespecial xlpastevalues, xladd
Gruß Daniel
Sub Rechnen()
Dim a As Integer
Dim b As Integer
Dim LastRow As Integer
Dim LastColumn As Integer
LastRow = Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row
LastColumn = Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Column
For a = 6 To LastColumn
For b = 1 To LastRow
Sheets(2).Cells(b, a - 3).Value = Sheets(1).Cells(b, 4).Value + Sheets(1).Cells(b, a).Value
Next b
Next a
End Sub
Hoffe das ist was du wolltest.