Clever-Excel-Forum

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

Hallo P...,

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

Hi,

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

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

Paul Biesel

Ego

{Boris}

snb