Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1528to1532
1528to1532
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellfarbe "hinter" Pivottabellen

Forumthread: Zellfarbe "hinter" Pivottabellen

Zellfarbe "hinter" Pivottabellen
23.12.2016 07:27:20
Dirk
Liebe Forumsmitglieder,
ich habe ein Datenblatt, dessen Zellen ich grau formatiert habe. In diesem Datenblatt befindet sich eine Pivottabelle, in der ich den Datenbereich transparent darstelle. Verändere ich nun aber die Pivottabelle und sie wird bspw. kürzer, dann werden die jetzt "freiliegenden" Zellen wieder farblos dargestellt. Kann man das irgendwie verhindern?
Vielen Dank und frohes Fest!
Dirk
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Zu "verhindern" wüsste ich das Verhalten nicht...
23.12.2016 09:52:48
Michael
Dirk,
...aber ich kann mir vorstellen, dass es ein gangbarer Weg sein könnte im betroffenen Tabellenblatt das Calculate-Ereignis abzufangen, und dann immer alle Zellen des Blattes entsprechend zu färben, etwa 
Private Sub Worksheet_Calculate()
Me.Cells.Interior.Color = RGB(166, 166, 166)
End Sub
Code muss ins Code-Modul des betroffenen Tabellenblattes, Farbcode musst Du natürlich anpassen.
Lg
Michael
Anzeige
Zu "verhindern" wüsste ich das Verhalten nicht...
23.12.2016 10:35:54
Dirk
Hallo Michael,
ich habe das mal probiert. Alle Zellen werden eingefärbt. Leider aber auch die ganze Pivottabelle.
Aber ich könnte natürlich nach dem Einfärben die Pivottabelle auswählen und diese entfärben. Dazu habe ich aber drei Fragen: Wie kann ich die Pivottabelle insgesamt ansprechen (ist wahrscheinlich ein Range-Objekt) und wie kann ich die Kopf- bzw. Fußzeile der Pivottabelle ansprechen, die ja anders eingefärbt sein soll.Vielen Dank!!
Gruß
Dirk
Anzeige
AW: Zu "verhindern" wüsste ich das Verhalten nic
23.12.2016 11:11:41
Michael
Hallo!
Leider aber auch die ganze Pivottabelle
Ja, das war jetzt nur als schnelles Bsp gedacht, wo Du evtl. ansetzen könntest.
Bzgl. PivotTabelle bzw. deren Teile ansprechen findest Du hier eine recht gute Zusammenfassung: http://peltiertech.com/referencing-pivot-table-ranges-in-vba/
Ist vermutlich etwas Spielerei, bis Du per Calculate-Ereignis und den unterschiedlichen Pivot-Bereichen eine Lösung für Dich findest, aber einen direkteren Weg sehe ich nicht.
Viel Erfolg,
Michael
Anzeige
AW: Zu "verhindern" wüsste ich das Verhalten nic
23.12.2016 11:56:21
Dirk
Hallo Michael,
das funktioniert schon ganz gut. Aber unter dem Link und auch sonst finde ich alle Range-Bereiche einer Pivottabelle außer die Zeilenkopfüberschrift und die Ergebniszeile (Gesamtergebnis). Auch mit dem Makrorekorder ist nichts zu machen.....
Hast du zu diesen beiden Range-Objekten noch eine Idee?
Gruß
Dirk
Anzeige
AW: Zu "verhindern" wüsste ich das Verhalten nic
23.12.2016 13:07:29
Michael
Hallo!
Naja, da gibt's sicher Möglichkeiten; ggf. musst Du kreativ werden mit den bekannten Bereichen.
Die Zeilenkopfüberschrift kannst Du Dir zB so holen
Sub a()
'Zeilenbeschriftung
Dim pt As PivotTable: Set pt = ActiveSheet.PivotTables(1)
pt.RowRange.Cells(1).Select
End Sub
Oder...
Sub a()
Dim pt As PivotTable: Set pt = ActiveSheet.PivotTables(1)
'unterste rechte Zelle der PivotTabelle markieren
With pt.DataBodyRange
.Cells(.Cells.Count).Select
End With
'unterste linke Zelle der PivotTabelle markieren (Gesamtergebnis)
With pt.RowRange
.Cells(.Cells.Count).Select
End With
'Prüfen ob eine Gesamtergebniszeile vorliegt
With pt
If .ColumnGrand Then
'usw..
End With
End Sub
Also da solltest Du schon hinkommen. Möglich wär natürlich auch die Zelle zu suchen, in der "Gesamtergebnis" steht - aber wenn das jemand überschreibt, hängt das Ganze. D.h. ich würd mich über die bekannten Bereiche vorhanteln...
LG
Michael
Anzeige
AW: Zu "verhindern" wüsste ich das Verhalten nic
23.12.2016 13:38:43
Dirk
Hallo Michael,
ich stolpere mir ja ordentlich einen zusammen, aber es geht immer einen Schritt weiter. Wie mache ich denn aus der linken und rechten Ecke einen zusammenhängenden Bereich, den ich selektiere? Muss ich da mit Variablen arbeiten, die ich dann zusammensetze(Range("Variable1:Variable2") oder geht das einfacher?
Und was die Zeilenbeschriftung angeht, möchte ich den Zeilenkopf (das geht ja schon) und die eine darüberliegende Zelle selektieren. Das soll es dann aber gewesen sein!
Frohes Fest!! Vielen Dank!
Gruß
Dirk
Anzeige
AW: Dann eben mit Beispiel...
23.12.2016 14:06:30
Dirk
Es geht!!!! Danke :-)
Na bitte! Freut mich, lg und owt
23.12.2016 14:31:14
Michael
Anzeige
;

