Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
25.04.2024 11:49:37
Array verwenden
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1288to1292
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1288to1292
1288to1292
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellen zusammenführen

Tabellen zusammenführen
21.12.2012 08: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
Anzeige
AW: Tabellen zusammenführen
21.12.2012 09: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 09: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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige