'Konstanten
Const xlDiagonalDown = 5
Const xlDiagonalUp = 6
Const xlEdgeLeft = 7
Const xlEdgeTop = 8
Const xlEdgeBottom = 9
Const xlEdgeRight = 10
Const xlInsideVertical = 11
Const xlInsideHorizontal = 12
Excel.Range(xlSheet.Cells(5,5),xlSheet.Cells(10,10)).Select
Excel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Excel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Excel.Selection.Borders(xlEdgeLeft )
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
End With
With Excel.Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
End With
With Excel.Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
End With
With Excel.Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
End With
Excel.Selection.Borders(xlInsideVertical).LineStyle = xlNone
Excel.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
hallo!
dieses script macht die border immer nur am linken rand des markierten bereichs... warum??
danke schonmal