- #1
F
falcons
Guest
Hallo Zusammen,
ich habe folgendes Makro:
wenn ich
Set r = wsc.Range(Array(M2:O11, M17:O26, M32:O41))
mit
Set r = wsc.Range(M32:O41)
austausche dann funktionierts.
Wie schaffe ich es das gleichzeitig mehrere Bereiche mit Rahmen versehen werden?
Was ist falsch an meinem Makro?
Danke im Voraus.
Grüße
falcon30
ich habe folgendes Makro:
Code:
Set r = wsc.Range(Array(M2:O11, M17:O26, M32:O41))
r.Borders(xlDiagonalDown).LineStyle = xlNone
r.Borders(xlDiagonalUp).LineStyle = xlNone
With r.Borders(xlEdgeLeft)
.LineStyle = xlContinuous: .Weight = xlThin: .ColorIndex = xlAutomatic
End With
With r.Borders(xlEdgeTop)
.LineStyle = xlContinuous: .Weight = xlThin: .ColorIndex = xlAutomatic
End With
With r.Borders(xlEdgeBottom)
.LineStyle = xlContinuous: .Weight = xlThin: .ColorIndex = xlAutomatic
End With
With r.Borders(xlEdgeRight)
.LineStyle = xlContinuous: .Weight = xlThin: .ColorIndex = xlAutomatic
End With
With r.Borders(xlInsideVertical)
.LineStyle = xlContinuous: .Weight = xlThin: .ColorIndex = xlAutomatic
End With
With r.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous: .Weight = xlThin: .ColorIndex = xlAutomatic
End With
wenn ich
Set r = wsc.Range(Array(M2:O11, M17:O26, M32:O41))
mit
Set r = wsc.Range(M32:O41)
austausche dann funktionierts.
Wie schaffe ich es das gleichzeitig mehrere Bereiche mit Rahmen versehen werden?
Was ist falsch an meinem Makro?
Danke im Voraus.
Grüße
falcon30