Forumthreads zu verwandten Themen

in Tabellenblättern suchen und Schriftfarbe ändern
ad

Hallo zusammen,
ich möchte in mehreren Tabellenblättern (Liste ist im Blatt Namen c3:c.. aufgeführt) bestimmte Buchstaben suchen und per VBA-Makro Schriftfarbe ändern . Bedingte Formatierung ist schon ausgereizt.
Wer kann mir weiterhelfen?
Gruss ad
13.08.2009 22:11:33
Thread-ID: 1095796
11 Beiträge
Anzeige
Pivot Tabelle Pad ändern
Stu

Hallo,
ich habe in einer Exceldatei "1" eine Pivottabelle, die auf Daten einer anderen Exceldatei "2" (mehrere Tabellenblätter) zurückgreift. Nun hat sich der Name der Datei "2" in "3" geändert. Da sich der Pfad der Verknüpfung nicht automatisch anpasst, möchte ich den gerne manuelle ändern...
30.11.2009 17:45:11
Thread-ID: 1121049
8 Beiträge
Quellbereich von Pivottabellen per VBA ändern
Pivottabellen

Hallo,
gibt es eine Möglichkeit die Bereichsangabe der Quelldaten aller Pivottabellen in einer Arbeitsmappe
per VBA automatisiert umzustellen?
Vorher: "Eingabe!$A$10:$AB$1108", also mit absoluten Zellbezügen
Nachher: "=Eingabebereich" , also mit Angabe des vor...
04.08.2011 12:41:34
Thread-ID: 1224843
3 Beiträge
Anzeige
Kopieren ohne Tabellenfarbe zu ändern
Stefan

Hi, eine Frage: Kann ich per Ziehen Zelen auch Kopieren, ohne dass die Farbe der Zellen geändert wird, also nur die FOrmeln geändert werden?
Daaaanke
Stefan
22.11.2013 11:53:35
Thread-ID: 1339668
3 Beiträge
Vba Pivottabelle "XlConsolidate" Array ändern
Olaf

