Rahmen setzen per VBA

Um genutzte Bereiche in einer Arbeitsmappe automatisch zu formatieren können Sie folgende Makrobeispiele verwenden. Durch die Nutzung von Makros wird Ihnen teils aufwändiges Formatieren erspart. Sie legen lediglich einmal im Makro die gewünschte Formatierung fest - dazu können Sie den Makrorecorder verwenden - und lassen anschließend das Makro die Arbeit erledigen.

Im gezeigten Beispiel ermittelt das Makro den genutzten Bereich in Ihrer Arbeitsmappe und umrahmt diesen Bereich. Das zweite Makro löscht alle Formatierungen in Ihrer Mappe. Durch die Kombination beider Makros können Sie in Ihrer Datei aufräumen und neue Formatierungen erstellen.

Rahmen setzen

Sub RahmenSetzen()

'genutzen Bereich finden
ActiveSheet.UsedRange.Select

'Rahmen setzen
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With

    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With

End Sub

Rahmen entfernen

Sub RahmenEntfernen()
        Cells.Select
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    Selection.Borders(xlEdgeTop).LineStyle = xlNone
    Selection.Borders(xlEdgeBottom).LineStyle = xlNone
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
End Sub