probiere es mal, wenn du es so änderst (bspw. am ersten with). es ist ein Zuordnungsproblem. Bei deinem Code legst du denke ich keine Range Objekt fest, auf das du mit with zugreifst, Zudem passt dann die Zuordnung im with nicht.
Hier mal zwei varianten
Set ra = ActiveSheet.Range(ActiveSheet.Cells(3, 2), ActiveSheet.Cells(3 + 4 - 1, 6))
With ra
.BorderAround LineStyle = xlContinuous
.BorderAround ColorIndex = 0
.BorderAround Weight = xlThin
End With
mit set legst du nun ein Objekt fest auf das zu dichbeziehen kannst
oder so
ActiveSheet.Range(ActiveSheet.Cells(3, 2), ActiveSheet.Cells(3 + 4 - 1, 6)).Select
With Selection
.BorderAround LineStyle = xlContinuous
.BorderAround ColorIndex = 0
.BorderAround Weight = xlThin
End With
Select legt ein Objekt fest. auf die Selection kannst du dich nun beziehen. HOffe das war richtig erklärt, zumindest klappt es aber so.
|