Forums Neueste Beiträge
 

Balkenfarbe abhängig vom wert einfärben

06/10/2008 - 09:35 von thomas müller | Report spam
Hallo,

ich suche nach einer Lösung um unter 2007 bei einem Balkendiagramm
automatisch die Balkenfarbe je nach Wert zu àndern.

das Diagramm besteht aus nur einer Datenreihe.

Beverly hat mir folgenden Code geschickt:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim chDiagramm As Chart
Application.ScreenUpdating = False
If Not Intersect(Target, Range("A5:C5")) Is Nothing Then
Set chDiagramm = Worksheets("Diagramm").ChartObjects(1).Chart
With chDiagramm.SeriesCollection(Target.Column).Points(1)
If Cells(5, Target.Column) < 4 Then .Interior.ColorIndex = 4
If Cells(5, Target.Column) >= 4 And Cells(5, Target.Column)
<= 7
Then .Interior.ColorIndex = 6
If Cells(5, Target.Column) > 7 Then .Interior.ColorIndex = 3
End With
End If
Application.ScreenUpdating = True
Set chDiagramm = Nothing
End Sub


Problem:
Die Balken pasen sich nur an, wenn man alle Zellen veràndert oder
bearbeitet hat.

Meine Werte A5:c5 werden aber durch Pivottabellen befüllt, àndern sich
also immer wieder und es kann auch sein, dass sie sich nicht àndern...

Kenn jemand eine Lösung die auch bei diesen Anforderungen funktioniert?

Danke

thomas
 

Lesen sie die antworten

#1 thomas müller
08/10/2008 - 14:35 | Warnen spam
Hat keiner eine Lösung?

thomas

thomas müller schrieb:
Hallo,

ich suche nach einer Lösung um unter 2007 bei einem Balkendiagramm
automatisch die Balkenfarbe je nach Wert zu àndern.

das Diagramm besteht aus nur einer Datenreihe.

Beverly hat mir folgenden Code geschickt:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim chDiagramm As Chart
Application.ScreenUpdating = False
If Not Intersect(Target, Range("A5:C5")) Is Nothing Then
Set chDiagramm = Worksheets("Diagramm").ChartObjects(1).Chart
With chDiagramm.SeriesCollection(Target.Column).Points(1)
If Cells(5, Target.Column) < 4 Then .Interior.ColorIndex = 4
If Cells(5, Target.Column) >= 4 And Cells(5, Target.Column)
<= 7
Then .Interior.ColorIndex = 6
If Cells(5, Target.Column) > 7 Then .Interior.ColorIndex = 3
End With
End If
Application.ScreenUpdating = True
Set chDiagramm = Nothing
End Sub


Problem:
Die Balken pasen sich nur an, wenn man alle Zellen veràndert oder
bearbeitet hat.

Meine Werte A5:c5 werden aber durch Pivottabellen befüllt, àndern sich
also immer wieder und es kann auch sein, dass sie sich nicht àndern...

Kenn jemand eine Lösung die auch bei diesen Anforderungen funktioniert?

Danke

thomas

Ähnliche fragen