Microsoft Excel

Herbers Excel/VBA-Archiv

Pivotcache.Sourcedata | Herbers Excel-Forum


Betrifft: Pivotcache.Sourcedata von: David
Geschrieben am: 04.01.2010 13:42:38

Hallo zusammen und allen ein gesundes neues Jahr!!!

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

  

Betrifft: AW: Pivotcache.Sourcedata von: Ramses
Geschrieben am: 04.01.2010 15:46:16

Hallo

Ungetest, aber probier doch einfach mal

.PivotCaches(i).SourceData = "'\workgroup\Fehlerbeseitigung\Produktion\[ _
Materialabweichung komplett.xls]SAPBW_DOWNLOAD'!$A$1:" & Cells(Zeilen,Spalten).Address & ""

Gruss Rainer


  

Betrifft: AW: Pivotcache.Sourcedata von: David
Geschrieben am: 07.01.2010 08:52:20

Hallo Rainer,

leider keine Änderung, weiterhin der "Anwendungs und ... Fehler". :-(
Wenn man denn wenigstens einen Hinweis auf den Fehler kriegen würde! Aber so weiß ich ja nicht mal, WONACH ich suchen soll.

Gruß
David


  

Betrifft: ***offen*** von: David
Geschrieben am: 07.01.2010 09:21:24