mehrere Spalten in eine Spalte kopieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub CopyToColumnC() Dim rngColumn As Range Dim wbkTarget As Workbook Dim iTargetRow As Integer iTargetRow = 1 Set wbkTarget = Workbooks.Add For Each rngColumn In ThisWorkbook.ActiveSheet.UsedRange.Columns With rngColumn.SpecialCells(xlCellTypeConstants) .Copy wbkTarget.Sheets(1).Cells(iTargetRow, 3).PasteSpecial (xlPasteAll) iTargetRow = iTargetRow + .Count End With Next End Sub

Sub CopyToColumnC() Dim rngColumn As Range Dim wbkTarget As Workbook Dim iTargetRow As Integer iTargetRow = 1 Set wbkTarget = Workbooks.Add For Each rngColumn In ThisWorkbook.ActiveSheet.Range("B10:F50").Columns rngColumn.Copy wbkTarget.Sheets(1).Cells(iTargetRow, 3) iTargetRow = iTargetRow + rngColumn.Cells.Count Next End Sub

Hallo Reiner,
ich finde es immer wieder schwach wenn der Fragesteller auf Lösungsvorschläge nicht reagiert. Kein Danke oder sonstiges Feedback mit Bitte zur Optimierung. Eigentlich hatte ich erwartet, dass du noch schreibst ob die betreffenden Arbeitsmappen mit den Quelldaten aus einem Verzeichnis ausgelesen werden müssen oder ob alle bereits in Excel geöffnet sind und durch durchlaufen werden müssen. Ebenso ist völlig unklar, ob die Daten in eine bestehende Excelmappe kopiert werden sollen (...dann wäre der Mappenname wichtig) oder ob eine neue Arbeitsmappe angelegt werden soll. Hier mein letzter Stand des Codes, damit die Daten dynamisch von mehreren Arbeitsmappen untereinander eingefügt werden:

Sub CopyToColumnC()
Dim rngColumn As Range
Dim wbkTarget As Workbook
Set wbkTarget = Workbooks.Add
For Each rngColumn In ThisWorkbook.ActiveSheet.Range("B10:F50").Columns
rngColumn.Copy wbkTarget.Sheets(1).Cells(Rows.Count, 3).End(xlUp).Offset(1)
Next
End Sub

Das Durchgehen der Arbeitsmappen kann nun jemand anderes machen, weil du nicht reagiert hast und ich keine weitere Lust habe auf eine Reaktion zu warten.
Freitags um eins macht jeder seins... - mein Lösungsvorschlag liegt bereits drei Stunden zurück und jetzt ist es schon nach zwei.
Viele Grüße
Martin

Hallo Reiner,
... in Deinem Eröffnungsthread. Für eine Datei oder wie in Deiner Beispieldatei aus einem Tabellenblatt wäre eine Formellösung noch vertretbar.
Dann z.B. so (Hilfszeile fast beliebig anordenbar, kann ausgeblendet werden, Formel C8 nach rechts kopieren, die 0 in B8 ist zwingend notwendig)

	A	B	C	D	E
8	Hilfszeile	0	5	13	19
9
10		10	60	110
11		20	70	120
12		30	80	130
13		40	90	140
14		50	100	150
15			101	160
16			102
17			103
18

Zelle	Formel
C8	=ANZAHL(B10:B99)+A9

Verwendete Systemkomponenten: [Windows (32-bit) NT 6.02] MS Excel 2010

Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg

Dann Formel im Ergebnistabellenblatt ziehend weit genug nach unten kopieren.

	C
1	10
2	20
3	30
4	40
5	50
6	60
7	70
8	80
9	90
10	100
11	101
12	102
13	103
14	110
15	120
16	130
17	140
18	150
19	160
20
21

Zelle	Formel
C1	=WENNFEHLER(INDEX(Ursprung!B:D;ZEILE(Ursprung!$B$10)+ZEILE()-1-INDEX(Ursprung!$8:$8;1+VERGLEICH(ZEILE()-1;Ursprung!$B$8:$H$8));VERGLEICH(ZEILE()-1;Ursprung!$B$8:$H$8));"")

Verwendete Systemkomponenten: [Windows (32-bit) NT 6.02] MS Excel 2010

Gruß Werner
.. , - ...

Beliebteste Forumthreads (12 Monate)

mehrere Spalten in eine Spalte kopieren

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

	C
1	10
2	20
3	30
4	40
5	50
6	60
7	70
8	80
9	90
10	100
11	101
12	102
13	103
14	110
15	120
16	130
17	140
18	150
19	160
20
21

	C
1	10
2	20
3	30
4	40
5	50
6	60
7	70
8	80
9	90
10	100
11	101
12	102
13	103
14	110
15	120
16	130
17	140
18	150
19	160
20
21

mehrere Spalten in eine Spalte kopieren

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

	C
1	10
2	20
3	30
4	40
5	50
6	60
7	70
8	80
9	90
10	100
11	101
12	102
13	103
14	110
15	120
16	130
17	140
18	150
19	160
20
21