Clever-Excel-Forum

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 :)

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

skn

UweD