Office: Farbverlauf für Zellefarbe via VBA ausfühen

CreatorX · 17. Januar 2016

Hallo, folgendes: Es gibt ja die Möglichkeit einer bestimmten Zelle einen Farbverlauf zuzuweisen. Unter "Zellen formatieren" -> "Ausfüllen" -> "Fülleffekte" lässt sich das ganze bewerkstelligen.
Jetzt hätte ich das ganze via VBA gelöst, so dass bspw. A2 einen Farbverlauf bekommt. Wenn ich das ganze als Makro aufzeichne, sieht es so aus:
Code:

Sub Farbverlauf()
'
' Farbverlauf Makro
'

'
With Selection.Interior
.Pattern = xlPatternLinearGradient
.Gradient.Degree = 0
.Gradient.ColorStops.Clear
End With
With Selection.Interior.Gradient.ColorStops.Add(0)
.Color = 10498160
.TintAndShade = 0
End With
With Selection.Interior.Gradient.ColorStops.Add(1)
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Leider weiß ich gerade nicht so ganz, wie ich das auf eine spezielle Zelle, also ohne Selection anwenden kann und bräuchte daher etwas Hilfe *Smilie
Danke schonmal.

:)

Muller · 19. Januar 2016

Hallo,

einfach so:
Code:

Option Explicit

Sub Farbverlauf()
'
' Farbverlauf Makro
'

'
With ActiveSheet.Cells(1, 1).Interior
.Pattern = xlPatternLinearGradient
With .Gradient
.Degree = 0
With .ColorStops
.Clear
With .Add(0)
.Color = 10498160
.TintAndShade = 0
End With
With .Add(1)
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
End With
End With
End With
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß, Muller

CreatorX · 19. Januar 2016

Das funktioniert super, vielen Dank *Smilie

Office: Farbverlauf für Zellefarbe via VBA ausfühen

Farbverlauf für Zellefarbe via VBA ausfühen

Farbverlauf für Zellefarbe via VBA ausfühen

Farbverlauf für Zellefarbe via VBA ausfühen - Similar Threads - Farbverlauf Zellefarbe via

Datei als OLE-Objekt via FilePicker auswählen und speichern

automatische Abfrage URL via Artikelnummer

Semikolon via VBA in einzelne Zellen separieren

Hinzufügen eines Farbverlaufs zu einer Form

VB zu VBA: Farbverlauf als Hintergrund im Formular

Matrixwerte als Farbverläufe darstellen (Oberflächendiagramm in 2D?)

farbverlauf in tabelle