Ich möchte gerne in dem angegebenen Bereich einen Rahmen festlegen (innen: Linie durchgehend dünn; um den Bereich herum: Linie durchgehend dick).
Folgenden Code habe ich bereits, allerdings ergibt sich nicht das Bild, dass ich möchte. Was mache ich falsch
Dim Bereich As Range
Set Bereich = Tabelle3.Range("A1:J45")
With Bereich
.Borders(xlInsideHorizontal).LineStyle = xlContinous
.Borders(xlInsideVertical).LineStyle = xlContinous
.BorderAround LineStyle:=xlContinous, Weight:=xlThick, ColorIndex:=xlColorIndexAutomatic
End With
Gruß
ChrisD