Supportnet / Forum / Tabellenkalkulation
Excel Spalten Zusammenführen
Frage
Hallo,
ich möchte in Excel zwei Spalten in einer zusammenführen und dabei die Zeile jeweils abwechselnd untereinander schreiben, kann mir da jemand helfen??
Beispiel:
A1 B1
A2 B2
A3 B3
...
soll werden zu:
A1
B1
A2
B2
A3
B3
...
Antwort 1 von JoeKe
Hallo tsweep,
wenn es nicht mehr als 254 Zeilen sind und in Zeile 1 und 2 ab Spalte C keine anderen Daten stehen, geht es mit folgendem Code:
Option Explicit
Sub zusammen()
Dim loLetzte As Long, intSpalte As Integer
Application.ScreenUpdating = False
loLetzte = Cells(Rows.Count, 1).End(xlUp).Row
Range("A1:B" & loLetzte).Copy
Range("C1").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Columns("A:B").Delete Shift:=xlToLeft
For intSpalte = 2 To Cells(1, Columns.Count).End(xlToLeft).Column
Range(Cells(1, intSpalte), Cells(2, intSpalte)).Copy _
Destination:=Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Next
Range(Cells(1, 2), Cells(2, Columns.Count).End(xlToLeft)).ClearContents
Application.ScreenUpdating = True
End Sub
Gruß
JöKe
wenn es nicht mehr als 254 Zeilen sind und in Zeile 1 und 2 ab Spalte C keine anderen Daten stehen, geht es mit folgendem Code:
Option Explicit
Sub zusammen()
Dim loLetzte As Long, intSpalte As Integer
Application.ScreenUpdating = False
loLetzte = Cells(Rows.Count, 1).End(xlUp).Row
Range("A1:B" & loLetzte).Copy
Range("C1").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Columns("A:B").Delete Shift:=xlToLeft
For intSpalte = 2 To Cells(1, Columns.Count).End(xlToLeft).Column
Range(Cells(1, intSpalte), Cells(2, intSpalte)).Copy _
Destination:=Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Next
Range(Cells(1, 2), Cells(2, Columns.Count).End(xlToLeft)).ClearContents
Application.ScreenUpdating = True
End Sub
Gruß
JöKe