Borders-Objekt (Excel)

Eine Auflistung von vier Border-Objekten, die die vier Rahmen eines Range-,Style- oder FormatCondition-Objekts darstellen.

Hinweise

Verwenden Sie die Borders-Eigenschaft, um die Borders-Auflistung zurückzugeben, die alle vier Rahmenlinien enthält. Sie können auf jeder Seite einer Zelle oder eines Bereichs unterschiedliche Rahmen anwenden. Weitere Informationen zum Anwenden von Rahmen auf einen Zellbereich finden Sie unter Range.Borders-Eigenschaft .

Mit Range-, Style- und FormatCondition-Objekten können Sie Rahmeneigenschaften für einen einzelnen Rahmen festlegen. Einige andere umrandete Objekte, z. B. Fehlerleisten und Reihenlinien, haben einen Rahmen, der unabhängig von der Anzahl der Seiten als eine Entität behandelt wird. Für diese Objekte müssen Sie Eigenschaften für den gesamten Rahmen als Einheit zurückgeben und festlegen. Weitere Informationen finden Sie unter dem Border-Objekt.

Beispiele

Im folgenden Beispiel erhält die Zelle A1 im ersten Arbeitsblatt eine Doppellinie als Rahmen.

Worksheets(1).Range("A1").Borders.LineStyle = xlDouble

Verwenden Sie Borders (index), bei dem index den Rahmen identifiziert, um ein einzelnes Border-Objekt zurückzugeben. Die gültigen Werte für den Index werden durch das übergeordnete Objekt der Borders-Auflistung bestimmt. Für Range.Borders und Style.Borders kann der Index eine der folgenden XlBordersIndex-Konstanten sein: xlDiagonalDown, xlDiagonalUp, xlEdgeBottom, xlEdgeLeft, xlEdgeRight, xlEdgeTop, xlInsideHorizontal oder xlInsideVertical. Verwenden Sie für FormatCondition.BordersxlLeft, xlRight, xlTop oder xlBottom.

Im folgenden Beispiel wird die Farbe des unteren Rahmens der Zellen A1:G1 auf Rot festgelegt.

Worksheets("Sheet1").Range("A1:G1"). _ 
 Borders(xlEdgeBottom).Color = RGB(255, 0, 0)

Im folgenden Beispiel wird ein dünner Rahmen um alle Zellen im Bereich generiert.

Dim rng As Range: Set rng = ws.Range("B6", "D8")
        
With rng.Borders
   .LineStyle = xlContinuous
   .Weight = xlThin
End With

Im folgenden Beispiel werden nur die inneren Zellränder des Bereichs geändert.

Dim rngInner As Range: Set rngInner = ws.Range("B2", "D4")
        
With rngInner.Borders(xlInsideHorizontal)
  .LineStyle = xlContinuous
  .Weight = xlThin
End With

With rngInner.Borders(xlInsideVertical)
  .LineStyle = xlContinuous
  .Weight = xlThin
End With

Eigenschaften

Siehe auch

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.

  • Zuletzt aktualisiert um