wie kann ich de Seitennummer ermitteln, in der z.B. die Zelle (A90) gedruckt werden würde?
Ich benötige dieses um einen Druckbereich zusammenzuhalten , indem ich ggf. manuell einen Seitenumbruch vor deisem Bereich einfüge.
Danke für Hilfe,
Heinz
Function ZelleAufSeite(z As Range) As Integer
Dim i As Long, ze As Long
For i = 1 To ActiveSheet.HPageBreaks.Count
ze = ActiveSheet.HPageBreaks(i).Location.Row
If ze > z.Row Then
ZelleAufSeite = i
Exit Function
End If
Next i
ZelleAufSeite = i
End Function