Wie kopiert man nur die Rahmen eines ausgewählten Bereichs in Excel?

Beim Arbeiten mit Microsoft Excel ist es einfach, nur Zellwerte, Zellformatierungen, Zellformeln und Ähnliches aus einem Bereich mit der Funktion „Inhalte einfügen“ zu kopieren. Haben Sie jedoch schon einmal versucht, nur den Rahmenstil von einem Bereich in Excel zu kopieren? Dieser Artikel zeigt Ihnen eine Methode, um nur die Rahmen eines ausgewählten Bereichs in einen neuen Bereich in Excel zu kopieren.

Verwenden Sie VBA-Code, um nur Rahmen eines ausgewählten Bereichs zu kopieren

Verwenden Sie VBA-Code, um nur Rahmen eines ausgewählten Bereichs zu kopieren

Der folgende VBA-Code kann Ihnen helfen, nur den Rahmenstil der ausgewählten Zellen zu kopieren und diesen Rahmenstil dann auf einen neuen Bereich in Excel anzuwenden. Gehen Sie bitte wie folgt vor.

1. Drücken Sie die Tasten „Alt“ + „F11“, um das Fenster „Microsoft Visual Basic for Applications“ zu öffnen.

2. Klicken Sie im Fenster „Microsoft Visual Basic for Applications“ auf „Einfügen“ > „Modul“ und kopieren Sie dann den folgenden VBA-Code in das Codefenster.

VBA-Code: Kopieren Sie nur die Rahmen eines ausgewählten Bereichs in Excel

Sub CopyBorders()
'Updated by Extendoffice 20211203
    Dim xRg, yRg As Range
    On Error Resume Next
    
    Set xRg = Application.InputBox("Select Range with Borders to Copy...", "Kutools For Excel", , , , , , 8)
    Set yRg = Application.InputBox("Select Cell to Apply Borders to range..", "Kutools For Excel", , , , , , 8)
    
    
    With yRg.Borders(xlEdgeLeft)
        .LineStyle = xRg.Borders(xlEdgeLeft).LineStyle
        .ColorIndex = xRg.Borders(xlEdgeLeft).ColorIndex
        .TintAndShade = xRg.Borders(xlEdgeLeft).TintAndShade
        .Weight = xRg.Borders(xlEdgeLeft).Weight

    End With
    With yRg.Borders(xlEdgeTop)
        .LineStyle = xRg.Borders(xlEdgeTop).LineStyle
        .ColorIndex = xRg.Borders(xlEdgeTop).ColorIndex
        .TintAndShade = xRg.Borders(xlEdgeTop).TintAndShade
        .Weight = xRg.Borders(xlEdgeTop).Weight
    End With
    With yRg.Borders(xlEdgeBottom)
        .LineStyle = xRg.Borders(xlEdgeBottom).LineStyle
        .ColorIndex = xRg.Borders(xlEdgeBottom).ColorIndex
        .TintAndShade = xRg.Borders(xlEdgeBottom).TintAndShade
        .Weight = xRg.Borders(xlEdgeBottom).Weight
    End With
    With yRg.Borders(xlEdgeRight)
        .LineStyle = xRg.Borders(xlEdgeRight).LineStyle
        .ColorIndex = xRg.Borders(xlEdgeRight).ColorIndex
        .TintAndShade = xRg.Borders(xlEdgeRight).TintAndShade
        .Weight = xRg.Borders(xlEdgeRight).Weight
    End With

    With yRg.Borders(xlInsideHorizontal)
        .LineStyle = xRg.Borders(xlInsideHorizontal).LineStyle
        .ColorIndex = xRg.Borders(xlInsideHorizontal).ColorIndex
        .TintAndShade = xRg.Borders(xlInsideHorizontal).TintAndShade
        .Weight = xRg.Borders(xlInsideHorizontal).Weight
    End With
    With yRg.Borders(xlInsideVertical)
        .LineStyle = xRg.Borders(xlInsideVertical).LineStyle
        .ColorIndex = xRg.Borders(xlInsideVertical).ColorIndex
        .TintAndShade = xRg.Borders(xlInsideVertical).TintAndShade
        .Weight = xRg.Borders(xlInsideVertical).Weight
    End With
End Sub

3. Drücken Sie die Taste „F5“, um den Code auszuführen. Wählen Sie im ersten Dialogfeld „Kutools für Excel“ den Bereich mit den zu kopierenden Rahmen aus und klicken Sie dann auf die Schaltfläche „OK“.

4. Wählen Sie im zweiten Dialogfeld „Kutools für Excel“ eine Zelle aus, auf die der kopierte Rahmen angewendet werden soll, und klicken Sie dann auf die Schaltfläche „OK“. Siehe Screenshot:

Nun können Sie sehen, dass nur der Rahmenstil des ausgewählten Bereichs kopiert und auf einen neuen Bereich angewendet wurde, wie im folgenden Screenshot dargestellt.

Verwandte Artikel:

• Wie kopiert und fügt man Werte in Excel ein, wobei Duplikate übersprungen werden?
• Wie kopiert man Zelldaten mit Zeilenhöhe und Spaltenbreite in Excel?
• Wie kopiert man eine Zelle als Textwert und nicht als Formel in Excel?
• Wie kopiert man Daten in die nächste leere Zeile eines anderen Arbeitsblatts in Excel?