Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Textreihe auf mehrere Spalten mit fester Seitenlänge verteilen

Gruppe

Seite

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

    

Beiträge aus dem Excel-Forum zu den Themen Druck und Seite