Die Frage bezieht sich auf meine gestrige Frage
https://www.herber.de/forum/messages/1198846.html.
Zu dem Problem, in einem Excel-Sheet hintereinander stehende Spalten jeweils in Spalte B untereinander einzufügen (Spalte A enthält jeweils die immer gültigen Zeilenüberschriften) hat mir Jörn bereits mit folgendem Code geholfen:
Dim ZeiX As Long, ZeiB As Long, ZeiA As Long, Spa As Integer, SpaA As Integer, X As Integer
Application.ScreenUpdating = False
SpaA = Cells(1, Columns.Count).End(xlToLeft).Column
For Spa = 2 To SpaA
ZeiB = Cells(Rows.Count, 2).End(xlUp).Row + 1
ZeiX = Cells(Rows.Count, Spa).End(xlUp).Row
Range(Cells(1, Spa), Cells(ZeiX, Spa)).Copy Destination:=Cells(ZeiB, 2)
Next Spa
ZeiA = Cells(Rows.Count, 1).End(xlUp).Row
For X = 2 To SpaA
ZeiA1 = Cells(Rows.Count, 1).End(xlUp).Row + 1
Range(Cells(1, 1), Cells(ZeiA, 1)).Copy Destination:=Cells(ZeiA1, 1)
Next X
' Spalten und Zeilen optimal formatieren
Columns("B:B").EntireColumn.AutoFit
' Ursprungszeilen löschen
Range(Cells(1, 3), Cells(ZeiX, SpaA)).Delete
Application.ScreenUpdating = True
Es soll nach jedem Kopiervorgang ein Seitenumbruch eingefügt werden, so dass jeweils ein Päckchen auf einer neuen Seite erscheint.
Ich habe versucht, den Seitenumbruch jeweils in den For-Next Schleifen unterzubringen. Leider hat dies nicht hingehauen.
Hat jemand hierzu eine Idee?
Vielen Dank.
Karl Heinz