VBA – Programmierung mit Excel Grundlagen

Seite 82
Manipulation von Zellen und Zellbereichen
10.9.3 Zuordnung von Farben
Farben können an Schriften, Rahmen und Zellehintergrund zugeordnet werden. Die
Zuordnung wird über die Eigenschaften COLOR oder COLORINDEX realisiert. Während die
Eigenschaft COLORINDEX mit Indexwerten der EXCEL – Farbpaletten (Werte 1- 56) arbeitet
und damit einfacher in der Anwendung ist, erfordert die COLOR – Eigenschaft einen
Farbcode für die sich aus Grundfarben zusammensetzenden Mischfarben.
Das folgende, sehr einfach (und damit etwas umständlich) programmierte Beispiel zeigt eine
mögliche Anwendung:
Sub Farbe1()
Range("B1:B5").Interior.ColorIndex = 17
End Sub
Sub Farbe2()
Range("B3").Activate
Farbe = ActiveCell.Interior.ColorIndex
If Farbe = 17 Then
With ActiveCell
.Interior.ColorIndex = 28
.Offset(-1, 0).Interior.ColorIndex = xlNone
.Offset(1, 0).Interior.ColorIndex = xlNone
.Borders.LineStyle = xlDouble
.Borders.ColorIndex = 25
End With
End If
End Sub
In der Sub FARBE1 wird einem Zellbereich eine Hintergrundfarbe zugeordnet.
In der Sub FARBE2 wird eine Zelle aktiviert und deren Hintergrundfarbe ermittelt. Der
Indexwert wird der Variablen Farbe zugewiesen. Ist der Indexwert = 17, so wird die
Hintergrundfarbe verändert, der Zelle ein Farbiger doppelter Rahmen zugeordnet und die
Hintergrundfarbe der beiden darüber und darunter liegenden Zellen gelöscht.
Die COLOR – Eigenschaft arbeitet mit Mischfarben, die durch Codes für die Farben Rot, Grün
und Blau definiert werden. Gearbeitet wird dabei mit dem RGB – Farbsystem, welches mit
Wert zwischen 0 und 255 für die Grundfarben arbeitet. VBA besitzt für diesen Zweck eine
eigene RGB – Funktion mit der allgemeinen Syntax:
RGB(Rot, Grün, Blau)
Die Farbe Rot kann beispielsweise zugeordnet werden mit:
RGB(255,0,0)
Die gemischten Farben können sowohl Hintergründen als auch Rahmen und Schriften
zugeordnet werden, wie das nachfolgende Beispiel zeigt:
With ActiveCell
.Interior.Color = RGB(125, 200, 20)
.Offset(-1, 0).Interior.ColorIndex = xlNone
.Offset(1, 0).Interior.ColorIndex = xlNone
.Borders.LineStyle = xlContinuous
.Borders.Color = RGB(30, 160, 120)
.Font.Color = RGB(130, 0, 150)
End With