0
Rückgängig machen
Bewertungen
Ich habe gerade die Kutools für Excel gekauft, weil ich nach einer Option gesucht habe, um in Excel nur die Ränder aus einem ausgewählten Bereich zu kopieren - wobei Inhalt, Formatierung und Spaltenbreite aus dem Zielbereich unverändert bleiben.
Ich habe eine Lösung dafür gefunden - mit Kutools für Excel auf dieser Webseite:
https://www.extendoffice.com/documents/excel/4336-excel-copy-borders-only.html#a1
Jetzt habe ich versucht, das vorgeschlagene Makro zu verwenden und festgestellt, dass es überhaupt nicht das tut, was versprochen wurde:
Neben dem Kopieren der Grenzen es auch:
- löscht die Formatierung aus dem Zielbereich
- ändert die Spalte des Zielgebiets
Außerdem arbeitet das Makro ziemlich langsam und die Änderungen können nicht rückgängig gemacht werden.
Könnten Sie mir bitte helfen, sicherzustellen, dass das Makro das tut, was versprochen wurde....?
Hoffe, von dir zu hören
Beste
Marianne
Ich habe eine Lösung dafür gefunden - mit Kutools für Excel auf dieser Webseite:
https://www.extendoffice.com/documents/excel/4336-excel-copy-borders-only.html#a1
Jetzt habe ich versucht, das vorgeschlagene Makro zu verwenden und festgestellt, dass es überhaupt nicht das tut, was versprochen wurde:
Neben dem Kopieren der Grenzen es auch:
- löscht die Formatierung aus dem Zielbereich
- ändert die Spalte des Zielgebiets
Außerdem arbeitet das Makro ziemlich langsam und die Änderungen können nicht rückgängig gemacht werden.
Könnten Sie mir bitte helfen, sicherzustellen, dass das Makro das tut, was versprochen wurde....?
Hoffe, von dir zu hören
Beste
Marianne
0
Rückgängig machen
Bewertungen
Hallo MariannevanLubek,
Entschuldigen Sie die Umstände. Hier haben wir ein weiteres Makro für den Fall geschrieben. Kannst du es bitte versuchen?
Wenn Sie weitere Fragen haben, zögern Sie bitte nicht, mich zu informieren.
Amandas
Entschuldigen Sie die Umstände. Hier haben wir ein weiteres Makro für den Fall geschrieben. Kannst du es bitte versuchen?
Sub CopyBorders()
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 Cells 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 SubWenn Sie weitere Fragen haben, zögern Sie bitte nicht, mich zu informieren.
Amandas
0
Rückgängig machen
Bewertungen
Hallo MariannevanLubek,
Eine Sache, die ich Ihnen sagen muss, ist, dass Sie nach dem Ausführen des Codes alle Zellen auswählen müssen, auf die Sie die Rahmen anwenden möchten, aber nicht eine Zelle, genau wie im folgenden Screenshot:
Amandas
Eine Sache, die ich Ihnen sagen muss, ist, dass Sie nach dem Ausführen des Codes alle Zellen auswählen müssen, auf die Sie die Rahmen anwenden möchten, aber nicht eine Zelle, genau wie im folgenden Screenshot:
Amandas
- Seite:
- 1
Es gibt keine Antworten für diesen Eintrag gemacht.