Zellen verbinden - geteilte Farbe????

Steve · 2017-06-07T17:15:36+00:00

Grüß Gott an alle die Tolles hier leisten. Habe eine weitere Frage: https://www.herber.de/bbs/user/114107.xls Bei hier eingestellter Datei, sollen immer die Zellen 1 mit der Zelle 2 zu einer Zelle verbunden werden. Der Eintrag in der linken Zelle wird und soll auch zentriert werden. Hahahahaha kein Problem.............. aber jetzt kommt es: Die verbundene Zelle soll farblich geteilt sein. Jede Hälfte soll ihre ursprüngliche Farbe beibehalten. Also links leicht blau und rechts leicht orange. Geht so was?..........natürlich brauche ich das in VBA. mfg und Danke STeve

…STeve,
sozusagen Xl-Konkurrenz, LO/OOcalc (LibreOffice/OpenOffice).
Der PgmCode für dieses Problem kann so aussehen:

Rem 2 Zellen verbinden u.HGFarben als FarbVerlaufsGradientFarbStops verwenden
'   und ggf wieder trennen u.die 1.u.letzte GradientFarbe als HGFarbe setzen.
'   Hinweis: Mittlere FarbStopPositionen (colStPos) testen --> dunkel 
Sub Verbinden()
Const colStDgr As Integer = 0
Dim csx As Integer, frb(1) As Long, colStPos, vZ As Range
Set vZ = ActiveWindow.RangeSelection
colStPos = Array(0#, 0.4999, 0.5, 1#)
If vZ.Cells.Count = 2 Then
frb(0) = vZ.Cells(1).Interior.Color
frb(1) = vZ.Cells(2).Interior.Color
vZ.Merge
With vZ.Interior
.Pattern = xlPatternLinearGradient: .Gradient.Degree = colStDgr
.Gradient.ColorStops.Clear
For csx = 0 To UBound(colStPos)
With .Gradient.ColorStops.Add(colStPos(csx))
.Color = frb(csx \ 2)
End With
Next csx
End With
End If
End Sub
Sub Trennen()
Const colStDgr As Integer = 0
Dim csx As Integer, frb(1) As Long, vZ As Range, colSt As ColorStops
Set vZ = ActiveWindow.RangeSelection
If vZ.MergeCells And vZ.Cells.Count = 2 Then
With vZ.Interior
If .Pattern = xlPatternLinearGradient And .Gradient.Degree = colStDgr Then
Set colSt = .Gradient.ColorStops
frb(0) = colSt(1).Color: frb(1) = colSt(colSt.Count).Color
.Gradient.ColorStops.Clear: .Pattern = xlSolid: vZ.UnMerge
Else: Exit Sub
End If
End With
vZ.Cells(1).Interior.Color = frb(0)
vZ.Cells(2).Interior.Color = frb(1)
End If
End Sub

Für horizontale FarbTrennung muss die Konstante colStDgr auf 90 gesetzt wdn, schräg dazwischen bzw danach (<180).
Viel Erfolg! Luc :-?

…etwas intensiver befasst, Klaus,
bin aber nie ganz fertig geworden, weil dann anderes anstand. Hatte's dieses Jahr aber bei einem Projekt wieder aus der Versenkung geholt.
Problem dabei ist natürlich, dass das eigentlich Verlaufsfarben erzeugen soll und dieser Effekt sich folglich nicht ganz unterdrücken lässt. Wie gut der zu sehen ist, hängt auch von der Größe des Objekts ab. Ggf könnte man auch eine Kontrastfarbe wie bspw Schwarz zwischen die beiden Farben setzen, um eine größere Schärfe zu erreichen; das muss man halt ausprobieren.
Bei ZeichenObjekten wird dgl von Xl auch manuell angeboten. Daran könnte man sich ggf orientieren, auch an den dortigen FertigMustern.
Man kann das dann auch in HTML darstellen, muss aber beachten, dass es verschiedene Methoden gibt, die Browser verwenden, und deshalb auch mehrere Angabeformen erforderlich sind. Als ich das das letzte Mal (vor ca 3-4 Jahren) gemacht habe, war's jedenfalls noch so.
Gruß, Luc :-?

Zellen verbinden - geteilte Farbe????

Forumthread: Zellen verbinden - geteilte Farbe?

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Zellen verbinden und farblich teilen in Excel

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

Zellen verbinden - geteilte Farbe????

Forumthread: Zellen verbinden - geteilte Farbe?

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Zellen verbinden und farblich teilen in Excel

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread