Excel und VBA: Formeln, Programmierung, Lösungen

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