Hallo liebe Excelgemeinde,
Ich versuche in einer Exceltabelle mit mehreren Konsolidierungsbereichen neue Quellen einzufügen, sowie auch bestehende zu entfernen, leider bis jetzt ohne Erfolg :-(
Die Pivottabelle ist bereits mit dem Pivotassistenten erstellt, mehrere Konsolidierungsbereic...
09.10.2016 01:21:32
Thread-ID: 1518743
4 Beiträge
Pivot-Tabelle; Balken nach Monaten einfärben
Dario

Guten Tag zusammen
Ich habe eine Pivot-Tabelle erstellt mit folgenden Merkmalen. Ich habe diverse Auftragsarten, die im Verlauf eines Monats bearbeitet werden. Dazu die Anzahl Stunden pro Auftragsart und in welchem Monat. Um diese über die Monate zu vergleichen habe ich auf der X-Achse die...
27.08.2018 09:52:09
Thread-ID: 1641660
2 Beiträge
Zeilenfeld bei Pivot-Tabelle ändern
ludicla

Hallo Profis
warum kann ich in einer Pivot-Auswertung manche
Zeilenfelder ändern und andere nicht ?
bzw. wenn ich eins überschreibe kann ich es nicht mehre
auf Basis der Datenquelle ändern - woran kann das liegen.
Gruss Ludicla
26.10.2018 10:39:25
Thread-ID: 1653708
3 Beiträge
PivotTabelle aktualisieren überschreibt Farben...
Christian

Hi !Ich habe ein Problem mit ner Pivottabelle und dem passenden Diagramm. Wenn ich die Daten der Pivottabelle aktualisiere werden die Formatierungen in meinem Diagramm wieder zurückgesetzt. D.h. die Farben der Säulen werden wieder auf das häßliche Violett gesetzt.Wie kann ich das unterbinden?Da...
23.01.2003 13:45:39
Thread-ID: 208073
5 Beiträge
TabellenblattReiter Farbe ändern
Eberhard

Hallo zusammen
Ich habe schon mal im Forum nachgefragt. Ich möchte das der Tabellenblattreiter einen grünen Hintergrund hat. Sobald alle Zellen B4 bis B28 befüllt sind, soll er die Farbe auf rot wechseln. Unterstehender Code habe ich verwendet. Doch plötzlich geht er nicht mehr! Was könnte...
12.06.2020 21:53:11
Thread-ID: 1765266
14 Beiträge
Pivot Tabellenabfrage wie ändern?
Juergen
Hallo zusammen,
als kleines Excel-Licht habe ich mich mal bis zu einer Pivot-Tabellengrafik durchgewurschtelt. Das funktioniert auch soweit mit Daten aus 2 Tabellenblättern.
Jetzt gibts für mich 2 Fragen, die ich nicht hinbekommen:
a) wie kann die Anzeige-Reihenfolge der Tabellenblätter...
10.12.2021 11:50:18
Thread-ID: 1861157
3 Beiträge
Pivot Tabelle abändern
DonHoss
Guten Tag,
Ich hab ne Tabelle wo ich mir in einem Chart anzeigen lassen will, wie der Verlauf vom "Co2" Wert ist (Datum,Uhrzeit und Wert). Bei dieser Pivot-Tabelle bin ich dann auch aufs maximum gegangen(wurde mir hier schon geholfen) und hat soweit alles auch geklappt.
Bei deutlich größere...
14.07.2022 12:44:55
Thread-ID: 1891096
20 Beiträge
Pivottabelle auf AccessDB_Quelle ändern
Cassidy83
Hallo zusammen,

ich habe eine Excel-Datei mit sehr vielen aufwendigen Pivot-Tabellen, die ihre Daten aus einer Access-DB ziehen. Nun hat sich leider der Pfad der Access-DB geändert. Wie kann ich in meinen Pivottabellen den Pfad auf die Access-DB ändern? Wenn ich den neuen Pfad als neue Abf...
26.06.2023 15:29:35
Thread-ID: 1934865
3 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Zellfarbe hinter Pivottabellen anpassen

Schritt-für-Schritt-Anleitung

  1. VBA-Editor öffnen: Drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Das richtige Blatt auswählen: Suche im Projekt-Explorer nach dem betreffenden Arbeitsblatt, auf dem sich die Pivottabelle befindet.

  3. Code einfügen: Füge den folgenden Code in das Code-Modul des Arbeitsblattes ein:

    Private Sub Worksheet_Calculate()
   Me.Cells.Interior.Color = RGB(166, 166, 166)
   ' Pivottabelle auswählen und entfärben
   Dim pt As PivotTable
   Set pt = Me.PivotTables(1) ' Ersetze 1 durch die Nummer deiner Pivottabelle

   ' Beispiel für das Entfärben der Pivottabelle
   pt.TableRange2.Interior.ColorIndex = xlNone
