Lange Spalte drucken

Forumthread: Lange Spalte drucken

21.07.2006 13:12:07

Daniel

Hallo Leute,
ich habe eine Excel Datei, bei welcher die Spalte A ca. 10-stellige Zahlen enthält, ca. 5500 Stück. Dies zu drucken wäre nicht sehr effektiv.
Wie kann ich diese Spalte automatisch auf mehrere Spalten verteilen, sodass ich nur noch einen Bruchteil der Seiten benötige und die Blätter ausgefüllter sind?
Vielen Dank vorab...
Daniel

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Lange Spalte drucken

21.07.2006 13:25:05

Matthias

AW: Lange Spalte drucken

21.07.2006 13:25:05

Matthias

Hallo Daniel,
z.B. so:


Sub test()
Dim z As Integer, lz As Long, sp As Integer
z = Sheets(1).HPageBreaks(1).Location.Row
Debug.Print z
sp = 1
lz = Cells(Rows.Count, sp).End(xlUp).Row
Do While lz >= z
Range(Cells(z, sp), Cells(lz, sp)).Cut Cells(1, sp + 1)
sp = sp + 1
lz = Cells(Rows.Count, sp).End(xlUp).Row
Loop
End Sub

Gruß Matthias

Forumthread: Lange Spalte drucken

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread