feste bereiche auf einem Blatt zusammen kopieren

[skn]

Hallo Zusammen,

ich habe eine kurze Frage. 

Ich habe verschiedene Arbeitsblätter in einer Excelmappe. Von jedem Arbeitsblatt soll ein fester Bereich (in meinem Fall Zeile 200-300) in einem zusätzlichem Arbeitsblatt zusammen gefasst werden. 

Beispiel 

Tabelle 1 (Zeile 100 - 200)
Tabelle 2 (Zeile 100 - 200)
Tabelle 3 (Zeile 100 - 200)
Tabelle 4 (Zeile 100 - 200)

Tabelle 5 alles von oben untereinander zusammengeführt. 

Es sind über dreißig Arbeitsblätter und ich muss es monatlich wieder holen, daher möchte ich das nicht manuell kopieren. 

Vielen Dank :) 

[UweD]

Hallo


so??
in ein Modul

Code:

Sub Zusammen()
    Dim TB As Worksheet, TBZ As Worksheet, Anzahl As Integer, Zeile1 As Integer, NeuZeile As Integer
   
    Set TBZ = Sheets("Tabelle5") 'Zieltabelle
   
    Zeile1 = 1    'erste Zeile mit Daten
    Anzahl = 100  'Anzahl Zeilen, die kopiert werden sollen
    NeuZeile = 1  '1. Zielzeile
   
   
    'reset
    TBZ.UsedRange.Rows.Delete
   
    For Each TB In ThisWorkbook.Sheets
        Select Case TB.Name
       
        Case "Tabelle5", "Tabelle Sonstnochwas"
            'Bei diesen Tabellen mache nichts
       
        Case Else
       
            TB.Rows(Zeile1).Resize(Anzahl).Copy TBZ.Rows(NeuZeile).Resize(Anzahl)
            NeuZeile = NeuZeile + Anzahl
       
        End Select
    Next
End Sub

LG UweD