O.k., proberen deze alternerende actie, vangend het werkende koord en doen vervang op het
Sub myName ()
Schemerige pvtTable als PivotTable
Schemerige SQLString als Koord
Vastgestelde pvtTable = ActiveSheet.PivotTables (1)
Met pvtTable.PivotCache
SQLString = .CommandText de 'SQL Vraag
SQLString = vervangt (SQLString, „2008-01-01“, „2010-01-01“)
.CommandText = SQLString
Eind met
Sub van het eind