Freigeben über

PivotCell-Objekt (Excel)

  • Artikel

Stellt eine Zelle in einem PivotTable-Bericht dar.

Hinweise

Verwenden Sie die PivotCell-Eigenschaft der Range-Auflistung , um ein PivotCell-Objekt zurückzugeben.

Nachdem ein PivotCell-Objekt zurückgegeben wurde, können Sie die ColumnItems- oder RowItems-Eigenschaft verwenden, um die PivotItems-Auflistung zu bestimmen, die den Elementen auf der Spalten- oder Zeilenachse entspricht, die die ausgewählte Zahl darstellt.

Beispiel

Nachdem ein PivotCell-Objekt zurückgegeben wurde, können Sie die PivotCellType-Eigenschaft verwenden, um zu bestimmen, welcher Zelltyp ein bestimmter Bereich ist.

Im folgenden Beispiel wird ermittelt, ob Zelle A5 in der PivotTable ein Datenelement ist, und der Benutzer wird benachrichtigt. In diesem Beispiel wird davon ausgegangen, dass auf dem aktiven Arbeitsblatt eine PivotTable vorhanden ist und die Zelle A5 in der PivotTable enthalten ist. Befindet sich Zelle A5 nicht in der PivotTable, wird der Laufzeitfehler in dem Beispiel behandelt.

Sub CheckPivotCellType() 
 
 On Error GoTo Not_In_PivotTable 
 
 ' Determine if cell A5 is a data item in the PivotTable. 
 If Application.Range("A5").PivotCell.PivotCellType = xlPivotCellValue Then 
 MsgBox "The PivotCell at A5 is a data item." 
 Else 
 MsgBox "The PivotCell at A5 is not a data item." 
 End If 
 Exit Sub 
 
Not_In_PivotTable: 
 MsgBox "The chosen cell is not in a PivotTable." 
 
End Sub

In diesem Beispiel wird das Spaltenfeld ermittelt, in dem sich das Datenelement von Zelle B5 befindet. Anschließend wird ermittelt, ob der Titel des Spaltenfelds mit "Inventory" übereinstimmt, und der Benutzer darüber benachrichtigt. Im Beispiel wird davon ausgegangen, dass auf dem aktiven Arbeitsblatt eine PivotTable vorhanden ist und dass Spalte B des Arbeitsblatts ein Spaltenfeld der PivotTable enthält.

Sub CheckColumnItems() 
 
 ' Determine if there is a match between the item and column field. 
 If Application.Range("B5").PivotCell.ColumnItems.Item(1) = "Inventory" Then 
 MsgBox "Item in B5 is a member of the 'Inventory' column field." 
 Else 
 MsgBox "Item in B5 is not a member of the 'Inventory' column field." 
 End If 
 
End Sub

Methoden

Eigenschaften

Siehe auch

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.