Inhalt von Spalten untereinander auflisten

[Klaus Rudolf Roth]

Hallo Leute,

ich habe in Excel 2003, dass ich 200 Spalten zu einer zusammenfügen möchte.

Im Moment sieht das also so aus:

ADF JKL PQ...
BEG M
C H
I

und ich will das so haben:

A
B
C
D
E
F
G
H
I
J
K
L
M
.
.
.

Wie gesagt, es sind annähernd 200 Spalten, die zwischen 0 und 200 Zeilen
haben. Spalten, bei denen keine einzigen Zellen gefüllt sind, kann ich
auch manuell löschen.

Ich wäre für eine Hilfe, die weder Makros noch VBA verwendet, ganz
besonders dankbar.

Grüße
Klaus

[Klaus "Perry" Pago]

Hallo Klaus,

Post by Klaus Rudolf Roth
Hallo Leute,
ich habe in Excel 2003, dass ich 200 Spalten zu einer zusammenfügen möchte.
ADF JKL PQ...
BEG M
C H
I
A
B
C
D
E
F
G
H
I
J
K
L
M
.
.
.
Wie gesagt, es sind annähernd 200 Spalten, die zwischen 0 und 200 Zeilen
haben. Spalten, bei denen keine einzigen Zellen gefüllt sind, kann ich
auch manuell löschen.
Ich wäre für eine Hilfe, die weder Makros noch VBA verwendet, ganz
besonders dankbar.

um es mit Friedrich von Schiller zu sagen:
"Herr, dunkel war der Rede Sinn..." :)

schau mal hier - vielleicht ist das ja die Lösung:

http://www.excelformeln.de/tips.html?welcher=86

Gruß
Klaus

[Klaus Rudolf Roth]

Post by Klaus "Perry" Pago
http://www.excelformeln.de/tips.html?welcher=86

Hallo Klaus,
danke für die Antwort, aber das war es nicht.

Ich versuche noch einmal, das Problem zu beschreiben:

Ich habe viele Spalten. Diese Spalten sind unterschiedlich gefüllt.
Also:
A1 bis A9 sind gefüllt mit Text,
B1 bis B3 sind gefüllt mit Text,
C1 bis C8 sind gefüllt mit Text,
D1 bis D99999 ist komplett leer,
E1 bis E8 ist gefüllt mit Text,
etc.

Jetzt möchte ich diese Spalteninhalte alle in einer Spalte haben.
Sprich: die Inhalte von B1 bis E8 und weiter sollten in die Zellen A10
bis A99999, so dass alles in Spalte A steht und B1 bis E8 etc. leer ist.
Dabei dürfen mir aber keine Zellinhalte verloren gehen.

Außerdem: die Sortierreihenfolge in Spalte A keine Rolle.

Grüße
Klaus

[Klaus "Perry" Pago]

Hallo Klaus,

Post by Klaus "Perry" Pago

Post by Klaus "Perry" Pago
http://www.excelformeln.de/tips.html?welcher=86

Hallo Klaus,
danke für die Antwort, aber das war es nicht.
Ich habe viele Spalten. Diese Spalten sind unterschiedlich gefüllt.
A1 bis A9 sind gefüllt mit Text,
B1 bis B3 sind gefüllt mit Text,
C1 bis C8 sind gefüllt mit Text,
D1 bis D99999 ist komplett leer,
E1 bis E8 ist gefüllt mit Text,
etc.
Jetzt möchte ich diese Spalteninhalte alle in einer Spalte haben.
Sprich: die Inhalte von B1 bis E8 und weiter sollten in die Zellen A10
bis A99999, so dass alles in Spalte A steht und B1 bis E8 etc. leer ist.
Dabei dürfen mir aber keine Zellinhalte verloren gehen.
Außerdem: die Sortierreihenfolge in Spalte A keine Rolle.

ohne VBA ist das nur sehr umständlich zu lösen. Ein Beispiel findest
du hier:

http://www.excelformeln.de/formeln.html?welcher=315
(Ergänzung vom 08.01.2008)

es werden allerdings nur 3 Spalten untereinander angeordnet, da der
verwendeten Matrixformel durch Excel Grenzen gesetzt wird..

Gruß
Klaus

[Andreas Killer]

Post by Klaus Rudolf Roth
Jetzt möchte ich diese Spalteninhalte alle in einer Spalte haben.
Sprich: die Inhalte von B1 bis E8 und weiter sollten in die Zellen A10
bis A99999, so dass alles in Spalte A steht und B1 bis E8 etc. leer ist.
Dabei dürfen mir aber keine Zellinhalte verloren gehen.

Mit VBA ist das sehr einfach zu lösen:

Sub CopyPrim()
Quelle = "Tabelle1"
Ziel = "Tabelle2"
Yziel = 1

With Sheets(Quelle)
'Durchlaufe alle Spalten der Quelle
For Xquelle = 1 To .Cells.SpecialCells(xlCellTypeLastCell).Column
'Durchlaufe alle Zeilen der Quelle
For Yquelle = 1 To .Cells.SpecialCells(xlCellTypeLastCell).Row
'Ist die Zelle leer?
If Not IsEmpty(.Cells(Yquelle, Xquelle)) Then
'Zellinhalt kopieren
Sheets(Ziel).Cells(Yziel, 1) = .Cells(Yquelle, Xquelle)
Yziel = Yziel + 1
End If
Next
Next
End With
End Sub

Schau's Dir mal an, ich glaub es ist nicht so schwierig zu verstehen was
da passiert.

Andreas.