Hallo,
habe eine Excel-Datei mit ca. 200 Tabellenblättern.
In allen Tabellenblättern sind ab Zeile 10 variabel viele Datensätze fortlaufend eingetragen.
Nun möchte ich gerne die Daten aus allen Tabellenblättern in eine neue Tabelle untereinander kopieren.
Dies müsste sich doch mit einer Schleife erledigen lassen, was mir aber leider nicht gelingt.
Kann mir jemand erklären, wie die Schleife aufgebaut sein muss?
Mein "Versuch" war folgender:
Sub KopierenallerBereiche()
Dim Blatt1 As Worksheet
Dim i As Integer
Set Blatt1 = Worksheets(2)
For i = 2 To Worksheets.Count
Worksheets(i).UsedRange.Copy Destination:=Blatt1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Next i
End Sub
Es funktioniert leider nicht und es kopiert lediglich den gesamten Bereich.
Für hilfreiche Anmerkungen wäre ich sehr dankbar.