Feste Farben in Pivot Charts Zuweisen
Schritt-für-Schritt-Anleitung
Um den Spalteneinträgen in einem Pivot Chart feste Farben zuzuweisen, kannst du den folgenden VBA-Code verwenden. Dieser Code überprüft die Datenreihen und weist basierend auf dem Namen der Reihe die entsprechenden Farben zu:
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 chrDia.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
' Füge hier weitere Technologien hinzu
End Select
End With
Next num
End With
Next chrDia
End If
End With
Next wksTab
End Sub
Um den Code auszuführen, öffne den VBA-Editor mit ALT + F11, füge ein neues Modul hinzu und kopiere den Code dort hinein. Führe das Makro aus, um die Farben in deinem Excel-Diagramm zu fixieren.
Häufige Fehler und Lösungen
-
Das Diagramm aktualisiert die Farben nicht
Stelle sicher, dass du das Makro nach jeder Aktualisierung der Daten ausführen. Das Makro muss manuell gestartet werden, um die Formatierung beizubehalten.
-
Falsche Farbzuteilung
Überprüfe die Namen der Datenreihen. Der Code verwendet die Namen, um die Farben zuzuweisen. Wenn die Namen nicht übereinstimmen, wird die Farbe nicht korrekt angewendet.
-
Diagramm funktioniert nicht mit PowerPivot
Wenn du Daten aus PowerPivot verwendest, stelle sicher, dass die Daten auch in einer regulären Pivot-Tabelle zur Verfügung stehen, da der Code auf diese zugreift.
Alternative Methoden
Eine andere Möglichkeit, um die Farben in einem Excel-Diagramm zu fixieren, ist die Verwendung von Bedingter Formatierung. So kannst du Farben abhängig von den Werten oder Bedingungen ändern, allerdings ist dies nicht so flexibel wie der oben genannte VBA-Ansatz.
Praktische Beispiele
-
Einfärbung nach Technologie
Verwende den bereitgestellten VBA-Code, um Technologien wie "PV" (Photovoltaik) in orange und "Wind" in blau darzustellen.
-
Excel-Kreisdiagramm Farben zuweisen
Möchtest du ein Excel-Kreisdiagramm erstellen? Verwende einen ähnlichen Ansatz, indem du die SeriesCollection des Kreisdiagramms anpasst, um den Segmenten feste Farben zuzuweisen.
Tipps für Profis
- Pivot Chart Formatierung beibehalten: Nutze den Code regelmäßig, um sicherzustellen, dass deine Pivot Chart Formatierung bei Aktualisierungen beibehalten wird.
- Makros automatisieren: Du kannst das Makro auch so einrichten, dass es bei jedem Öffnen der Arbeitsmappe automatisch ausgeführt wird, um die Formatierung stets aktuell zu halten.
- Farbcodes verwenden: Anstelle von
ColorIndex kannst du RGB-Farbwerte nutzen, um eine präzisere Farbauswahl zu treffen.
FAQ: Häufige Fragen
1. Wie kann ich die Farben für zusätzliche Technologien hinzufügen?
Ergänze einfach weitere Case-Anweisungen im Select Case-Block des Codes.
2. Funktioniert dieser Code in Excel 2016?
Ja, der VBA-Code sollte in Excel 2016 und neueren Versionen problemlos funktionieren, solange du die Makros aktiviert hast.