PivotFieldListing in Person.xls schreiben
27.05.2008 10:10:34
Andreas
ich habe ein Makro, welches mir die Zeilenfelder einer Pivottabelle auf dem aktiven Sheet ausliest. Das Ergebnis soll in das Blatt PivotListingsTemp geschrieben werden, welches in der Person.xls Datei liegt, die parallel geöffnet ist. Das Makro wird auch aus der Person.xls aufgerufen. Ich bekomme es aber leider nicht hin, daß explizit das Blatt in der Person.xls gewählt wird, um die Captions zu schreiben. Ich bekomme immer die Fehlermeldung Index außerhalb des gültigen Bereiches. Oder muß ich das Blatt erst aktivieren? Activate und Select habe ich gelesen, sind in den meisten Fällen aber nicht notwendig?!
Der Code:
Sub PivotListing()
Dim pvTable As PivotTable
Dim pvField As PivotField
Set pvTable = ActiveSheet.PivotTables(1)
n = 0
For Each pvField In pvTable.RowFields
Workbooks("Person.xls").Worksheets("PivotListingsTemp").Range("A2").Offset(n, 0).Value = _
pvField.Caption
n = n + 1
Next
End Sub
Wie lautet die korrekte Adressierungszeile, um die Ergebnisse in PivotListingsTemp zu schreiben? Ohne Activate, im Hintergrund.
Vielen Dank für Eure Vorschläge.
Grüße, Andreas
Anzeige