ich möchte das in der letzten Zeile +1 Rahmen erzeugt werden. Klappt auch, aber ich brauche sie nur in den Spalten A bis Q. wie muss ich die ersten Zeilen umschreiben? Hilfe wäre nett.
Tschüs Hans-Werner
Sub linie3()
Dim x As Long
x = Range("A65536").End(xlUp).Row + 1
Rows(x).Select
'Hier werden die Linien erzeugt
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End Sub