VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Zeilenumbruch bei Wertänderung

Gruppe

Druck

Bereich

Umbruch

Thema

Zeilenumbruch bei Wertänderung

Problem

Gemäß den Werten in Spalte A sollen die Seitenumbrüche gesetzt werden.

Lösung

Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.




StandardModule: Modul1

Sub SetPageBreaks()
   Dim iRow As Integer
   iRow = 2
   Do Until IsEmpty(Cells(iRow, 1))
      If Cells(iRow, 1).Value <> Cells(iRow - 1, 1).Value Then
         Cells(iRow, 1).PageBreak = xlPageBreakManual
      End If
      iRow = iRow + 1
   Loop
   ActiveSheet.PrintPreview
End Sub

    


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