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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen