Datenpunkte suchen und einfärben
05.10.2014 17:52:22
Chris
Hallo Leute,
Ich versuche ein Makro zu schreiben, welches die Datenpunkte in einem Diagramm mit bestimmten werten vergleicht und bei einer Übereinstimmung mit einer bestimmten Farbe einfärbt.
Ich hatte dieses Problem schon mal gepostet und dachte jetzt, dass ich alle Fehler behoben habe. Aber leider hat nun einen Fehler beim Kompilieren. Excel erwartet ein Datenfeld bei vals2(x2) = t1. An was kann das liegen? Meint ihr der Code könnte ansonsten das tun was er soll??
Danke für die Hilfe!!
Gruß Chris
Hier nochmal der ganze code
Dim t1 As String
Dim t2 As String
Dim t3 As String
Dim w1 As String
Dim w2 As String
Dim w3 As String
Dim cht2 As Chart
Dim s2 As Series
Dim p2 As Point
Dim vals2 As Integer
Dim x2 As Integer
t1 = Worksheets("DQI Comparison").Range("O4").Value
t2 = Worksheets("DQI Comparison").Range("O5").Value
t3 = Worksheets("DQI Comparison").Range("O6").Value
w1 = Worksheets("DQI Comparison").Range("O12").Value
w2 = Worksheets("DQI Comparison").Range("O13").Value
w3 = Worksheets("DQI Comparison").Range("O14").Value
Worksheets("DQI Comparison").Activate
ActiveSheet.ChartObjects("Diagramm 1").Activate
Set cht2 = ActiveSheet.ChartObjects(1).Chart
Set s2 = cht2.SeriesCollection(1)
vals2 = s2.Values
For x2 = 0 To s2.Points.Count
If vals2(x2) = t1 Then
With s2.Points(x2)
.MarkerBackgroundColor = RGB(255, 51, 0)
.MarkerForegroundColor = RGB(255, 51, 0)
End With
End If
Next x2