Lange Spalten in Excel auf mehrer Spalten verteile

Hallo zusammen,
ich habe mir eine Excel Liste mit 50000 (fünfzigtausend) Zeilen und 2 Spalten (A+B) erstellt. Jetzt möchte ich, das die beiden Spalten, pro ausdruckbare Seite aufgeteilt wird so das die Spalten C und D mit genutzt werden.
Die Tabelle sieht in etwa so aus
Die Minus Zeichen dienen nur als Abstandshalter.
Spalte A-----Spalte B
4711----------1020
4712----------1450
.-------------.
.-------------.
6324----------4854
6325----------8565
So stelle ich mir vor wie Sie aussehen soll:
Spalte A------Spalte B-------Spalte C-----Spalte D
4711----------1020-----------6326---------5635
4712----------1450-----------6327---------3626
.-------------.--------------.------------.
.-------------.--------------.------------.
6324----------4854-----------8012---------3625
6325----------8565-----------8013---------3524
Der Wert in Spalte A ist eine fortlaufende EAN-Nr. mit Prüfziffer der Wert in Spalt B ist eine Artikel Nummer.
Wenn jemand einen Tip hat, wäre ich dankbar für eine Antwort.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Optimieren() Dim iZeilenProSeite%, iZeilenGesamt%, iDurchlauf%, iErsteZeile%, First As Boolean iZeilenProSeite = 56 iZeilenGesamt = ActiveCell.SpecialCells(xlLastCell).Row Do If iDurchlauf = 0 Then iErsteZeile = iErsteZeile + (iZeilenProSeite + 1) 'immer beim 2. Durchlauf If First Then Range("A" & iErsteZeile & ":B" & iZeilenProSeite + iErsteZeile - 1).Select Selection.Cut Range("C" & iErsteZeile - iZeilenProSeite).Select ActiveSheet.Paste Range("A" & iErsteZeile & ":B" & iZeilenProSeite + iErsteZeile - 1).Delete Shift:=xlUp iErsteZeile = iErsteZeile + iZeilenProSeite End If First = Not First iDurchlauf = iDurchlauf + 1 Loop Until Range("A" & iErsteZeile) = "" End Sub

Hi Helmut,
folgender Code funktioniert problemlos für 2 Aufteilung, allerdings ab der dritten Aufteilung bleibt die erste zeile leer. Deshalb Frage noch auf offen gestellt.
Teste ihn un dwenn sklappt, entferne das call Füllen und die Sub Füllen.


Option Explicit
Sub tt()
Call Füllen
Dim sp As Integer, zei As Integer, n As Long, lae As Long, anz As Long
sp = 5 'Anzahl der Aufteilungen, maximal 127
zei = 80 'Anzahl Zeilen pro Druckblatt
lae = Cells(65536, 1).End(xlUp).Row
anz = Int(lae / sp)
While anz / zei <> Int(anz / zei)
anz = anz - 1
Wend
For n = 1 To sp - 1
Range(Cells(n * anz + 1, 1), Cells((n + 1) * anz + 1, 2)).Cut Destination:=Cells(1, n * 2 + 1)
Next n
End Sub
Sub Füllen()
Range("C1:IV65536").Clear
Range("A1").FormulaR1C1 = "1"
Range("A1").AutoFill Destination:=Range("A1:A50000"), Type:=xlFillSeries
Range("B50000").FormulaR1C1 = "1"
Range("B50000").AutoFill Destination:=Range("B1:B50000"), Type:=xlFillSeries
Range("A1").Select
End Sub

Gruß
Reinhard

Beliebteste Forumthreads (12 Monate)

Lange Spalten in Excel auf mehrer Spalten verteile

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Lange Spalten in Excel auf mehrer Spalten verteile

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread