VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Seitenumbruch nach Zeilen mit bestimmtem Inhalt einfügen

Gruppe

Druck

Bereich

Umbruch

Thema

Seitenumbruch nach Zeilen mit bestimmtem Inhalt einfügen

Problem

An den Zeilen mit dem Wert XYZ in Spalte A soll ein Seitenwechsel eingefügt werden.

Lösung

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




StandardModule: Modul1

Sub Seitenwechsel()
   Dim iRow As Integer
   For iRow = WorksheetFunction.CountA(Columns(1)) To 1 Step -1
      If Cells(iRow, 1).Value = "XYZ" Then
         Tabelle1.HPageBreaks.Add Cells(iRow, 1)
      End If
   Next iRow
End Sub

    


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