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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen