Gleichen Abschnitt auf mehreren Blättern kopieren und untereinander einfügen

[FWI1909]

Guten Tag zusammen,
ich habe eine Datei mit 80 Blättern, welche alle den gleichen Aufbau haben. 
Jetzt würde ich gerne folgendes machen:

Auf jedem Blatt die Zellen E4-E8 kopieren und anschließen untereinander auf einem leeren Blatt einfügen.

Geht das ?

Danke

[Klaus-Dieter]

Hallo,

natürlich geht das. Da gleichartige Daten nicht über mehrere Tabellenblätter verteilt werden sollten, empfehle ich, das noch einmal einer kritischen Überprüfung zu unterzeihen.

[Case]

Hallo, :19:

grundsätzlich so: :19:

  Daten_aus_mehreren_Sheets_sammeln.xlsb (Größe: 29,95 KB / Downloads: 2)

[FWI1909]

Mit VBA kenne ich mich leider gar nicht aus :(
Makro aufzeichnen geht noch, aber dann muss ich den Schritt ja vorher auch ausführen :D 

Ich habe halt 80 Blätter aus verschiedenen Ländern, und in den bestimmten Zellen stehen halt immer die Umsätze der Quartale.
Diese würde ich gerne so dachte ich es mir mit Shift die 80 Blätter kopieren die Zellen welche ich benötige kopieren und einfügen. 
Nur stehen die Zahlen dann natürlich nicht untereinander ...

[FWI1909]

Hab es hinbekommen 

Sub exercise()
    Dim ws As Worksheet
    Dim rng As Range
    Dim pos As Integer
    pos = 4
    Dim sheet_nr As Integer
    Dim value_celle As String
   
   
    For sheet_nr = 23 To 140 Step 1 'For Words = 10 To 1 Step -1
        Debug.Print Sheets(sheet_nr).Name
        Sheets("Zusammenfassung").Range("A" & pos).Value = Sheets(sheet_nr).Name
        Sheets("Zusammenfassung").Range("O" & pos & ":S" & pos).Value = Sheets(sheet_nr).Range("CK4:CO4").Value
        Sheets("Zusammenfassung").Range("B" & pos & ":F" & pos).Value = Sheets(sheet_nr).Range("BI4:BM4").Value
        pos = pos + 1
    Next sheet_nr
'
   

'    For Each ws In ActiveWorkbook.Worksheets
'        Debug.Print ws.Name & " >>" & ws.Index
'
'    Next ws 'A1:C1
End Sub