Rahmen um jede Zelle
01.01.2004 12:57:09
Walter
ALLEN erst mal:
Ein gesundes neues Jahr !!!
Ich habe mit dem Recorder aufgezeichnet, es soll von B61:W61 um jede Zelle ein
Rahmen gesetzt werden.
Mir erscheint allerdings das Makro zu Lang, gibt es eine Möglichkeit kürzer zu
gestalten ?
Hier mein Makro:
Range("B61:W61").Select
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
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Herzlichen Dank im voraus für die Info.
Gruß Walter