Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
784to788
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
784to788
784to788
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Lange Spalte drucken

Lange Spalte drucken
21.07.2006 11: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
Anzeige
AW: Lange Spalte drucken
21.07.2006 11: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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige