In diesem Beispiel wird der ursprüngliche Name (der Name in der Quelldatenbank) des Elements, das die aktive Zelle enthält, angezeigt.
Worksheets("Sheet1").Activate ActiveSheet.PivotTables(1).PivotSelect "1998", xlDataAndLabel MsgBox "The original item name is " & _ ActiveCell.PivotItem.SourceName