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

Formatierung der Pivottabelle het verloren

Forumthread: Formatierung der Pivottabelle het verloren

Formatierung der Pivottabelle het verloren
15.03.2006 08:55:50
Fastnobbi
Hallo,
beim aktualisieren von Pivottabellen geht immer das eingestellte Format der
Daten wieder verloren, obwohl ich die Option Formatierung beibehalten eingestellt habe ! Wer kennt hier einen Ausweg ?
Vorab schon vielen Dank !
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formatierung der Pivottabelle het verloren
16.03.2006 10:52:10
Pascal
Hallo,
das ist unter XLS ein leidiges Thema und ohne Makro meines Wissens nicht zu machen.
Die einfache Version wäre per Makrorekorder die Veränderungen an der Tabelle aufzuzeichnen und nach dem aktualisieren das Makro auszuführen.
Ich habe auch mal folgendes Makro für die Zahlenformate gefunden:

Sub PivotTabelleZahlenFormat1()
'by JFreudens
'Per Intersect wird geprüft, ob und ggfs. innerhalb welcher
'Pivottabelle sich der Cursor befindet. Das Zahlenformat dieser
'Tabelle (und nur dieser) wird geändert
Dim pvtbl As PivotTable
Dim isect As Range
For Each pvtbl In ActiveSheet.PivotTables
Set isect = Intersect(pvtbl.TableRange1, ActiveCell)
If Not isect Is Nothing Then
pvtbl.PivotSelect "", xlDataOnly
Selection.NumberFormat = "#,##0"
'alternativ "#,##0.00" mit 2 Nachkommastellen
End If
Next
ActiveCell.Select
End Sub

Viele Grüße,
Pascal
Anzeige
;

Forumthreads zu verwandten Themen

Pivot Tabelle Formatierung - HELP
ste

Ahoi
Mein Problem hat mit der Pivot Tabelle zu tun. Eigentlich gibt es ein Häckchen, dass man setzten kann, damit sich die Formatierung bei einer Aktualisierung nicht verändert. Dass funktioniert eigentlich auch, nur nicht bei folgender Listenüberschrift:
Reihenfolge / Code / Bereich /...
17.09.2008 17:09:27
Thread-ID: 1010465
3 Beiträge
AW: PivotChart-Bericht Formatierung
Jojo

Hallo RS und alle anderen,
ich habe heute vormittag eine Frage zum Thema dauerhafte Formatierung eines PivotChart-Berichtes gestellt. Am Ende lief das Konstrukt auch auf meinem Rechner, nicht jedoch bei meinen Kollegen.
Was habe ich getan:
1.) Makrocode eingefügt in Diagrammblatt:
13.01.2009 16:39:56
Thread-ID: 1039306
4 Beiträge
Pivot Tabelle mit Formatierungen
Roland

Hallo zusammen,
ich habe in einer Pivot Tabelle in einer Spalte vereinzelte Zellen formatiert ( Schrift FETT, Hintergrundfarbe)
Wenn ich nun in einer andern Zelle in der Spalte links davon den Autofilter benutze, werden diese Formatierungen in besagter Zelle wieder verworfen.
Kann...
29.06.2009 09:49:30
Thread-ID: 1084655
5 Beiträge
Erstellung/Formatierung Pivottabelle
Bernd

Hallo!
Ich bin leider mir der Erstellung/Formatierung einer Pivottabelle schier am verzweifeln. Ich würde gerne die Ausgabetabelle in Pivot in der Form wie ich es in der Mustervorlage dargestellt habe. Meine eigenen Versuche scheitern leider kläglich daran, das die gewüschte "zeilenbezogene...
26.01.2010 14:12:02
Thread-ID: 1133093
4 Beiträge
Pivot nach aktuellem Feld Filtern
jens

Hallo Excel-Profis,
ich habe ein paar Makros erstellt, die Pivotdatenfilter zurücksetzen:
Sub Test_Aufraeumen_Click() On Error Resume Next Dim f As PivotField, i As PivotItem Application.ScreenUpdating = False With ActiveSheet.PivotTables(1) For Each f In .PageFields f.CurrentPage = "(A...
13.08.2010 01:54:40
Thread-ID: 1171999
5 Beiträge
Pivottabelle Drill-Down Formatierung beibehalten
Squishy

Hallo zusammen
ist es überhaupt möglich beim öffnen eines Drilldown in der Pivottabelle (durch Doppelklick) dass die Formatierung spez. die Farbe von der Sourcedatei übernommen werden? z. B. ich habe auf der Grundliste in der ich die Werte über 100 grün und darunter rot eingefärbt und nun m...
03.09.2010 00:05:14
Thread-ID: 1175502
3 Beiträge
Formatierung der Pivottabelle falsch
geolino

Hallo,
ich erstelle per VBA eine Pivottabelle. Im Code ist auch die Formatierung der Zahlenwerte enthalten.
Die Pivottabelle wird erstellt, nur die Zahlenformate entsprechen nicht dem Code:
Beispiel:
With .PivotTables("Legierungstabelle").PivotFields("Einsatz [kg]")
.Numbe...
09.12.2010 18:00:20
Thread-ID: 1190835
3 Beiträge
Anzeige
Formatierung von Tabellen aus Pivot
Tabellen

Hallo,
Bei einer Pivottabelle kann ich ja per Doppelklick einer Detailansicht aufrufen. Für Dokumentationszwecke würde ich diese Tabelle nun mit bestimmter Formatierung ausdrücken: Querformat, optimale Spaltenbreite, Wiederholungszeilen, Skalierung auf Seitenzeile und individuelle Fußzeile....
31.01.2012 00:54:56
Thread-ID: 1248603
4 Beiträge
Bereichsnamen verändert sich nicht automatisch
Heinz

Hallo Liebe Ecxellenten,
folgende "Unregelmäßigkeit" maacht mir zu schaffen.
Ich habe für mehrere Mitarbeiter Stundenlisten erstellt.
Die Tabellen sind als Excel-Tabellen formatiert, damit sie sich
nach unten automatisch erweitern, wenn ein Mitarbeiter am Ende der
Tabelle Da...
28.01.2013 20:41:29
Thread-ID: 1296400
4 Beiträge
Pivottabelle mit bedingte Formatierung verschwinde
e-mo

Hallo alle zusammen,
ich habe hier mühselig mit rollierenden daten pivotisiert, so dass mir immer 13 Monate angezeigt werden.
Über die bedingte Formatierung habe ich nun was zusammengebastelt, dass mir die Daten farblich kennzeichnet.
Problem:
Wenn ich die andere Monate über die...
17.07.2013 15:45:36
Thread-ID: 1322950
4 Beiträge
Bedingte Formatierung in Pivot Tabelle
Uschi

Hallo,
wie kann ich in einer Pivot Tabelle eine bedingte Formatierung generieren, die bestehen bleibt, auch wenn über den Reportfilter ein anderer Wert ausgewählt wird, oder ein Refresh durchgeführt wird?
Bei den Tabellen Optionen habe ich das "Beibehalten der Formatierung bei Update" s...
03.09.2013 14:17:41
Thread-ID: 1329364
4 Beiträge
Formatierung ändert sich
Holm

Und noch einmal Hilfe bitte:
Ich habe folgenden Formatierungscode im Tabellenblatt:
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A7:A63")) Is Nothing Then On Error GoTo Err If InStr(Target.Value, ",") > 0 Then Target.NumberFormat = "#,##0.00" El...
12.12.2013 15:56:50
Thread-ID: 1342363
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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