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!!