Rahmen am Ende jeder Seite
RWAMBIBI
Anbei mein Code
Sub Drucken()
ActiveSheet.unprotect
For x = Range("a65531").End(xlUp).Row To 4 Step -1
Dim a As String
If Len(Cells(x, 1)) = 0 Then
Rows(x).Delete shift:=xlUp
End If
Next
[A3:A143].AutoFilter field:=1, Criteria1:=""
ActiveSheet.PageSetup.PrintArea = "$A$1:$J$143"
[A1:J143].SpecialCells(xlCellTypeVisible).Select
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = 1
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 1
End With
ActiveSheet.PrintOut
ActiveSheet.PageSetup.PrintArea = False
[A3].AutoFilter
[A1:J143].SpecialCells(xlCellTypeVisible).Select
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = 1
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 1
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 1
End With
[F1].Select
ActiveSheet.Protect
End Sub
Vielen Dank für eure Hilfe!