Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

An Franz (oder andere) Hier mein Code: BIG PROBLEM

An Franz (oder andere) Hier mein Code: BIG PROBLEM
Holger,
Hallo Franz,
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
ganz Einfach:Application.EnableEvents = false k.t.
05.01.2011 11:20:16
Holger,
Anzeige

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige