Hallo zusammen, Ich stehe gerade vor einem Problem, nämlich das Einfärben eines Diagramms. Bzw. das Einfärben von Zellen. Dabei sollen die Grenzwerte der Farbbereiche Variablen sein. Die Farbe bzw. der Wert eines Feldes ergibt sich durch die Multiplikation der Werte der x- & y-Achse, z.B. x=6; y=5; x*y=30 -> Farbe des Feldes ist gelb. Schon einmal Danke im Voraus!!!
04.09.2018, 14:16 (Dieser Beitrag wurde zuletzt bearbeitet: 04.09.2018, 14:17 von MisterBurns.)
Das geht ganz einfach so:
Code:
Sub einfaerben() Dim Z As Integer Dim S As Integer
For Z = 29 To 38 For S = 3 To 12 Select Case Cells(Z, "B") * Cells(39, S) Case Is < 10: Cells(Z, S).Interior.Color = 5296274 Case Is < 50 Cells(Z, S).Interior.Color = 65535 Case Is >= 50 Cells(Z, S).Interior.Color = 255 End Select Next S Next Z
End Sub
Wobei hier sicherlich die bedingte Formatierung zu bevorzugen wäre, dabei kann ich dir aber leider nicht helfen, da bin ich ganz schwach.
Schöne Grüße Berni
Folgende(r) 1 Benutzer sagt Danke an MisterBurns für diesen Beitrag:1 Benutzer sagt Danke an MisterBurns für diesen Beitrag • Excelsior940