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.Die 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