End Sub

  4. Pivottabelle anpassen: Um spezifische Bereiche der Pivottabelle anzusprechen, kannst Du den Code entsprechend anpassen, wie zum Beispiel:

    ' Zeilenkopfüberschrift auswählen
Dim rowHeader As Range
Set rowHeader = pt.RowRange.Cells(1)
rowHeader.Interior.Color = RGB(255, 255, 255) ' Beispiel: Setze auf weiß

  5. Testen: Ändere die Daten in der Pivottabelle und überprüfe, ob die Zellen korrekt eingefärbt werden.

Häufige Fehler und Lösungen

  • Problem: Alle Zellen, einschließlich der Pivottabelle, werden eingefärbt.

    • Lösung: Stelle sicher, dass Du die spezifischen Bereiche der Pivottabelle nach der Einfärbung wieder entfärbst. Verwende den TableRange2 oder spezifische Zellreferenzen.

  • Problem: Die Zeilenkopfüberschrift wird nicht gefunden.

    • Lösung: Verwende den Code, um den Zugang zur Zeilenkopfüberschrift zu sichern:
    Set rowHeader = pt.RowRange.Cells(1)

  • Problem: Das gesamte Arbeitsblatt wird immer eingefärbt.

    • Lösung: Überprüfe den Worksheet_Calculate-Code. Stelle sicher, dass Du gezielt die Pivottabelle nach dem Einfärben auswählst.

Alternative Methoden

  1. Bedingte Formatierung: Du kannst auch die bedingte Formatierung verwenden, um Zellen basierend auf bestimmten Kriterien zu färben. Dies ist besonders nützlich, wenn Du die Zellen dynamisch anpassen möchtest.

  2. Manuelle Anpassung: Wenn VBA nicht erforderlich ist, kannst Du die Zellen manuell formatieren, indem Du die Pivottabelle auswählst und die gewünschten Zellen mit der gewünschten Farbe füllst.

Praktische Beispiele

  • Entfärben der Gesamtergebniszeile:

    Um die Gesamtergebniszeile der Pivottabelle spezifisch anzusprechen, kannst Du den folgenden Code verwenden:

    If pt.ColumnGrand Then
   pt.DataBodyRange.Cells(pt.DataBodyRange.Rows.Count, 1).Interior.ColorIndex = xlNone
End If

  • Bereichsauswahl für die Zeilenkopfüberschrift:

    Dim headerRange As Range
Set headerRange = Range(pt.RowRange.Cells(1), pt.RowRange.Cells(1, pt.RowRange.Columns.Count))
headerRange.Interior.Color = RGB(200, 200, 200) ' Beispiel: Setze auf grau

Tipps für Profis

  • Kombination von Variablen: Du kannst Variablen verwenden, um Bereiche dynamisch zu erstellen. Beispiel:

    Dim startCell As Range
Dim endCell As Range
Set startCell = pt.DataBodyRange.Cells(1)
Set endCell = pt.DataBodyRange.Cells(pt.DataBodyRange.Rows.Count)
Dim combinedRange As Range
Set combinedRange = Range(startCell, endCell)

  • Explizite Fehlerbehandlung: Füge Fehlerbehandlungsroutinen in deinen Code ein, um unerwartete Fehler abzufangen.

FAQ: Häufige Fragen

1. Wie kann ich die Farbe einer Pivottabelle ändern? Du kannst die Innenfarbe der Pivottabelle mit dem VBA-Befehl Interior.Color ändern, indem Du den spezifischen Bereich der Pivottabelle ansprichst.

2. Was ist der Unterschied zwischen TableRange2 und DataBodyRange? TableRange2 umfasst alle Zellen der Pivottabelle, einschließlich der Überschriften und Gesamtergebnisse, während DataBodyRange nur die Datenzellen umfasst.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige