Zeilen in Spalten

[StefanB]

Hey @all,

wie kann ich mehrere Zeilen in 1 Spalte untereinander kopieren?
Ist:
A1 B1 C1 D1
A2 B2 C2 D2
etc.
Soll dann so aussehen:
A1
B1
C1
D1
A2
B2
C2
D2
etc. 
Mit transponieren brauche ich Jahre bei 1200 Zeilen 

Danke Euch

Hab mal ne beispieldatei angehangen ...

[echo]

wie kann ich mehrere Zeilen in 1 Spalte untereinander kopieren?

Hallo
beispielsweise mit einer Formel:

Code:

=INDEX($A$1:$D$1200;GANZZAHL(ZEILE(A4)/4);1+REST(ZEILE(A4);4))

Formel so in die oberste Zelle kopieren und runter ziehen so weit wie notwendig.
Anschließend Formelspalte markieren > kopieren > Rechtsklick > Inhalte einfügen > Inhalte einfügen > Nur Werte

Gruß Holger

Nachtrag:
In deinem Beispiel sieht es so aus als wären es nur drei Spalten. In deinem Text sind es 4 Spalten. 
Die Formel geht von 4 Spalten aus, sonnst aus jeder 4 eine 3 machen :)

[BigJane]

Hi,

falls in deiner Version schon vorhanden dann

Code:

=zuspalte(A1:D1200)

,

(ohne Runterziehen, die Matrix baut sich alleine auf)

VG Jane

[Egon12]

Hallo,

via VBA:

Code:

Sub AllesInEineSpalte()
    Dim i&, j&, k&, arrSp(), arrL(): arrL = Tabelle1.UsedRange.Value
    ReDim arrSp(1 To Tabelle1.UsedRange.Cells.Count, 1 To 1)
    For i = LBound(arrL) To UBound(arrL)
        For j = LBound(arrL, 2) To UBound(arrL, 2)
            If arrL(i, j) <> "" Then
                k = k + 1
                arrSp(k, 1) = arrL(i, j)
            End If
        Next j
    Next i
    With Tabelle1
        .UsedRange.ClearContents
        .Range("A1").Resize(k, 1) = arrSp
    End With
End Sub

  Alles in eine Spalte.xlsm (Größe: 15,84 KB / Downloads: 0)


Gruß Uwe

[StefanB]

Danke Euch!!!!!

[snb]

In VBA

Code:

Sub M_snb()
  Sheet1.UsedRange.Copy

  With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
      .GetFromClipboard
      sn = Split(Replace(.Gettext, Chr(9), Chr(10)), Chr(10))
  End With
  Application.CutCopyMode = 0
 
  Cells(10, 1).Resize(UBound(sn) + 1) = Application.Transpose(sn)
End Sub

[Jockel]

man könnte das ja auch mit Power Query machen- ohne Formeln und ohne VBA(Stichwort: Entpivotiren bzw.: Entpivotierte Spalten)

[RPP63]

Natürlich, Jörg!
Aber =ZUSPALTE(Bereich) ist doch in der Schlichtheit einfach nur prima!

	A	B	C	D	E	F
1	Spalte1	Spalte2	Spalte3	Spalte4		A1
2	A1	B1	C1	D1		B1
3	A2	B2	C2	D2		C1
4						D1
5						A2
6						B2
7						C2
8						D2
9

Zelle	Formel
F1	=ZUSPALTE(Tabelle1)

Dahingegen PQ:

Code:

let
    Quelle = Excel.CurrentWorkbook(){[Name="Tabelle1"]}[Content],
    #"Entpivotierte Spalten" = Table.UnpivotOtherColumns(Quelle, {}, "Attribut", "Wert"),
    #"Entfernte Spalten" = Table.RemoveColumns(#"Entpivotierte Spalten",{"Attribut"})
in
    #"Entfernte Spalten"

Aber wohlgemerkt:
In älteren Versionen (und vor allem steigender Komplexität) unbedingt empfehlenswert!
Aber ich gehöre eher zur Fraktion, dass die "neuen" Spill-Formeln auch für einen Newbie einfacher zu handeln sind als das "Zusammenklicken" im PQ-Editor.

Gruß Ralf

[Jockel]

Natürlich, Jörg!
Aber =ZUSPALTE(Bereich) ist doch in der Schlichtheit einfach nur prima!

Keine Frage Ralf, aber ich habe seit meinem Zwischenfall nur noch XL2019 - und das wird sich in absehbarer Zeit auch nicht ändern. Schade, aber daraus ergeben sich auch Chancen... und der Vielfältigkeit wegen wollte ich es halt erwähnen.Ich habe gern mehere Auswahlmöglichkeitenzur Lösungsfindung. Man muss es ja nicht wollen, wie ich. Alles gut.