|
Hallo, ich würde gerne Zellbereiche mit einem Rahmen versehen. Wenn es nur eine Zeile gibt (ez=6) dann erhalte ich die Fehlermeldung "400". Bei 2 Zeilen oder mehr kommt die Meldung nicht und alles läuft perfekt. Was kann ich tun?
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
With ActiveSheet.Range(Cells(6, 3), Cells(ez, 10)).Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.Weight = xlThin
End With
With ActiveSheet.Range(Cells(6, 3), Cells(ez, 10)).Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.Weight = xlThin
End With
Vielen Dank für die Hilfe im voraus!!
|