![]() |
||
![]() |
Zellinhalte durch Farben anschaulich machenSie 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. |
![]() |