Herbers Excel-Forum - das Archiv

Pivot Tabellen, "alte" Daten löschen

Bild

Betrifft: Pivot Tabellen, "alte" Daten löschen
von: lucky1

Geschrieben am: 18.04.2005 11:59:19
Hallo zusammen
habe da ein Problem mit einer Pivot Tabelle, habe dazu auch eine Lösung gefunden welche genau dazu passen würde.
https://www.herber.de/forum/index.htm?https://www.herber.de/forum/archiv/136to140/t139135.htm
( danke Otto:-) )
Habe alles auf mein sheet angepasst und läuft auch alles bis zum löschen:-)
Bei der Ausführung erscheint dann eine Fehlermeldung
Laufzeitfehler '1004':
Anwendungs oder objektdefinierter Fehler
und diese Zeile wird gelb markiert
.PivotItems(intCounter).Delete
Da meine Kenntnisse dürftig sind und ich alles aus "alten" Beiträgen zusammengebastelt habe weiss ich nun nicht mehr weiter.
Besten Dank für eure Hilfe
Gruss Lucky
Bild

Betrifft: AW: Pivot Tabellen, "alte" Daten löschen
von: Beate Schmitz

Geschrieben am: 18.04.2005 13:42:04
Hallo Lucky,
bei mir läuft für den Zweck dieser Code reibungslos:
Sub Pivot_alte_weg()
'löschen von nicht mehr verwendeten Einträgen in Pivot-Tabellen
'basierend auf MSKB (Q202232)
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.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
Next
Next
Next
End Sub

Gruß,
Beate
Bild

Betrifft: Wow Danke!
von: Lucky1
Geschrieben am: 18.04.2005 14:20:27
Hallo Beate
Funktioniert einwandfrei und Deine Version ist erst noch edler:-)
Besten Dank!
Gruss Lucky
 Bild