VBA – Zellenrahmen

Written by

Editorial Team

Reviewed by

Steve Rynearson

Translated by

Zakarya El Oirzadi

Last updated on Dezember 13, 2022

In this Article

Rahmen formatieren

In diesem Tutorial zeigen wir Ihnen, wie Sie die Einstellungen für Zellenrahmen in VBA anpassen können.

Rahmen formatieren

Doppelte Rahmenlinie oben

Sehen wir uns zunächst ein Beispiel dafür an, wie man eine blaue, dicke, doppelte obere Rahmenlinie für die Zelle B3 auf Tabelle1 einstellt:

vba doppelte rahmenlinie oben

Sub RahmenEinstellenBeispiel()

 With Worksheets("Tabelle1").Range("B3").Borders(xlEdgeTop)
  .LineStyle = xlDouble
  .Weight = xlThick
  .ColorIndex = 5
 End With

End Sub

Beachten Sie, dass wir zur Vereinfachung der Programmierung eine With-Anweisung verwenden.

Wir greifen auf die obere Rahmenlinie mit .Borders(xlEdgeTop) zu.

Andere Zellenrahmenlinien

Stattdessen können Sie auf andere Rahmenlinien einschließlich der Diagonalen zugreifen:

Worksheets("Tabelle1").Range("B2").Borders(xlEdgeTop).Color = RGB(128, 0, 0)
Worksheets("Tabelle1").Range("B2").Borders(xlEdgeRight).Color = RGB(0, 255, 0)
Worksheets("Tabelle1").Range("B2").Borders(xlEdgeBottom).Color = RGB(0, 0, 128)
Worksheets("Tabelle1").Range("B2").Borders(xlEdgeLeft).Color = RGB(255, 0, 0)
Worksheets("Tabelle1").Range("B2").Borders(xlDiagonalDown).Color = RGB(0, 0, 0)
Worksheets("Tabelle1").Range("B2").Borders(xlDiagonalUp).Color = RGB(0, 0, 0)

vba alle rahmenlinien

Innere Rahmenlinien

Sie können auch horizontale (xlInsideHorizontal) und vertikale (xlInsideVertical) Rahmen für alle Zellen in einem Bereich einstellen:

With Worksheets("Tabelle1").Range("B2:C6").Borders(xlInsideHorizontal)
 .LineStyle = xlDashDotDot
 .Weight = xlMedium
 .ColorIndex = 3
End With

vba innere rahmenlinien

Linienart

Die Eigenschaft LineStyle kann in xlContinuous, xlDot, xlDash, xlDashDot, xlDashDotDot, xlDouble, xlSlantDashDot und xlLineStyleNone geändert werden.

Die Eigenschaft Weight kann entweder xlHariline, xlThin, xlMedium oder xlThick entsprechen. Mit dem unten stehenden Code erhalten Sie dieses Ergebnis:

Worksheets("Tabelle1").Range("C3").Borders(xlEdgeTop).Weight = xlHairline
Worksheets("Tabelle1").Range("C3").Borders(xlEdgeBottom).Weight = xlHairline
Worksheets("Tabelle1").Range("D3").Borders(xlEdgeTop).Weight = xlThin
Worksheets("Tabelle1").Range("D3").Borders(xlEdgeBottom).Weight = xlThin
Worksheets("Tabelle1").Range("E3").Borders(xlEdgeTop).Weight = xlMedium
Worksheets("Tabelle1").Range("E3").Borders(xlEdgeBottom).Weight = xlMedium
Worksheets("Tabelle1").Range("F3").Borders(xlEdgeTop).Weight = xlThick
Worksheets("Tabelle1").Range("F3").Borders(xlEdgeBottom).Weight = xlThick

vba linienart einstellen

Rahmenfarben können als ColorIndex oder Farbe (RGB, Seriennummer oder vbColor) eingestellt werden. Weitere Informationen über Farbeinstellungen finden Sie hier.

Sie können den Rahmen um einen Bereich auch mit einem einzeiligen Befehl hinzufügen:

Range("B5:C7").BorderAround LineStyle:=xlContinuous, Weight:=xlThick, Color:=vbRed