dank dieses Formus habe ich ein Makro erhalten, einen bestimmten Bereich mit Rahmen zu versehen.
Beim Schließen der Datei will ich die Inhalte löschen lassen und dann auch die Rahmenformatierung aufheben.
Letzteres gedachte ich, mit dem folgenden Makro zu erledigen, was eine Abwandlung des o.g. Makros ist:
Option Explicit
Public Sub Rahmen_entfernen()
Dim enmBordersIndex As XlBordersIndex
With Range(Cells(12, 1), Cells(Cells(Rows.Count, 5).End(xlUp).Row, 9))
Call .BorderAround(LineStyle:=xlLineStyleNone)
For enmBordersIndex = xlInsideVertical To xlInsideHorizontal
With .Borders(enmBordersIndex)
.LineStyle = xlLineStyleNone
End With
Next
End With
End Sub
Die Zwischenlinien werden auch entfernt, aber die BorderAround bleibt bestehen.Offensichtlich kann man das so nicht machen.
Könnt ihr mir bitte helfen, wie es richtig codiert werden muss?
Vielen Dank im Voraus und beste Grüße
Axel