Ich habe zwei Spalten, Spalte A und Spalte B, in beiden Spalten stehen Daten. Nun moechte ich diese zwei Spalten zu einer zusammenfuegen, ohne, dass dabei Daten verloren gehen. Wie waere es moeglich?
Viele Gruesse,
Alexej
Sub Sammeln()
Dim lRow As Long
lRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
Range("A1").CurrentRegion.Columns(2).Cut Cells(lRow, 1)
Application.CutCopyMode = False
End Sub