Pivot aktualisieren?
Peter Schürer
XL2002.
Wenn ich in der Datentabelle Werte lösche, erscheinen diese Werte in der
"Auswahlliste" der Pivottabelle immer noch.
Ich habe alle Zeilen, in denen das Datum 04.08.08 stand, gelöscht. Danach
habe ich die Pivot aktualisiert. Das Datum 04.08.08 wird in der Pivot nicht
mehr erfasst, steht aber in der Auswahlliste noch drin.
Wie kann man das bereinigen?
Danke und Gruß
Peter
Thomas Ramel
Peter Schürer schrieb am 04.04.2009
> Wenn ich in der Datentabelle Werte lösche, erscheinen diese Werte in der
> "Auswahlliste" der Pivottabelle immer noch.
> Ich habe alle Zeilen, in denen das Datum 04.08.08 stand, gelöscht. Danach
> habe ich die Pivot aktualisiert. Das Datum 04.08.08 wird in der Pivot nicht
> mehr erfasst, steht aber in der Auswahlliste noch drin.
> Wie kann man das bereinigen?
Die DropDowns werden leider nicht automatisch bereinigt, aber Du kannst die
folgende Sub dazu verwenden:
Sub DeleteOldPivotItemsWB()
'löschen von nicht mehr verwendeten Einträgen in Pivot-Tabellen
'basierend auf MSKB (Q202232)
'Quelle: Thomas Ramel
Dim wS As Worksheet
Dim pt As PivotTable
Dim pf As PivotField
Dim pi As PivotItem
On Error Resume Next
For Each wS In ActiveWorkbook.Worksheets
For Each pt In wS.PivotTables
pt.ManualUpdate = True
pt.RefreshTable
For Each pf In pt.PivotFields
For Each pi In pf.PivotItems
If pi.RecordCount = 0 And _
Not pi.IsCalculated Then
pi.Delete
End If
Next pi
Next pf
pt.ManualUpdate = Falde
Next pt
Next ws
End Sub
Mit freundlichen Grüssen
Thomas Ramel
--
- MVP für Microsoft-Excel -
[Vista Ultimate SP-1 / xl2007 SP-1]
Eberhard Funke
@ Peter:
> Next pf
> pt.ManualUpdate = Falde <--- False
> Next pt
> Next ws
> End Sub
@ Thomas: schon in meine PT-Sammlung aufgenommen :-)
--
Mit freundlichen Grüssen Eberhard
XP home XL 2000
Eberhard(punkt)W(punkt)Funke(at)t-online.de
Peter Schürer
ich kann die Antwort von Thomas leider nicht lesen, die gibt es hier nicht.
Habe auch schon einen NewsReader benutzt, auch Fehlanzeige.
Kannst Du das Makro bitte noch einmal posten?
Danke und Gruß
Peter
"Eberhard Funke" <nomail@invalid> schrieb im Newsbeitrag
news:1mls6w8av3c2f$.14eyv689vd9c1.dlg@40tude.net...
Eberhard Funke
Hallo Peter,
Zitat Posting Thomas:
Die DropDowns werden leider nicht automatisch bereinigt, aber Du kannst die
folgende Sub dazu verwenden:
Sub DeleteOldPivotItemsWB()
'löschen von nicht mehr verwendeten Einträgen in Pivot-Tabellen
'basierend auf MSKB (Q202232)
'Quelle: Thomas Ramel
Dim wS As Worksheet
Dim pt As PivotTable
Dim pf As PivotField
Dim pi As PivotItem
On Error Resume Next
For Each wS In ActiveWorkbook.Worksheets
For Each pt In wS.PivotTables
pt.ManualUpdate = True
pt.RefreshTable
For Each pf In pt.PivotFields
For Each pi In pf.PivotItems
If pi.RecordCount = 0 And _
Not pi.IsCalculated Then
pi.Delete
End If
Next pi
Next pf
pt.ManualUpdate = Falde
Next pt
Next ws
End Sub
Mit freundlichen Grüssen
Thomas Ramel
--
Thomas Ramel
Peter Schürer schrieb am 05.04.2009
> ich kann die Antwort von Thomas leider nicht lesen, die gibt es hier nicht.
> Habe auch schon einen NewsReader benutzt, auch Fehlanzeige.
Wo genau ist 'hier'?
Wie greifst Du auf die NG zu und über welchen Server beziehst Du deine
NewsGroups?
Bei Google-Groups z.b. gibts da keine Problme:
Peter Schürer
Tausend Dank, es funktioniert wunderbar.
MfG
Peter
"Eberhard Funke" <nomail@invalid> schrieb im Newsbeitrag
news:tywjsnebj1ly$.1pxp9ybr3upi9.dlg@40tude.net...
Andreas Killer
> > ich kann die Antwort von Thomas leider nicht lesen, die gibt es hier nicht.
> > Habe auch schon einen NewsReader benutzt, auch Fehlanzeige.
> Bei Google-Groups z.b. gibts da keine Problme:
> http://groups.google.com/group/microsoft.public.de.excel/browse_frm/t...
Für diesen Thread ist das richtig, aber pauschal gilt das leider
nicht.
Ich lese/schreibe von der Arbeit aus auch via Google-Groups und habe
schon öfters festgestellt das manche Threads nicht vollständig zu
lesen sind.
Meine Anfrage an den Google-Support
http://www.google.com/support/forum/p/groups/thread?tid=2ca589b574a1cd83&hl=de
blieb bisher ohne Antwort.
Andreas.
thomas...@gmail.com
On 6 Apr., 09:10, Andreas Killer <andreas.kil...@gmx.net> wrote:
>
> > > Habe auch schon einen NewsReader benutzt, auch Fehlanzeige.
> > Bei Google-Groups z.b. gibts da keine Problme:
> >http://groups.google.com/group/microsoft.public.de.excel/browse_frm/t...
>
> Für diesen Thread ist das richtig, aber pauschal gilt das leider
> nicht.
>
> Ich lese/schreibe von der Arbeit aus auch via Google-Groups und habe
> schon öfters festgestellt das manche Threads nicht vollständig zu
> lesen sind.
Daher ja die Frage, wie und woher Peter auf die NG zugreift, resp.
seine Antworten schreibt.
Alle Zugänge sind letztlich 'nur' eine Speigelung der MS-Serverfarm.
Unterbrüche können irgendwo auf dem Weg dazwischen liegen.
--
Mit freundlichen Grüssen
Thomas Ramel
- MVP für MS-Excel -
Andreas Killer
>> Ich lese/schreibe von der Arbeit aus auch via Google-Groups und habe
>> schon öfters festgestellt das manche Threads nicht vollständig zu
>> lesen sind.
> Alle Zugänge sind letztlich 'nur' eine Speigelung der MS-Serverfarm.
> Unterbrüche können irgendwo auf dem Weg dazwischen liegen.
Ah, siehste, man kann alt werden wie'ne Kuh, lernen tut man immer noch
dazu. :-) Danke.
Andreas.