Thema

Seitenumbruch nach Zeilen mit bestimmtem Inhalt einfügen

Gruppe

Umbruch

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