Hintergrundfarbe mit RGB-Werten ändern?
09.02.2007 00:57:22
Selma
ich möchte die Hintergrundfarbe der Zelle mit definierten RGB-Werten ändern.
Die Hinterdrundfarbe soll nur auf die markierte Zellen beim Makrostart angewendet werden und soll nur dann geändert werden, wenn in der Zelle ein Zahl zwischen 0 und 255 steht.
Die RGB-Werten sollen in VBA-Code intergriert werden, anbei ein Ausschnitt der RGB-Werten mit Farbnummer (die in Zellen stehen):
Farbnummer, R, G, B
0 255 255 255
1 255 0 0
2 255 255 0
3 0 255 0
4 0 255 255
5 0 0 255
6 255 0 255
7 255 255 255
8 127 127 127
9 219 219 219
10 255 0 0
11 255 102 102
12 204 0 0
13 204 102 102
14 153 0 0
15 153 51 51
16 102 0 0
17 102 51 51
18 51 0 0
19 51 51 51
20 255 51 0
usw.
Dieses Makro macht ähnliches. Nämlich die RGB-Werte sind im Arbeitsblatt und
die Schleife läuft solange der Wert in Spalte A nicht leer ist.
Sub test()
Dim Zaehler As Integer
Dim Wert1 As Integer
Dim Wert2 As Integer
Dim Wert3 As Integer
'Solange der Wert in Spalte 1 nicht leer ist, wird die Schleife durchgeführt
Do While Worksheets("Tabelle1").Cells(Zaehler + 2, 1).Value <> ""
Wert1 = Worksheets("TAbelle1").Cells(Zaehler + 2, 2).Value
Wert2 = Worksheets("TAbelle1").Cells(Zaehler + 2, 3).Value
Wert3 = Worksheets("TAbelle1").Cells(Zaehler + 2, 4).Value
Worksheets("Tabelle1").Cells(Zaehler + 2, 5).Interior.Color = _
RGB(Wert1, Wert2, Wert3)
Zaehler = Zaehler + 1
Loop
End Sub
Was muss verändert werden ?
Vielen Dank im Voraus....
Liebe Grüße
SELMA