Zellinhalte durch Farben anschaulich machen

Sie möchten den Zellhintergrund abhängig vom Wert in der Zelle farbig gestalten. Mit der bedingten Formatierung von Excel erreichen Sie aber auch mit verknüpften Bedingungen maximal vier Farben. Sie möchten jedoch eine komplette Farbskala mit vielen Abstufungen dafür verwenden.

Wenn Sie mehrere Bedingungen für eine Formatierung verwenden möchten, ist die bedingte Formatierung zu umständlich. Hinzu kommt, dass diese auf drei verschiedene Bedingungen begrenzt ist. Lösen Sie das Problem daher mit einem Makro.

Um Ihre Daten mit einer Farbskala zu veranschaulichen, müssen Sie zunächst eine geeignete Farbskala einrichten. Bearbeiten Sie dafür die Farbpalette Ihrer Arbeitsmappe (siehe Tipp 10), so dass Sie – je nach Bedarf – etwa 8 bis 16 Farbabstufungen erhalten.

Als nächstes führen Sie »Extra | Makro | Makros« aus. Geben Sie dem neuen Makro einen Namen (in unserem Beispiel »Farbskala«) und klicken Sie auf »Erstellen«. Unser Makrobeispiel unterlegt die Zellen der zweiten Spalte mit einer Farbe, die vom Wert der Zellen (Temperatur) abhängig ist. Geben Sie im VBA-Editor folgende Makrozeilen ein:


Sub Farbskala()
    Dim i, k As Variant
    Dim CI As Variant
    CI = Array(1, 53, 52, 51, 49, 11, 55, 56, 9, 46, 12, 10, 14, 5, 47, 16, 3,  45, 43, 50)
    For i = 2 To 19
    k = Cells(i, 2)
    If k < -20 Then k = -20
    If k > 35 Then k = 35
    With Cells(i, 2).Interior
        .ColorIndex = CI(Int(k / 4) + 6)
        .Pattern = xlSolid
    End With
    Next i
End Sub




Zunächst definiert das Makro die nötigen Variablen. Als nächstes müssen Sie die richtige Zuordnung Ihrer Farbskala zu den internen Nummern des Colorindex finden. Dazu verwenden Sie das Datenfeld CI. Es enthält fortlaufend den internen Colorindex, den Excel für die modifizierten Standardfarben verwendet.

Danach richten Sie eine oder mehrere Schleifen ein, um Ihren Datenbereich zu durchlaufen. Für jedes Datenfeld lesen Sie zunächst den Wert in die Variable »k« ein. Die beiden folgenden Zeilen begrenzen die möglichen Werte auf die Randwerte Ihrer Farbskala.

Anschließend ändern Sie den Hintergrund der Zelle. Dafür verwenden Sie eine Formel, die Daten in fortlaufende Nummern für die Farbskala umrechnet.

Sie finden das Beispielmakro auch auf der Heft-CD: CHIP-Code Farben. Um es für Ihren Zweck zu verwenden, müssen Sie die Schleifen auf den Datenbereich in Ihrer Tabelle anpassen, eine geeignete Farbskala einrichten, den Wertebereich der Daten für Ihre Anwendung begrenzen und die richtige Umrechnung auf den Farbskalenindex vornehmen.