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?
Die besten Produktivitätstools für das Büro
Stärken Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und genießen Sie Effizienz wie nie zuvor. Kutools für Excel bietet mehr als300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen...
Office Tab bringt die Tab-Oberfläche in Office und macht Ihre Arbeit wesentlich einfacher
- Aktivieren Sie die Tabulator-Bearbeitung und das Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Tabs innerhalb desselben Fensters, statt in neuen Einzelfenstern.
- Steigert Ihre Produktivität um50 % und reduziert hunderte Mausklicks täglich!
Alle Kutools-Add-Ins. Ein Installationspaket
Das Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro und ist ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- All-in-One-Paket — Add-Ins für Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Ein Installationspaket, eine Lizenz — in wenigen Minuten einsatzbereit (MSI-kompatibel)
- Besser gemeinsam — optimierte Produktivität in allen Office-Anwendungen
- 30 Tage kostenlos testen — keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis — günstiger als Einzelkauf der Add-Ins