Ich habe eine Tabelle,in den Zellen der Spalte F steht eine 1 oder nichts.
Ich möchte immer wenn eine 1 vorkommt einen Seitenumbruch erzwingen!
Wie soll ich vorgehen?
Danke für Euere Vorschläge
Serge
Sub Makro1()
Dim iZeile As Long
For iZeile = 1 To Range("F65536").End(xlUp).Row
If Cells(iZeile, 6) = 1 Then ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Cells( _
iZeile, 1)
Next iZeile
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen