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
|