Seitenumbruch Teil2
06.06.2016 13:23:19
snewi133
ich kann einen Seitenumbruch setzen über die Spalte CF mit der letzten 1 die in dieser Spalte steht:
Sub Umbruch()
On Error GoTo Fehler
Dim SP%, LR&
Application.ScreenUpdating = False
SP = 84 'Spalte CF
With ActiveSheet
.ResetAllPageBreaks
If .AutoFilterMode Then .AutoFilterMode = False
.Columns(SP).AutoFilter Field:=1, Criteria1:="1"
LR = .Cells(Rows.Count, SP).End(xlUp).Row
.AutoFilterMode = False
.HPageBreaks.Add before:=Rows(LR + 1)
End With
Err.Clear
Fehler:
If Err.Number 0 Then MsgBox "Fehler: " & _
Err.Number & vbLf & Err.Description: Err.Clear
End Sub
Gruß
Anzeige