Microsoft Excel

Herbers Excel/VBA-Archiv

pivot in verstecktem tabellenblatt aktualisieren | Herbers Excel-Forum


Betrifft: pivot in verstecktem tabellenblatt aktualisieren von: david.a2k
Geschrieben am: 02.08.2012 14:21:36

Hallo,

ich habe ein Excel File mit 6 Tabellenblättern wovon fünf standardmäßig ausgeblendet sind.
In allen versteckten Tabellenblättern gibt es Pivot Tabellen.
In dem nicht versteckten Tabellenblatt kann man per Button/Makro alle diese Pivot Tabellen aktualisieren.

Ich schaffe das aber nur indem ich jedes einzelne Tabellenblatt erst einblenden lasse, dann die Pivot aktualisieren lasse und dann das Tabellenblatt wieder ausblende, das ganze eben fünf mal.

Kann man das auch machen ohne die Tabellenblätter einzublenden?
Oder als Alternative zumidnest das so zu machen, dass es der Benutzter nicht sieht?

Danke und Gruß
David

  

Betrifft: AW: pivot in verstecktem tabellenblatt aktualisieren von: fcs
Geschrieben am: 02.08.2012 15:11:34

Hallo David,

mit nachfolgenden Makros sollte es ohne Einblenden der Blätter funktionieren.

Gruß
Franz

Sub Pivots_Aktualisieren()
  'Namen der Tabellenblatts mit Pivot anpassen
  Call PivotUpdate(ActiveWorkbook.Worksheets("Pivot1")) 
  Call PivotUpdate(ActiveWorkbook.Worksheets("Pivot2"))
  Call PivotUpdate(ActiveWorkbook.Worksheets("Pivot3"))
  Call PivotUpdate(ActiveWorkbook.Worksheets("Pivot4"))
  Call PivotUpdate(ActiveWorkbook.Worksheets("Pivot5"))
End Sub

Sub PivotUpdate(wks As Worksheet)
  Dim pvTab As PivotTable
  For Each pvTab In wks.PivotTables
    pvTab.RefreshTable
  Next
End Sub



  

Betrifft: AW: pivot in verstecktem tabellenblatt aktualisieren von: Rudi Maintaire
Geschrieben am: 02.08.2012 15:17:47

Hallo,

Sub RefreshPivot()
   Dim Wks As Worksheet
   Dim pt As PivotTable
   
   Application.ScreenUpdating = False
   For Each Wks In Worksheets
      For Each pt In Wks.PivotTables
         pt.RefreshTable
      Next pt
   Next Wks
   Application.ScreenUpdating = True
End Sub

Gruß
Rudi


  

Betrifft: AW: pivot in verstecktem tabellenblatt aktualisieren von: david.a2k
Geschrieben am: 02.08.2012 16:25:59

Vielen Dank beiden Antworten.
Hat mir weitergeholfen.

Gruß


Beiträge aus den Excel-Beispielen zum Thema "pivot in verstecktem tabellenblatt aktualisieren"