VBA-Problem bei Pivot-Teilergebnissen

13/01/2010 - 11:55 von Frank Vellner | Report spam
Liebe NG,

in Excel 2007 ist es nach wie vor ein Klickmaraton, wenn man alle
Teilergebnisse ausblenden möchte. Lieder kann man wohl nicht
verhindern, dass bei neuen PTs die Teilergebnisse per default angezeigt
werden.

Zur Lösung fand ich auf
http://www.office-loesung.de/ftopic..._0_asc.php den folgenden
Code:

Sub NoSubtotals()
'turns off subtotals in pivot table
'.PivotFields could be changed to
'.RowFields or .ColumnFields
Dim pt As PivotTable
Dim pf As PivotField
For Each pt In ActiveSheet.PivotTables
For Each pf In pt.PivotFields
'Set index 1 (Automatic) to True,
'so all other values are set to False
pf.Subtotals(1) = True
pf.Subtotals(1) = False
Next pf
Next pt
End Sub

Der scheint zwar das gewünschte zu tun, bricht aber nach erfolgreicher
Arbeit immer mit:
Laufzeitfehler 1004 "Die Subtotals-Eigenschaft des PivotFeld-Objektes
kann nicht festgelegt werden"
ab.

Sieht jemand, wo der Fehler ist?

Viele Grüße
Frank
 

Lesen sie die antworten

#1 Andreas Killer
13/01/2010 - 18:27 | Warnen spam
Frank Vellner schrieb:

Der scheint zwar das gewünschte zu tun, bricht aber nach erfolgreicher
Arbeit immer mit:
Laufzeitfehler 1004 "Die Subtotals-Eigenschaft des PivotFeld-Objektes
kann nicht festgelegt werden"
ab.

Sieht jemand, wo der Fehler ist?


Nö, aber wenn es nur am Ende vorkommt, dann mach doch am Anfang ein
On Error Goto ExitPoint
und am Ende
ExitPoint:
rein. Wenn der Fehler kommt, hört die Routine auf.

Andreas.

Ähnliche fragen