Quelltext vereinfachen
22.07.2003 13:14:42
Felix Staab
ich habe mal zur Abwechslung eine gaaaanz einfache Frage:
Diesen Quelltext würde ich gerne möglichst vereinfacht haben. Da sich hier viele Formatierungen wiederholen, ist es doch bestimmt möglich das Ganze irgendwie zusammen zu kürzen, oder?
Sub ZED_cleanen()
Range(Cells(RowIndex, 4), Cells(RowIndex + 5, 5)).Select
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End Sub
Vielen Dank für Eure Hilfe und beste Grüße
Felix