mit diesem Script adiere ich aus allen Sheets die Summen.
Sub Summieren()
Sheets("Active").Cells(2, 2).Formula = "=SUM('" & _
Sheets(2).Name & ":" & Sheets(Worksheets.Count).Name & "'!B2)"
End Sub
Frage, wie kann es so abgeaendert werden, dass von allen Sheet der Abschnit (B2:G2) kopiert wird und in dem Aktiven Sheet nacheinander reingeschrieben werden. Also vom Sheet1 ab B2, Sheet2 ab B3, Sheet3 ab B4, etc..
Paul