nochmals Rahmen um Zellbereiche
03.02.2005 11:23:07
Anette
ich glaube, dass ich mich beim letzten Mal falsch ausgedrückt habe, daher versuche ich die Frage nochmals neu zu formulieren:
Der folgende code zeichnet einen Rahmen um einen Zellbereich und zwar nur an den äußeren Rändern.
With Range("a1:c5")
.Borders(xlEdgeTop).LineStyle = xlContinuous
.Borders(xlEdgeBottom).LineStyle = xlContinuous
.Borders(xlEdgeLeft).LineStyle = xlContinuous
.Borders(xlEdgeRight).LineStyle = xlContinuous
End With
Frage: geht es auch eleganter, also z.B. mit nur einer Codezeile? Ich habe viele solcher Anweisungen und dadurch wird mein Code sehr lang.
Danke im voraus!
Anette