kürzerer Code beim Linien ziehen
12.02.2007 14:53:41
georg
ich habe ff immer wieder im Code. Geht das nicht kürzer? Eigentlich ist es ja immer wieder das Gleiche.
With Selection.Borders(xlEdgeLeft)
.Weight = xlMedium
End With
With Selection.Borders(xlEdgeTop)
.Weight = xlMedium
End With
With Selection.Borders(xlEdgeBottom)
.Weight = xlMedium
End With
With Selection.Borders(xlEdgeRight)
.Weight = xlMedium
End With
Gruß und Dank
Georg