Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
848to852
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
848to852
848to852
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Pivot-Tabellen kopieren

Pivot-Tabellen kopieren
23.02.2007 11:27:59
Dagmar
Hallo alle miteinader,
ich habe ein Problem mit Pivottabellen. Ich habe die Datei vom letzten Jahr kopiert. Die bereits angelegten Pivotabellen wollte ich weiterbenützen und nur die Werte der Gesamtliste ändern. Trotz Aktualisierung bleiben im Listfeld die Angaben aus dem alten Jahr zusätzlich erhalten.
Kann das irgendwie geändert werden?
Vielen Dank für Eure Hilfe.
Gruß
Dagmar

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Pivot-Tabellen kopieren
26.02.2007 11:47:21
Jutta
Hallo Dagamar,
laß mal dieses Makro drüberlaufen:

Sub Alte_Pivot_Eintraege_loeschen()
Dim ws As Worksheet, _
pt As PivotTable, _
pf As PivotField, _
pi As PivotItem
Application.ScreenUpdating = False
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 pi
Next pf
Next pt
Next ws
On Error GoTo 0
MsgBox "Fertig ! ", vbExclamation
Application.ScreenUpdating = True
End Sub

Gruß
Jutta
Anzeige

304 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige