Rahmen
07.05.2013 16:09:24
Fritz
Möchte in einem Bereich alle Zellen einen Rahmen geben.
In Range A1:C20 alle Zellen mit Rahmen.
Habe es schon geschafft aber es ist ewig lang.
Kann man das auch kürzer formulieren?
Liebe Grüße
Fritz
Sub Rahmen()
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
usw.