versuchs mal damit, ungetestet.
Sub Makro1()
ActiveSheet.ChartObjects("Diagramm 2").Activate
Dim i As Integer, j As Integer
Dim varColorRGB
For i = 10 To 34 Step 2
For j = 1 To 13
j = j + 1
Select Case Cells(i, 1).Value
Case Is > 0
varColorRGB = RGB(250, 0, 0)
Case 0
varColorRGB = RGB(146, 280, 80)
Case Is < 0
varColorRGB = RGB(84, 130, 53)
Case Else
varColorRGB = RGB(89, 89, 89)
End Select
ActiveChart.FullSeriesCollection(1).Points(j).Select
With Selection.Format.Fill
.Visible = msoTrue
.ForeColor.RGB = varColorRGB
.Transparency = 0
.Solid
End With
Next j
Next i
End Sub