gibt es eine Möglichkeit, per VBA auszulesen, ob oberhalb der aktiven Zelle ein Seitenumbruch existiert?
Danke für die Hilfe!
Gruß
Markus
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim pbH As HPageBreak
Dim pbV As VPageBreak
'Umbruch oberhalb der Zelle
For Each pbH In ActiveSheet.HPageBreaks
If pbH.Location.Row = Target.Row Then
MsgBox "H- Seitenwechsel " & IIf(pbH.Extent = xlPageBreakFull, "Bildschirm", "Drucker")
End If
Next pbH
'Umbruch rechts neben der Zelle
For Each pbV In ActiveSheet.VPageBreaks
If pbV.Location.Column = Target.Column Then
MsgBox "V- Seitenwechsel " & IIf(pbV.Extent = xlPageBreakFull, "Bildschirm", "Drucker")
End If
Next pbV
End Sub
Gruss- Micha