Ab und an kann es notwendig sein, zu prüfen, ob die aktuelle Zelle innerhalb einer Pivot-Tabelle liegt oder nicht.
Angehängte Funktion prüft genau das und liefert einen entsprechenden Wahrheitswert zurück. Die Funktion erwartet keinen Parameter und prüft immer nur die ausgewählte Zelle.
Sollte ihr andere Zellen prüfen wollen, ist es natürlich ein leichtes die Funktion entsprechend umzuschreiben.
Function isActiveCellinPivot() As Boolean
Dim pvtTable As PivotTable
On Error Resume Next
Set pvtTable = ActiveCell.PivotTable
On Error GoTo 0
isActiveCellinPivot = Not (pvtTable Is Nothing)
End Function