Ich habe in einer Tabelle mehrere zusammenhängede Spalten mit Daten. Nun möchte ich an einen bestimmten Bereich jeder dieser einzelnen Spalten rauskopieren (z.B. B2:B25, C2:25, D2:D25 usw) und an einer anderen Stelle untereinander einfügen.
Also in etwa so:
A B C
1 4 7
2 5 8
3 6 9
=>
A
1
2
3
4
5
6
7
8
9
Das ganze soll per Makro automatisch gehen, bis das Ende der Daten erreicht ist, sprich die erste leere Spalte auftaucht.
Bis jetzt hab ich mir dafür folgendes zusammengebastelt (hab bisher nur sehr grundlegende Kenntnisse in VBA):
Sub Plot()
Application.ScreenUpdating = False
i = 2
Do Until IsEmpty(Cells(2, i + 1))
Range("?").copy
Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.paste
i = i + 1
Loop
Application.ScreenUpdating = True
End Sub
Im Moment hänge ich an dem Problem, wie ich die Range so definiere, dass jeweils die Zeilen 2 bis 25 in jeder Spalte gemeint sind.
Der Rest sollte funktionieren, auch wenn der Code wahrscheinlich eher umständlich ist, aber ich bin wie gesagt noch Anfänger.
Vielen Dank für eure Hilfe!
Gruß,
Ralph