Office: Viele Spalten untereinander in eine Spalte bekommen

Moin,
ich habe Daten in der Form A1:A300, B1:B300, ..., R1:R300
Die Daten sollen am Ende die Form A1:A5400 haben wobei erst alle Werte A, darunter alle Werte aus B und so weiter bis als Letztes alle Werte aus R untereinander stehen. Kennt dafür jemand einen Befehl? Kenne mich leider damit nicht gut aus.

LG

 

Hi,

das kannst du mit folgendem Makro erledigen:

Code:

Sub Untereinander()
    Dim intSpalte As Integer
    Dim lngZeile As Long
    lngZeile = 301
    For intSpalte = 2 To 18
        Range(Cells(1, intSpalte), Cells(300, intSpalte)).Copy Cells(lngZeile, 1)
        lngZeile = lngZeile + 300
    Next intSpalte
End Sub

Dabei wird mit Spalte B begonnen, die unter die bereits vorhandenen Werte der Spalte A kopiert werden und dann weiter.

---

 

Hi,

ein bisschen einfacher:

=ZUSPALTE(A1:R300;1;1)

Voraussetzung: xl365 Beta