Zelleninhalte splitten und nacheinander unter der Zelle einfügen

[Cadmus]

Siehe Beitrag #8.

---

Siehe Beitrag #8.

[UweD]

Hallo

kann den Fehler bei mir nicht nachvollziehen. Da brachen wir dann wirklich mal eine Musterdatei

Aber: du schreibst, du willst alles in Spalte A haben.
angenommen die Daten beginnen ab A und du hast mehrere Spalten rechts daneben

Code:

Sub untereinander()
    Dim LC As Integer, LRx As Integer, LRa As Integer, Z1 As Integer, Sp As Integer, i As Integer
   
    Z1 = 2 'erste Datenzeile
    LC = Cells.SpecialCells(xlCellTypeLastCell).Column 'Letzte Spalte des gesamten Blattes
   
    For i = 2 To LC
        LRa = Cells(Rows.Count, 1).End(xlUp).Row 'letzte Zeile der Spalte A
        LRx = Cells(Rows.Count, i).End(xlUp).Row
       
        'kopiert alle Spalten nach A
        Cells(LRa + 1, 1).Resize(LRx - Z1 + 1, 1).Value = Cells(Z1, i).Resize(LRx - Z1 + 1, 1).Value
   
    Next
    'Löschen
    Columns(2).Resize(, LC - 1).Delete
   
End Sub

LG UweD