Hallo joerg,
Probiers mal so:
With ActiveSheet.Range(Cells(6, 3), Cells(ez, 10)).Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.Weight = xlThin
End With
With ActiveSheet.Range(Cells(6, 3), Cells(ez, 10)).Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.Weight = xlThin
End With
With ActiveSheet.Range(Cells(6, 3), Cells(ez, 10)).Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.Weight = xlThin
End With
With ActiveSheet.Range(Cells(6, 3), Cells(ez, 10)).Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.Weight = xlThin
End With
If ActiveSheet.Range(Cells(6, 3), Cells(ez, 10)).Rows.Count > 1 Then
With ActiveSheet.Range(Cells(6, 3), Cells(ez, 10)).Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.Weight = xlThin
End With
End If
With ActiveSheet.Range(Cells(6, 3), Cells(ez, 10)).Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.Weight = xlThin
End With
Die Fehlermeldung ist klar, denn wenn es nur eine zeile gibt dann kann es auch keinen (xlInsideHorizontal) rahmen geben.
Das gleiche mit den Spalten (xlInsideVertical) aber du hast eh immer mehrere Spalten dann mußt du da nicht nachschauen.
|