Letzte gefüllte Zeilen formatieren
12.05.2017 16:20:40
Blue
ich bräuchte mal wieder eure Hilfe.
Vor längerer Zeit hatte ich bereits Hilfe bei diesem Makro, allerdings bin ich nun an einem Punkt gekommen wo dieses nicht mehr 100% das macht was ich möchte.
Sub Tabelle_automatisch_unten_schließen()
Dim HP As HPageBreak
For Each HP In ActiveSheet.HPageBreaks
With Intersect(HP.Location.Offset(-1, 0).EntireRow, Range("B:G"))
.Borders(xlEdgeBottom).Weight = xlMedium
End With
Next
Range("$A:$G").Select
ActiveSheet.PageSetup.PrintArea = "$A:$G"
End Sub
Bei dem Rahmen habe ich folgendes Problem, wenn auf der letzten Seite noch nicht die letzte Zeile meiner Tabelle gefüllt ist, fügt er hier auch eine Rahmenlinie ein.
Wie bekomme ich es hin das er nur bis zum vorletzten Seitenumbruch die Linien einfügt?
mfg Blue Bird