Datalabels suchen und einfärben
29.09.2014 18:29:49
Chris
ich habe mal wieder ein kleines Problem. Ich möchte mit meinem Sub bestimmte Werte aus einem Punktdiagramm automatisch einfärben. Die Werte nimmt er sich aus einer Zelle im Tabellenblatt.
Er wirft momentan den Fehler "424 Objekt erforderlich". Ich dachte ich hätte alles richtig deklariert und kann es mir nicht erklären.
Die nächste Frage wäre dann ob der Code das tut was er soll. Die Werte aus dem Punktdiagramm bestehen zwar aus 2 Datenreihen aber eigentlich bestimme ich den zu markierenden Punkt nur über eine Datenreihe. Aber das macht wahrscheinlich nichts wenn ich beide abfrage...
Im Code seht ihr die Schleife für einen Wert (t1)
Würde mich freuen wenn ihr mir weiterhelfen könntet. Schönen Abend und beste Grüße
Chris
'set color for Top 3 and Worst 3 in the Matrix
Dim t1 As Object
Dim t2 As Object
Dim t3 As Object
Dim w1 As Object
Dim w2 As Object
Dim w3 As Object
Dim h As Variant
Dim g As Variant
Set t1 = Worksheets("DQI Comparison").Range("O4").Value
Set t2 = Worksheets("DQI Comparison").Range("O5").Value
Set t3 = Worksheets("DQI Comparison").Range("06").Value
Set w1 = Worksheets("DQI Comparison").Range("O12").Value
Set w2 = Worksheets("DQI Comparison").Range("O13").Value
Set w3 = Worksheets("DQI Comparison").Range("O14").Value
For h = 1 To ActiveChart.SeriesCollection.Count
For g = 1 To ActiveChart.SeriesCollection(h).Points.Count
If ActiveChart.SeriesCollection(h).Points(g).Values = t1 Then
ActiveChart.SeriesCollection(h).Points(g).datalable.FillFormat.ForeColor = RGB( _
255, 51, 0)
End If
Next g
Next h