Gruppe
Druck
Bereich
Seite
Thema
Textreihe auf mehrere Spalten mit fester Seitenlänge verteilen
Problem
Wie kann ich eine feste Anzahl von Zeilen in einer Spalte auf mehrere Spalten mit einer festgelegten Seitenlänge verteilen?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain
Sub TextInSpalten()
Dim rng As Range
Dim iRow As Integer, iCountR As Integer, iCol As Integer
Application.ScreenUpdating = False
Set rng = Range("A1").CurrentRegion
iCountR = 55
Workbooks.Add
For iRow = 1 To rng.Rows.Count Step iCountR
iCol = iCol + 1
rng.Range(rng.Cells(iRow), _
rng.Cells(iRow + iCountR - 1)).Copy Cells(1, iCol)
Next iRow
ActiveSheet.PrintPreview
ActiveWorkbook.Close savechanges:=False
Application.ScreenUpdating = True
End Sub