Rahmen innen und außen

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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

…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 :-?

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

66 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Rahmen innen und außen

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

66 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread