1: 2: 3:
Sub ChangeDataSource () ActiveSheet.PivotTables („PivotTable1“) .ChangeConnection ActiveWorkbook.Connections (Strecke („B5“). Wert) Enden-Unterseeboot