AW: gelb wäre schöner....
04.09.2018 16:40:09
Robert
Hallo,
dann müssen wir etwas tricksen, um die Linie auch auf die letzte Seite zu kriegen.
In nachstehendem Makro wird die Zeilen-Nr. der letzten befüllten Zelle ermittelt. Anschließend werden unter dieser Zeile in der Spalte A 90 Zeilen mit einem Leerzeichen befüllt. Damit hat man mit an Sicherheit grenzender Wahrscheinlichkeit einen Seitenumbruch nach der letzten befüllten Zelle erzwungen. Danach werden mit dem bekannten Makro jeweils in der letzten Zeile einer Seite gelbe Rahmenlinien eingefügt. Solange bis man den ersten Seitenumbruch unter der letzten Datenzelle erreicht hat. Anschließend werden die mit einem Leerzeichen temporär befüllten Zellen wieder geleert.
Probiere es mal aus, ob es bei Dir auch klappt.
Sub Makro()
Dim umbr
Dim lZeile As Long, i As Integer
'Ermittlung letzte Zeilen-Nr.
lZeile = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
'Befüllen von Zellen nach der letzten Zeile mit Leerzeichen
Range("A" & lZeile + 1 & ":A" & lZeile + 90).FormulaR1C1 = " "
'Linien über dem Umruch erstellen
For Each umbr In ActiveSheet.HPageBreaks
With umbr.Location.Offset(-1, 0).Resize(1, 14).Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Color = 65535
.TintAndShade = 0
.Weight = xlMedium
End With
If umbr.Location.Row >= lZeile Then Exit For
Next
'nach der letzten Datenzeile befüllte Zellen leeren
Rows(lZeile + 1 & ":" & lZeile + 90).ClearContents
End Sub
Gruß
Robert