Optischer Farbverlauf

[Paul Biesel]

Hallo,
 
ich möchte einen Farbverlauf über 2 nebeneinanderstehende, nicht verbundene Zellen erstellen.
Der Farbverlauf soll nichts mit den Werten in den jeweiligen Zellen zu tun haben.

Vielen Dank im Voraus
Es geht rein ums Optis

[Ego]

Hallo P...,

lege eine Form (Rechteck) über die Zellen und formatiere sie.

[{Boris}]

Hi,

per Hand ist das doch kein Problem.
Leider machst Du keine näheren Angaben, was damit bezweckt werden soll.

[snb]

Code:

Sub M_snb()
  For Each it In Range("A1:B1")
    With it.Interior
      .Pattern = 4000
      .Gradient.Degree = 0
      .Gradient.ColorStops.Clear
      y = it.Column
      With .Gradient.ColorStops.Add(0)
        .ThemeColor = Choose(y, 1, 5)
        .TintAndShade = Choose(y, 0, 0.59)
      End With
      With .Gradient.ColorStops.Add(1)
        .ThemeColor = 5
        .TintAndShade = Choose(y, 0.59, -0.25)
      End With
    End With
  Next
End Sub