David fragt sich, ob es eine Möglichkeit gibt, den Namen einer PivotTable in der PivotTable selbst anzuzeigen.

Die kurze Antwort lautet, dass dies nicht automatisch möglich ist. Die längere Antwort ist, dass Sie einen Namen „betrügen“ und in die PivotTable zwingen können. Sie können beispielsweise die Zeilenbeschriftungszelle in der PivotTable auswählen und bearbeiten (F2), indem Sie alles, was vorhanden ist, durch den Namen ersetzen, den Sie eingeben möchten. Dies ist alles andere als automatisch. Wenn Sie die PivotTable aktualisieren, müssen Sie daran denken, die Zelle erneut zu bearbeiten.

Eine andere Möglichkeit, einen Namen in die PivotTable zu zwingen, ist die Verwendung eines Makros. Es gibt wahrscheinlich einige Ansätze, die Sie in Ihrem Makro verfolgen könnten. Ein Ansatz besteht darin, eine Datentabelle zu erstellen, auf der Ihre PivotTable basiert. Geben Sie der Datentabelle in der ersten Spalte eine Überschrift. (Jeder alte Text für die Überschrift reicht aus, da das Makro ihn überschreibt.)

Führen Sie nach dem Erstellen Ihrer PivotTable das folgende Makro aus. Es bestimmt den Namen der PivotTable, fügt ihn in die Überschrift der Datentabelle ein, aktualisiert die PivotTable (damit der Name dort angezeigt wird) und aktualisiert dann den Namen des PivotTable-Berichtsfilters so, dass er mit dem Namen der PivotTable übereinstimmt.

Sub GetPVName()

Dim pvt As PivotTable     Dim PVName As String

' Get the PivotTable name from the ActiveSheet     ' If there are multiple PivotTables, this approach     ' ensures the macro will work with the last PivotTable     ' in the PivotTables collection     For Each pvt In ActiveSheet.PivotTables         PVName = pvt.Name     Next pvt

' Put PivotTable name as a heading for the first     ' column of the data table     Range("Table1").Cells(0, 1) = PVName

' Refresh the PivotTable     ActiveSheet.PivotTables(PVName).PivotCache.Refresh

' Set the PivotTable name in the report filter     With ActiveSheet.PivotTables(PVName).PivotFields(PVName)

.Orientation = xlPageField         .Position = 1     End With End Sub

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (3233) gilt für Microsoft Excel 2007, 2010, 2013 und 2016.