Datenpunktfarbe, abhaengig.....
05.04.2007 14:38:00
th.heinrich
mit folgendem code wird zellen in abhaengigkeit des inhaltes eine farbe zugewiesen.
Sub farbe()
Dim rng As Range
Dim bereich As Range
Set bereich = [I2:I100]
[I2:I100].Interior.ColorIndex = xlNone
For Each rng In bereich
If rng "" Then
'If Intersect(Target, Range("k2:k55")) Is Nothing Then Exit Sub
Select Case rng
Case "30 Q83 BW3:FixM", "60 Q83 BW3:FixM"
rng.Interior.ColorIndex = 3
Case "30 Q83 BW3:1015", "60 Q83 BW3:1015"
rng.Interior.ColorIndex = 22
Case "30 Q83 BW3:1815", "60 Q83 BW3:1815"
rng.Interior.ColorIndex = 40
Case "30 Q83 BW4:FixM", "60 Q83 BW4:FixM"
rng.Interior.ColorIndex = 4
Case "30 Q83 BW4:1015", "60 Q83 BW4:1015"
rng.Interior.ColorIndex = 8
Case "30 Q83 BW4:1815", "60 Q83 BW4:1815"
rng.Interior.ColorIndex = 34
Case "30 Q2000 BW3:FixM", "60 Q2000 BW3:FixM"
rng.Interior.ColorIndex = 39
Case "30 Q2000 BW3:1015", "60 Q2000 BW3:1015"
rng.Interior.ColorIndex = 37
Case "30 Q2000 BW3:1815", "60 Q2000 BW3:1815"
rng.Interior.ColorIndex = 41
Case "30 Q2000 BW4:FixM", "60 Q2000 BW4:FixM"
rng.Interior.ColorIndex = 36
Case "30 Q2000 BW4:1015", "60 Q2000 BW4:1015"
rng.Interior.ColorIndex = 6
Case "30 Q2000 BW4:1815", "60 Q2000 BW4:1815"
rng.Interior.ColorIndex = 44
End Select
End If
Next
End Sub
wie ist es nun machbar den Datenpunkten eines diagramms anhand obiger beschriftungen dieselben farben zuzuweisen. es handelt sich um eine Datenreihe.vielen dank fuer Eure hilfe
thomas