Farbverläufe

  • Excel

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von ISliceUrPanties.

    Moin Leute,
    Gibt es eine Möglichkeit, dass wenn man mehrere Zellen eingefärbt hat, jene dann per Code zu verbinden ?
    Das heißt z.B. ("A:1") ist gelb und ("C:1") ist rot. Wie kann ich das formulieren, dass in ("B:1") der Farbverlauf der beiden Zellen wiedergegeben wird
    Liebe Grüße
    Hallo,
    ja das geht und der Makrorekorder hilft hier ungemein. Folgender Code füllt Zelle A2 mit einem Farbverlauf, der aus Zelle A1 und A3 zusammengesetzt wird. Du musst das natürlich nach deinen Bedürfnissen anpassen.

    Visual Basic-Quellcode

    1. Dim c1 As Long, c2 As Long
    2. c1 = Range("A1").Interior.Color
    3. c2 = Range("A3").Interior.Color
    4. Dim r As Range
    5. Set r = Range("A2")
    6. With r.Interior
    7. .Pattern = xlPatternLinearGradient
    8. .Gradient.Degree = 90
    9. .Gradient.ColorStops.Clear
    10. End With
    11. With r.Interior.Gradient.ColorStops.Add(0)
    12. .Color = c1
    13. .TintAndShade = 0
    14. End With
    15. With r.Interior.Gradient.ColorStops.Add(1)
    16. .Color = c2
    17. .TintAndShade = 0
    18. End With