11.07.2022, 07:45
Seiten: 1 2
11.07.2022, 08:48
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
LG UweD
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
Seiten: 1 2