Gruppe
Druck
Problem
Wie kann ich eine feste Anzahl von Zeilen in einer Spalte auf mehrere Spalten mit einer festgelegten Seitenlänge verteilen?
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