Hi Luc:-?
Kannst dich noch an diesen Code erinnern. Du hast ihn mir gebastelt.
Jetzt habe ich ihn in meine Datei eingearbeitet er läuft klasse.
In einer UF werden cbo's Werte in die Tabelle eingetragen und dann eben die zwei Zellen
ActiveSheet.Range(Cells(zeile + 3, Spalte), Cells(zeile + 3, Spalte + 1)).Select
verbunden und farblich getrennt dargestellt.
(Bei deinem Ursprungscode waren es "B3:C3")
Siehe hier den Codeteil:
ActiveSheet.Cells(zeile + 3, Spalte).Value = Me.cboDienstArt.Value
Const colStDgr As Integer = 0
Dim csx As Integer, frb(1) As Long, colStPos, vZ As Range
'ActiveSheet.Range("B3:C3").Select
ActiveSheet.Range(Cells(zeile + 3, Spalte), Cells(zeile + 3, Spalte + 1)).Select
Set vZ = ActiveWindow.RangeSelection
colStPos = Array(0#, 0.4999, 0.5, 1#)
If vZ.MergeCells = True Then
Else
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 If
Jetzt meine Frage/Bitte:
Wenn ich jetzt eine If Anfrage starte die diese verbunden Zellen auslassen/finden soll müsste ich ja wissen wie man diese Zellen (welcher Zustand) ansprechen kann?
.....
If MergeCells = true and pattern and gradient.....? :-(((
Danke für deine Antwort.
LG STeve