ich habe in einer Arbeitsmappe 30 Pivottabellenblätter ich möchte diese alle als Wert haben. So dass die Pivotfunktionen nicht mehr aktiv sind.
Kennt jemand ein VBA Code?
Vielen Dank & Gruß
MURAT
Option Explicit
Sub DeletePivotTables()
Dim Pt As PivotTable
Dim Ws As Worksheet
Dim ar As Variant
For Each Ws In ActiveWorkbook.Worksheets
Ws.Select
For Each Pt In Ws.PivotTables
Pt.PivotSelect "", xlDataAndLabel, True
ar = Selection.Value
Selection.ClearContents
ActiveCell.Resize(UBound(ar, 1), UBound(ar, 2)) = ar
Next
Next
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen