Pivo´s aktualisieren mehrere Tabellen
26.05.2016 13:32:21
Rene
ich habe mir eine Datenbank oder Tool in Excel erstellt und in 5 Tabellen oder Reitern sind Pivo Tabellen mit ihren Charts und ich möchte diese Aktualisieren aber es kommt immer eine Fehler?
Haben diesen Code aus den Internet?
Sub RefreshPT()
Dim wS As Worksheet
Dim pt As PivotTable
For Each wS In ActiveWorkbook.Worksheets
For Each pt In wS.PivotTables
pt.RefreshTable
Next pt
Next wS
End Sub
Anzeige