Tabellen zusammenfügen in Excel

[spöppi]

Hallo Leute,

Ich brauch wirklich Hilfe sonst wird das nichts.

Ich habe eine Datei mit 12 Tabellen und möchte jetzt 10 Tabellen davon in einer Tabelle zusammenfassen.

.) Alle 10 Tabellen haben die gleichen Spaltenüberschriften (9 Spalten).
.) in den Daten kommen manchmal auch Leerzeilen vor (das könnte ich auch händisch ändern lieber wäre mir aber nicht )

Bei meiner Suche habe ich den Code gefunden war aber leider nicht in der Lage in so umzuschreiben das er macht was ich will.

Danke schon jetzt für eure Hilfe.

Michael


Code:

Sub kopieren()

Dim rngQ As Range, rngZ As Range

For Each rngQ In Workbooks("Mappe2.xls").Sheets(1).Range("A2:A" & _
Workbooks("Mappe2.xls").Sheets(1).Range("A65536").End(xlUp).Row)

Set rngZ = Workbooks("Mappe1.xls").Sheets(1).Range("A:A").Find(What:=rngQ, Lookat:=xlWhole)
If rngZ Is Nothing Then
Range(rngQ, rngQ.End(xlToRight)).Copy Destination:=Workbooks("Mappe1.xls").Sheets(1) _
.Range("A2").End(xlDown).Offset(1, 0)
Else
Range(rngQ.Offset(0, 1), rngQ.End(xlToRight)).Copy _
Destination:=rngZ.End(xlToRight).Offset(0, 1)
End If

Next rngQ

 

[Toppa]

Also wenn's nur einmalig sein soll, dann würde ich das mal eben händisch per cut/copy & paste machen...