In diesem Beispiel wird der PivotTable-Bericht nach dem Aktualisieren oder dem Verschieben von Feldern automatisch neu formatiert.
Set pvtTable = Worksheets("Sheet1").Range("A3").PivotTable pvtTable.HasAutoFormat = True