[Excel VBA 2003] Zeile in Pivot-Tabelle ausblenden

[speedfreak1988]

Tach zusammen,

folgendes Problem:

In einer Pivottabelle (Screenshot im Anhang) sollen in der Spalte "Daten" pro Material die Zeilen "Summe von Produzierte Menge" und "Anzahl von Schlechtteile" mittels VBA ausgeblendet werden.

Hab das mit dem Makrorecorder aufgezeichnet und folgenden Code erhalten:
Range("C31").Select
ActiveWorkbook.ShowPivotTableFieldList = True
ActiveSheet.PivotTables("PivotTable1").PivotFields( _
"Summe von Produzierte Menge").Orientation = xlHidden
ActiveSheet.PivotTables("PivotTable1").PivotFields("Anzahl von Schlechtteile"). _
Orientation = xlHidden
ActiveWorkbook.ShowPivotTableFieldList = False

Am fettgedruckten Code bleibt er jedoch immer hängen mit der Fehlermeldung:
Laufzeitfehler 1004: Die Orientation-Eigenschaft des PivotField-Objektes kann nicht festgelegt werden.

Wenn ich den Fehler mit "On Error Goto ..." abfangen würde, würde er also nur "Summe von Produzierte Menge" ausblenden, "Anzahl von Schlechtteile" bleibt jedoch stehen.

Weiß jemand Rat?

Vielen Dank im Voraus!

Ergänzung (5. April 2012)

Problem gelöst:

Über eine For-Schleife jede Zeile und Spalte der Pivot-Tabelle durchgehen:
Wo "Summe von Produzierte Menge" oder "Anzahl von Schlechtteile" drinsteht
---> Selection.Delete

und schon gehts