Sub
drucken()
Dim
anzblatt
As
Long
Dim
maxanzahl
As
Long
Dim
wert
As
Long
Dim
durchlauf
As
Long
Dim
ende
As
Long
Dim
temp
As
Long
Application.ScreenUpdating =
False
ende = ActiveSheet.Cells(Rows.Count, 2).
End
(xlUp).Row
If
ActiveSheet.AutoFilterMode =
False
Then
Rows(
"1:1"
).AutoFilter
wert = ActiveSheet.Cells(2, 2)
anzblatt = 1
temp = 2
maxanzahl = Evaluate(
"=Sum(If(B2:B"
& ende &
"<>"
& Chr(34) & Chr(34) &
",1/CountIf(B2:B"
& ende &
",B2:B"
& ende &
")))"
)
For
durchlauf = 1
To
maxanzahl
Rows(
"1:1"
).AutoFilter Field:=2, Criteria1:=wert
ActiveSheet.PageSetup.CenterFooter =
"Seite "
& anzblatt &
" von "
& maxanzahl
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=
True
temp = temp + Application.WorksheetFunction.CountIf(ActiveSheet.Range(
"B2:B"
& ende), wert)
wert = ActiveSheet.Cells(temp, 2)
anzblatt = anzblatt + 1
Next
durchlauf
Application.ScreenUpdating =
True
End
Sub