Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1528to1532
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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
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
Dann eben mit Beispiel...
23.12.2016 13:49:46
Michael
Dirk,
... https://www.herber.de/bbs/user/110187.xlsm
Kommst Du nun hin?
Frohes Fest!
LG
Michael
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

18 Forumthreads zu ähnlichen 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
Tabellenregisterfarben automatisch ändern
Ed

Hallo Leute
Ich habe einen Monatskalender für Terminvergaben erstellt, der mit 31 Tabellen (max. 31 Tage) arbeitet. In der Zelle D1 habe ich immer den jeweiligen Wochentag angezeigt, und jetzt würde ich gerne die Tabellenregister der Samstage und Sonntage automatisch rot darstellen. Ebenfal...
10.02.2010 20:59:40
Thread-ID: 1137513
23 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
pivottabellennamen dynamisch ändern
Hewad

Sub Pivotnames_change() Dim wb As Workbook Dim ws As Worksheet Dim wsList As Worksheet Dim pt As PivotTable Dim lPT As Long On Error Resume Next Set wb = ActiveWorkbook Set wsList = Worksheets.Add With wsList .Range(.Cells(1, 1), .Cells(1, 4)).Value _ = Array("Sheet", "PivotTable", "Source Dat...
04.07.2014 11:27:53
Thread-ID: 1368925
9 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
Pivottabellen - externe Datenquelle ändern
walter

Liebe Experten,
ich habe ein Problem, vor dem ich jetzt stehe und nicht bewältigen kann - ursprünglich eine kleine Anforderung, die gewachsen und gewachsen ist... und jetzt habe ich den Salat:
Ich habe eine Excel-Datei mit derzeit 14 Arbeitsblättern. Auf jedem dieser Arbeitsblätter befi...
04.04.2017 09:31:16
Thread-ID: 1550928
5 Beiträge
Mit VBA den Filter einer Pivot-Tabelle ändern
Andrea

Hallo zusammen,
ich bin leider ein VBA-Laie und hoffe, dass ihr mir helfen könnt.
Ich habe in einem Excel-Sheet mehrere Pivot-Tabellen, die alle den Filter "Sachbearbeiter" haben. Nun möchte ich, dass wenn ich über den Filter der ersten Pivot-Tabelle einen Sachbearbeiter auswähle (z. B....
19.04.2017 17:09:21
Thread-ID: 1553697
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
10
7
22
2
1
2
8
3
4
2
1
2
4
13
13
2
19
2