Fehlermeldung bei Pivot Makro
Gustav
habe ein Makro, welches aus den Einträgen einer Pivot-Tabelle
jeweils ein eigenes Tabellenblatt erstellt. Die Bezeichung des Blattes
ist jeweils die Bezeichung des Zeilenfeldes.
So wird die ganze Pivot bis nach unten abgearbeitet.
Das Makro erledigt auch alles Bestens, nur kommt am Ende eine Fehlermeldung,
die mir im Zusammenspiel mit anderen Makros Probleme macht.
Die Meldung lautet:
Laufzeitfehler '1004':
Formel unvollständig. Stellen Sie sicher, daß keine eckige Klammer fehlt.
Es fehlt aber meines Erachtens nichts. Weiß nicht, was stört.
Vielleicht sieht es ja ein Profi auf den ersten Blick...
Hier das Makro:
Sub EP2_Innenauftragsbericht_02()
' *** Erzeugt für jede Auftrags-Nr. in der Pivot-Tabelle ein eigenes Blatt. ***
Dim pt As PivotTable
Dim rf As PivotItem
Dim ActSheet As Worksheet
Set ActSheet = ActiveSheet
Set pt = ActiveSheet.PivotTables(1)
For Each rf In pt.RowFields("Auftrag").PivotItems
pt.PivotSelect (rf.Name), xlDataOnly '**Klammer fehlt?**
Selection.ShowDetail = True
ActiveSheet.Name = rf.Name
Sheets(ActSheet.Name).Select
Next
End
Sub
Vielen Dank für die Hilfe.
Gustav