Excel VBA - Bereich der Zeilen nach variabler Pivot-Tabelle ausblenden

Question

Ich versuche, ein Makro zu schreiben, um eine Anzahl von Blättern mit Pivot-Tabellen zu formatieren. Ich stecke an diesem einen Problem fest.

Mein Blatt enthält eine Reihe von gestapelten Pivot-Tabellen. Ich brauche das VBA-Code-Snippet, um 1000 Zeilen nach der ersten Tabelle zu verstecken (oder alle Tabellen außer der obersten, wenn möglich). Die obere Tabelle wird von Tag zu Tag unterschiedlich groß sein, so dass es nicht möglich ist, einen festgelegten Bereich auszublenden.

Dank

Answer 1

Um alle Pivot-Tabellen mit einer Ausnahme zu verstecken, können Sie so etwas wie dieses versuchen ... Im folgenden Code, den Namen der Pivot-Tabelle ändern Sie nicht wollen, zu verbergen.

Sub HideAllPivotTablesButOne() 
Dim ws As Worksheet 
Dim pt As PivotTable 
Application.ScreenUpdating = False 
Set ws = ActiveSheet 
lr = ws.UsedRange.Rows.Count 
For Each pt In ws.PivotTables 
    If pt.Name <> "PivotTable1" Then  'Name of the Pivot Table which you don't want to hide 
     pt.TableRange2.EntireRow.Hidden = True 
    End If 
Next pt 
Application.ScreenUpdating = True 
End Sub 

Wenn Sie wieder alle Pivot-Tabellen anzeigen möchten, können Sie den Code unten versuchen ...

Sub ShowAllPivotTables() 
Dim ws As Worksheet 
Dim pt As PivotTable 
Application.ScreenUpdating = False 
Set ws = ActiveSheet 
lr = ws.UsedRange.Rows.Count 
For Each pt In ws.PivotTables 
    pt.TableRange2.EntireRow.Hidden = False 
Next pt 
Application.ScreenUpdating = True 

End Sub