VBA-Programmierung in Microsoft Excel

VBA-Begriff: Beispiel zur Item-Eigenschaft (CubeFields-Auflistung)

In diesem Beispiel wird der erste PivotTable-Bericht gesucht, dessen erster Cube-Feldname die Zeichenfolge "Paris" enthält. Die Variable blnFoundName vom Typ Boolean wird auf True festgelegt, falls der Name gefunden wird.

blnFoundName = False
For Each objPT in ActiveSheet.PivotTables
    Set objCubeField = _
        objPT.CubeFields.Item(1)
    If instr(1,objCubeField.Name, "Paris") <> 0 Then
        blnFoundName = True
        Exit For
    End If
Next objPT