Pivotcache.Sourcedata
David
Um den Datenbereich einer Pivottabelle zu aktualisieren, habe ich folgenden Code entworfen:
Sub Pivot_Quelle()
Dim i As Byte, Zeilen As Double, Spalten As Double
Zeilen = Workbooks("Materialabweichung komplett.xls").Sheets("SAPBW_DOWNLOAD").UsedRange.Rows. _
_
Count
Spalten = Workbooks("Materialabweichung komplett.xls").Sheets("SAPBW_DOWNLOAD").UsedRange. _
Columns.Count
With Workbooks("Verluste.xls")
For i = 1 To .PivotCaches().Count
.PivotCaches(i).SourceData = "'\workgroup\Fehlerbeseitigung\Produktion\[ _
Materialabweichung komplett.xls]SAPBW_DOWNLOAD'!" & "R1C1:R" & Zeilen & "C" & Spalten
Next
End With
End Sub
Bei der Zeile zur Aktualisierung kommt nun aber ein "Anwendungs- und objektorientierter Fehler" ohne weitere Hinweise und der Code bricht ab.
Beide Excel-Dateien sind zur Laufzeit offen, die "Verluste.xls" im Vordergrund.
Wenn ich mir die Sourcedata per Msgbox anzeigen lasse und mit dem neu zu schreibenden String vergleiche, sind beide identisch bis auf die Z1S1 zu R1C1-Schreibweise.
Ich weiß nicht weiter, die Hilfe war auch nicht sehr hilfreich.
Danke und Gruß
David