Rahmen innen und außen

Michael · 2016-04-08T16:24:40+00:00

Hallo zusammen, in einer Tabelle möchte ich den Bereich A1 bis D6 wie folgt mit einem Rahmen verschönern. 1. A1 - D6 Alle Rahmenlinien 2. A1 - D1 Dicke Rahmenlinien (außen) 3. A1 - D6 Dicke Rahmenlinien (außen) Dazu habe ich folgenden Code (der auch funktioniert: Zu 1. Sub Rahmen_Alle() Range("A1:d6").Borders(xlDiagonalDown).LineStyle = xlNone Range("A1:d6").Borders(xlDiagonalUp).LineStyle = xlNone With Range("A1:d6").Borders .LineStyle = xlContinuous .Weight = xlThin End With End Sub Zu 2 und 3: Sub Rahmen_aussen() Range("a1:d1").BorderAround LineStyle:=xlContinuous, Weight:=xlThick Range("a1:d6").BorderAround LineStyle:=xlContinuous, Weight:=xlThick End Sub Wie gesagt. Funktioniert einwandfrei. Habe zu dem Code Rahmen_aussen aber eine Frage. Kann man diesen Code auch so abändern, dass alle Zellen einen Rahmen erhalten (also quasi den ersten Code ändern). Gruß und ein schönes Wochenende Michael

…durchgehen und die LaufVariablenEigenschaft (As Range!) .BorderAround entsprd bedienen, Michael.
Es ist wenig bekannt, aber es gibt noch 4 weitere Rahmenlinien, die alle inneren Rahmen repräsentieren, .Borders(1) bis .Borders(4). Die wdn nicht immer durch die anderen, äußeren Edge-Rahmen (7…10 in abweichender Reihenfolge) mitgesetzt und auch nicht durch die Rahmenlinien zwischen 2 Zellen (11 & 12). Diese Rahmenlinien wdn wohl sonst nur noch von der BedingtFormatierung angesprochen, die aber andere Konstanten benutzt. Das Ganze ist wie generell in Xl nach links und oben orientiert, d.h., diese Linien haben Priorität vor den rechten/unteren der VorgängerZelle.
Das erklärt dann wohl auch, warum mitunter bei SeitenUmbrüchen innerhalb einer Tabelle Rahmenlinien fehlen.
In HTML-Tabellen ist das ähnlich, nur sind Orientierung und Handhabung etwas anders und das Ganze dient primär der Darstellung doppelter Rahmenlinien, die in Xl ja eigene GrafikSymbole benutzen. Das dürfte übrigens auch ein Grund sein, warum man kaum Xl2HTML-Tools im INet findet, die auch die TabellenRahmung original darstellen… ;-]
Übrigens, die Xl-Diagonal-Rahmenlinien können zwar einzeln gesetzt wdn, aber stets nur das gleiche Format aufweisen, also nicht eine Diagonale anders als die andere (bei ZellZwischenRahmen ist das nicht so).
Gruß, Luc :-?
Besser informiert mit …

…Nepumuk!), Michael,
bezieht sich .BordersAround auf alle AußenRahmen eines ZellBereichs, nicht auf Diagonalen und auch nicht auf ZellZwischenLinien, denn die wdn ohnehin nur bei Auswahl einer ZellMatrix wirksam. Wie die 8…12 RahmenTeile und ihre 16 AnsprechMöglichkeiten zusammenwirken, kannst du mit den folgenden BspPgmm nachvollziehen. Dazu musst du nur eine Zelle, die fürs 2.Pgm eine (erfüllte) Regel enthalten sollte, bzw eine ZellBereichsMatrix (mind 4 Zellen in mind 2 Zeilen u. 2 Spalten) auswählen und das jeweilige Pgm starten:

Rem Reihenfolge: 1.Runde: LROU.DfDs=rybm.g>cc - 2.Runde: LOUR.IvIh=rybm.gc
Sub ZellRahmen()
Static bix As XlBordersIndex
Dim ix As Integer, bCol
bCol = Array(vbBlack, vbRed, vbYellow, vbBlue, vbMagenta, vbGreen, vbCyan, vbWhite)
With ActiveWindow.RangeSelection
For bix = bix + 1 + CInt(bix > 0) To bix + 6 + CInt(bix > 0)
With .Borders(bix)
.LineStyle = Array(xlContinuous, xlDash)((bix - 1) \ 6)
.Weight = Array(xlThin, xlMedium)((bix - 1) \ 6)
.Color = bCol((bix - 1) Mod 6 + 1)
End With
Next bix
bix = bix * Abs(bix = 7)
End With
End Sub
Rem Reihenfolge: ORLU=rybm
Sub BedFormRahmen()
Dim ix As Integer, erg$(3), bCol, bIdx, bSym, cf As FormatCondition
bCol = Array(vbBlack, vbRed, vbYellow, vbBlue, vbMagenta, vbGreen, vbCyan, vbWhite)
bIdx = Array(xlLeft, xlRight, xlTop, xlBottom)
bSym = Array("L", "R", "O", "U")
With ActiveWindow.RangeSelection.FormatConditions
If CBool(.Count) Then Set cf = .Item(1) Else Exit Sub
End With
For ix = 1 To 4
With WorksheetFunction
If IsNull(cf.Borders(.Small(bIdx, ix)).LineStyle) Then _
cf.Borders(.Small(bIdx, ix)).Color = bCol(ix)
erg(ix - 1) = bSym(.Match(.Small(bIdx, ix), bIdx, 0) - 1) & ": " & _
.Small(bIdx, ix) & "=" & .Match(cf.Borders(.Small(bIdx, ix)).Color, _
bCol, 0) - 1 & ": &h" & Hex(cf.Borders(.Small(bIdx, ix)).Color)
End With
Next ix
MsgBox Join(erg, vbLf): Set cf = Nothing
End Sub

Wenn man die RahmenIndizes aufsteigend ordnet, erhält man so 3 verschiedene Reihenfolgen, was die beiden Pgmm demonstrieren.
Übrigens, die BedingtFormatRegel sollte vom (klassischen) Typ 1 bzw 2 sein, sonst passt das Objekt cf nicht!
Morrn, Luc :-?

Forumthread: Rahmen innen und außen

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial