Konsolidierung Tabellenblätter
13.01.2004 16:33:12
mugenX5
Ich habe das Problem, dass ich den Inhalt von mehreren Tabellen in einer zusammenfassen will.
Mein Code funktioniert grundsätzlich.
Das Problem liegt nun darin, dass ich den Inhalt der Tabellen erst ab Zeile 3 kopiert haben möchte.
Weiss jemand Rat?
Danke
Steini
Hier mein Code:
With ActiveWorkbook
'neue Tabelle an die erste Position einfügen
For i = 2 To .Worksheets.Count
'Ermitteln den benutzen Bereich der einzelnen Tabellenblätter
Set KBereich = Worksheets(i).UsedRange
'letzte Zeile ermitteln des ersten Blattes
Set ZBereich = Worksheets(1).Cells(Rows.Count, "A").End(xlUp)(2)
'Bereich kopieren
KBereich.Copy Destination:=ZBereich
Next
End With