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