Blauer Farbverlauf

Forumthread: Blauer Farbverlauf

Blauer Farbverlauf

01.12.2004 18:11:58

Jochen

Hallo Leute,
hätte gern einen Farbverlauf von dunkelblau zu hellblau. Von Hand kann ich ja eigene Farben definieren aber das ist mühsam und dauert.
Da gibts doch bestimmt ein Makro, dass das automatisch erledigt?
Meine kenntnisse reichen da leider nicht.
Grüße Jochen

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Blauer Farbverlauf

K.Rola
Klasse, danke oT

Jochen

AW: Blauer Farbverlauf

K.Rola

Hallo,

Option Explicit
Sub Farben()
Dim x As Integer, B As Integer, G As Integer
B = 90
G = 0
Application.ScreenUpdating = False
For x = 1 To 56
ThisWorkbook.Colors(x) = RGB(0, G, B)
B = B + 3
G = G + 4
Cells(x, 1).Interior.ColorIndex = x
Next
Application.ScreenUpdating = True
End Sub

Gruß K.Rola

Klasse, danke oT

Jochen

Forumthread: Blauer Farbverlauf

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread