Hallo. 

ich habe ein Pivotdiagramm namens "Personalkapazitaet" im Reiter "Analyse" erstellt. Nun möchte ich die Farben des Diagramms nach der tollen Anleitung von Excel – Diagrammfarben per VBA zuweisen (von Andreas Thehos) vorbestimmen. 

Leider bekomme ich beim Setzen der Variable "chtDiagramm" einen "Laufzeitfehler '9': Index außerhalb des gültigen Bereichs". Nach etwas googlen sagte mir das Netz, dass es wohl kein Diagramm namens "Personalkapazitaet" oder den Reiter "Analyse" gibt. deswegen habe ich mal ein Makro aufgezeichnet. Der Output meint es gäbe den Reiter und das Diagramm:

Sheets("Analyse").Select     
ActiveSheet.ChartObjects("Personalkapazitaet").Activate

Kann mir jmd sagen, an was der Laufzeitfehler noch liegen könnte? Oder ist die Auswahl von PivotCharts im VBA nicht möglich?

Hier das Skript: 

Sub Farben_Diagramm()

Dim chtDiagramm As Chart
Dim i As Integer, j As Integer, intColor As Integer, intSeries As Integer
Dim strName As String, strChart As String, strBlatt As String

    strBlatt = „Analyse“
    strChart = "Personalkapazitaet"

    Set chtDiagramm = Sheets(strBlatt).ChartObjects(strChart).Chart

    intSeries = chtDiagramm.SeriesCollection.Count

    For i = 1 To intSeries
        strName = chtDiagramm.SeriesCollection(i).Name
        For j = 2 To Range(„RangePhase“).Value + 1
            If Sheets(„Pers_Input“).Cells(j, 1).Value = strName Then
                With chtDiagramm.SeriesCollection(strName)
                    .Format.Fill.Visible = msoTrue
                    '.Format.Fill.ForeColor.RGB = RGB(Cells(j, 4).Interior.Color)
                    
                    MsgBox "Wert: " & Cells(j, 4).Interior.Color.Value & " ok?"
  
                    'Alternativ: .Format.Fill.ForeColor.RGB = RGB(Sheets(„Versuch“).Cells(j, 11).Value, _
                        Sheets(„Pers_Input“).Cells(j, 12).Value, Sheets(„Versuch“).Cells(j, 13).Value)                    
                End With
            End If
        Next j
    Next i
End Sub

Ich benutze Excel2019.

Vielen Dank für eure Hilfe