O.K., ließ uns diese Abhilfe versuchen und nahm die Arbeitsschnur gefangen und ersetzen auf ihm tun
VormyName ()
Schwaches pvtTable als PivotTable
Schwaches SQLString als Schnur
Gesetztes pvtTable = ActiveSheet.PivotTables (1)
Mit pvtTable.PivotCache
SQLString = .CommandText 'die SQL-Frage
SQLString = ersetzen (SQLString, „2008-01-01“, „2010-01-01“)
.CommandText = SQLString
Ende mit
Enden-Unterseeboot