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.
lege eine Form (Rechteck) über die Zellen und formatiere sie.
helmut
Für mich ist die Möglichkeit in Excel an Zellen und Bereichen Namen zu vergeben die wichtigste Funktionalität. Sie macht Formeln und den VBA-code verständlicher. Für Makros gilt die Regel: "Nur über benannte Bereiche auf den Inhalt der Zellen zugreifen." Und wofür sind Regeln da? Um nachzudenken bevor man sie bricht.
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