Pivot Chart Spalteneinträgen feste Farbe zuweisen

Hallo zusammen,
ich habe das bekannte Problem, dass sich die Formatierung meines PivotCharts ändert, wenn die Daten aktualisiert werden.
Viele meiner Charts haben immer die gleichen Spalteneinträge: Es geht dabei stets um Technologien, die zur Stromerzeugung eingesetzt werden.
Z.B. Werte zu PV sollen immer orange sein, Wind immer blau, Steinkohle immer schwarz, usw.
Ich habe versucht ein Makro aufzuzeichen, das mir die nötigen Einstellungen vornimmt. Klappt leider nicht einmel in dem einen Reiter.
Habt ihr einen Codeschnipsel für mich, den ich dann beliebig um weitere Technologien erweitern kann?
Die Daten hole ich mir nicht direkt aus einer Pivot-Tabelle, sondern aus einem PowerPivot Datenmodell, dass auf Tabellen in Access zugreift. Wenn das ein Problem für das Makro darstellen sollte, könnte ich auch den Umweg gehen, und mir zunächst eine Pivot-Tabelle erzeugen und erst im nächsten Schritt ein Chart.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Farbe_zuweisen() Dim wksTab As Worksheet Dim chrDia As ChartObject Dim strExport As String Dim SavePath As String For Each wksTab In Worksheets With wksTab If .ChartObjects.Count > 0 Then For Each chrDia In .ChartObjects chrDia.Chart.FullSeriesCollection(1).Select With Selection.Format.Fill .Visible = msoTrue .ForeColor.RGB = RGB(255, 0, 0) .Transparency = 0 .Solid End With Next chrDia End If End With Next wksTab End Sub

Sub Farbe_zuweisen() Dim peType As String Dim datnum As Integer Dim wksTab As Worksheet Dim chrDia As ChartObject For Each wksTab In Worksheets With wksTab If .ChartObjects.Count > 0 Then For Each chrDia In .ChartObjects For datnum = 1 To chrDia.SeriesCollection.Count With Selection.Format.Fill Select Case peType Case "Braunkohle" .Visible = msoTrue .BackColor.RGB = RGB(255, 0, 0) .Transparency = 0 .Solid Case Else .Visible = msoTrue .ForeColor.RGB = RGB(50, 0, 0) .Transparency = 0 .Solid End Select End With Next datnum Next chrDia End If End With Next wksTab End Sub

Hallo nochmal,
also ich habe es inzwischen geschafft mit einem weiteren Codeschnipsel von dir aus einem anderen Forum, dass die Farbänderung für das aktuelle Sheet klappt.

Sub Farbe_zuweisen()
Dim num    As Integer
Dim wksTab As Worksheet
Dim chrDia As ChartObject
For Each wksTab In Worksheets
With wksTab
If .ChartObjects.Count > 0 Then
For Each chrDia In .ChartObjects
With ActiveSheet.ChartObjects(1).Chart
For num = 1 To .SeriesCollection.Count
With .SeriesCollection(num)
Select Case .Name
Case "Braunkohle"
.Interior.ColorIndex = 21
Case "Steinkohle"
.Interior.ColorIndex = 3
Case "Erdgas"
.Interior.ColorIndex = 4
End Select
End With
Next num
End With
Next chrDia
End If
End With
Next wksTab
End Sub

Was muss ich ändern, damit der Loop über alle Sheets klappt?
Vielen Dank im Voraus.
Gruß Johann

Sub Farbe_zuweisen() Dim num As Integer Dim wksTab As Worksheet Dim chrDia As ChartObject For Each wksTab In Worksheets With wksTab If .ChartObjects.Count > 0 Then For Each chrDia In .ChartObjects With .ChartObjects(1).Chart For num = 1 To .SeriesCollection.Count With .SeriesCollection(num) Select Case .Name Case "Braunkohle" .Interior.ColorIndex = 21 Case "Steinkohle" .Interior.ColorIndex = 3 Case "Erdgas" .Interior.ColorIndex = 4 End Select End With Next num End With Next chrDia End If End With Next wksTab End Sub

Beliebteste Forumthreads (12 Monate)

Pivot Chart Spalteneinträgen feste Farbe zuweisen

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

30 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Pivot Chart Spalteneinträgen feste Farbe zuweisen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

30 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread