du hast mir gestern sehr geholfen. Nun schreibe ich gerade den Code.
Beim Setzen der Items der anderen PivotTabellen auf True stoße ich auf folgendes
Problem. Sobald ich hier das Item auf Treu setze, komme ich ja wiederum
in das WorkSheet_PivotUpdate Ereignis rein. Dann geht alles von vorne los
und so würde das ewig laufen.
Gibt es dafür eine Lösung?
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Dim ptItem As PivotItem, ptItem2 As PivotItem
Dim ptTable As PivotTable
Dim ptField As PivotField, ptfield2 As PivotField
Dim strPiName As String, strPtName As String
'"Hallo"
Set ptField = Target.PivotFields("Period")
strPtName = Target.Name
For Each ptItem In Target.PivotFields("Period").PivotItems
If ptItem.Name "(blank)" Then
If ptItem.Visible = True And ptItem.Name "" Then
strPiName = ptItem.Name
MsgBox strPiName
End If
End If
Next ptItem
With ActiveSheet
For Each ptTable In .PivotTables
If ptTable.Name strPtName Then
Set ptfield2 = ptTable.PivotFields("Period")
For Each ptItem2 In ptfield2.HiddenItems
If ptItem2.Name = strPiName Then
ptItem2.Visible = True 'IN DIESEM MOMENT GEHT WIEDER DAS EREIGNIS AN!! _
End If
Next ptItem2
End If
Next ptTable
End With
End Sub