Sub SetPagesInfo()
Dim PageInfo, temp As String, datum As Date, anz As Long, nr As Long
For i = 1 To Sheets.Count
If Sheets(i).Visible Then anz = anz + 1
Next i
For i = 1 To Sheets.Count
If Sheets(i).Visible Then
nr = nr + 1
temp = Sheets(i).PageSetup.PrintArea
temp = Mid(temp, InStr(temp, ":") + 1)
temp = temp & ":" & temp
PageInfo = "Seite/Page " & nr & " von/of " & anz & " "
End If
Next i
End Sub