Pivot Bericht automatisieren
05.10.2012 12:17:36
Karsten
ich habe einen Pivot Bericht automtisiert. Aus einem bestimmtem PivotField sollen nur z.B. 10 Turbinen aktiviert werden. Die Turbine ID wird über eine Do until- Schleife 10 mal neu beschrieben.
~
Do Until ActiveCell.Offset(0, 0) park
TurbineID = ActiveCell.Offset(0, 2)
ActiveCell.Offset(1, 0).Select
'Pivotbericht nur die WEA passend zum Vertrag/ Park aktivieren!
Sheets(Blatt10).Activate
With ActiveSheet.PivotTables("PivotTable1").PivotFields("turbine")
For Each pi In .PivotItems
If pi.Caption = TurbineID Then
pi.Visible = True
End If
Next pi
End With
Set pi = Nothing
Sheets(Blatt3).Activate
Loop
~
Wenn in der Quelle dieses Pivotberichts eine Turbinen nicht vorhanden ist (Abfrage auf anderem Tabellenblatt) bricht die Schleife bei "pi.Visible = True" ab - der Debuger geht auf. Ich schiebe dann auf Next pi weiter und dann läuft alles durch. Kann man hier mit einer Schleife "If Error - resume next" etwas versuchen?
Wenn Ihr ne Idee habt wäre ich happy!
Danke im Vorraus Karsten