Habe folgendes Problem:
Ich möchte mit VBA abfragen, ob auf der aktuellen Zeile ein manueller Seitenumbruch eingefügt worden ist.
Meine Archiv-Recherche war leider erfolglos!
Kann mir jemand helfen?
Vielen Dank.
Gregor
Sub manueller_Umbruch()
Dim p As Integer, ash As Worksheet
Set ash = ActiveSheet
Application.ScreenUpdating = False
ActiveWindow.View = 2
If ash.HPageBreaks.Count > 0 Then
For p = 1 To ash.HPageBreaks.Count
If ash.HPageBreaks(p).Type = xlPageBreakManual Then
If ActiveCell.Row = ash.HPageBreaks(p).Location.Row Then
MsgBox "Markierte Zeile hat manuellen Umbruch!"
Exit For
End If
End If
Next
End If
ActiveWindow.View = 1
Application.ScreenUpdating = True
End Sub