Tabellen zusammenführen

Forumthread: Tabellen zusammenführen
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Tabellen zusammenführen

21.12.2012 09:50:18

Harald

Hallo zusammen,
ich habe eine Arbeitsmappe mit ca. 265 Tabellenblättern. Jedes Tabellenblatt ist als "sheet 1" und nummernfortlaufend bis "sheet 265" benannt. Jedes Tabellenblatt beinhaltet in Spalte A Daten in unterschiedlich viel Zeilen.
Gibt es eine Möglichkeit mit einer Formel, alle Daten untereinander in Tabellenblatt "sheet 1" oder gern auch ein neues, reinkopiert zu bekommen?
Die Formel müsste dann die Daten aus "sheet 2" bis Zeile X nehmen und dann sobald eine Leerzeile in "sheet 2 " erreicht wird, in "sheet 3" springen und dort weiter machen usw..
Ich hoffe, ich habe dies einigermaßen erklärt.
Danke und Gruß
Harald

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Tabellen zusammenführen

21.12.2012 10:39:15

robert_1
AW: Tabellen zusammenführen

21.12.2012 10:42:00

robert_1

AW: Tabellen zusammenführen

21.12.2012 10:39:15

robert_1

nicht sicher aber vielleicht mit:
j=1
for i=1 to 265
sheets("sheet "&i).usedrange.rows.count copy sheets("sheet_new").range(cells(j,1),cells(j+ (sheets("sheet "&i).usedrange.rows.countusedrange.rows.count),1).paste
j= j+ sheets("sheet "& i).usedrange.rows.count
next i

AW: Tabellen zusammenführen

21.12.2012 10:42:00

robert_1

edit:
~f~
j=1
for i=1 to 265
if j=1 then
sheets("sheet "&i).usedrange.rows.count copy sheets("sheet_new").range(cells(j,1),cells(j,1).paste
else
sheets("sheet "&i).usedrange.rows.count copy sheets("sheet_new").range(cells(j,1),cells(j+ (sheets("sheet "&i).usedrange.rows.count),1).paste
endif
j= j+ sheets("sheet "& i).usedrange.rows.count
next i