wie bekomme ich alle in meinem Beispiel Zahlen untereinander in Spalte A verschoben/ kopiert?
https://www.herber.de/bbs/user/24895.xls
Danke Jens
Sub kop()
Dim i%, s%, lz%, ez
lz = Cells(Rows.Count, 2).End(xlUp).Row
ez = 1
For i = 1 To lz
For s = 2 To 256
If Cells(i, s) <> "" Then
Cells(ez, 1) = Cells(i, s)
ez = ez + 1
End If
Next
Next
End Sub