1: 2: 3:
Sub ChangeDataSource () ActiveSheet.PivotTables („PivotTable1“) .ChangeConnection ActiveWorkbook.Connections (Waaier („B5“). Waarde) Sub van het eind