Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
288to292
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
288to292
288to292
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Lange Datenreihen mit Seitenumbruch formatieren

Lange Datenreihen mit Seitenumbruch formatieren
31.07.2003 15:45:17
CL
Hallo,
wer kann helfen?
Ich habe viele Daten 2 Spaltig untereinander eingetragen.
Ich möchte nun gerne alles auf 6 Spalten verteilen und später ausdrucken; aber die Sortierung beibehalten.
Es muss also irgendein Seitenumbruch her. Nur wie ?
Danke.

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Lange Datenreihen mit Seitenumbruch formatieren
31.07.2003 16:37:54
Stephan
Hi CL!
Hier mal ein Ansatz:

Sub test()
Application.DisplayAlerts = False
ActiveSheet.Copy
Dim LaR, z, i, j, k As Integer
LaR = Cells(Rows.Count, 1).End(xlUp).Row
z = 21
j = 1
k = 2
Do While LaR > z
For i = z + 1 To z + 20
Cells(i - z, j + k).Value = Cells(i, 1).Value
Cells(i, 1).Value = Null
Cells(i - z, j + k + 1).Value = Cells(i, 2).Value
Cells(i, 2).Value = Null
Next
z = z + 20
j = j + 1
k = k + 1
Loop
ActiveWorkbook.PrintOut
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub

Gruß
Stephan

AW: Lange Datenreihen mit Seitenumbruch formatieren
31.07.2003 16:50:40
Fischmann
Hallo Leute,
ich habe ein ähnliches Problem (nur mit 5 Spalten) die ich nebeneinander zu Papier bringen will.
Ich verstehe allerdings überhaupt kein VBA.
Geht das auch anders ??
Fischmann

Anzeige
AW: Lange Datenreihen mit Seitenumbruch formatieren
31.07.2003 17:03:21
Stephan
ich befürchte nein ...

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige