Wenn in Spalte M der Wert 1 steht möchte ich einen Seitumbruch haben.
Wie kann ich das machen?
vielen Dank für Deine Hilfe.
Gruß
Alex
Public Sub Seitenumbruch()
'Code für ein allgemeines Modul
Dim firstAddress
Dim Zelle
ActiveSheet.ResetAllPageBreaks
With Columns("M")
Set Zelle = .Find(1, LookIn:=xlValues, lookat:=xlWhole)
If Not Zelle Is Nothing Then
firstAddress = Zelle.Address
Do
With ActiveSheet
.HPageBreaks.Add before:=Zelle.Offset(1, 0)
End With
Set Zelle = .FindNext(Zelle)
Loop While Not Zelle Is Nothing And Zelle.Address firstAddress
End If
End With
End Sub
Gruß Jürgen
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