Excel VBA Schleife über Pivot-Elemente

Möchte ich in einer Schleife durch meine pivot-Elemente, und überprüfen Sie, ob Sie existieren in einer anderen Tabelle, siehe mein Screenshot-Beispiel:

Excel VBA Schleife über Pivot-Elemente

So, ich möchte in einer Schleife durch alle Farben, die überprüfen, ob Sie existieren in einer anderen Tabelle (z.B. in einem anderen Blatt oder so):

Excel VBA Schleife über Pivot-Elemente

Gibt es eine Möglichkeit, dies zu tun, so würde es angezeigt, eine Meldung, dass die Farbe lila wurde nicht gefunden in der Liste?

Vielen Dank für Eure Hilfe!

InformationsquelleAutor Kathiieee | 2014-06-16

  1. 6

    Können Sie so etwas wie dieses:

    Sub ListMissingItems()

    Dim pt As PivotTable
    Dim pf As PivotField
    Dim pi As PivotItem
    Dim rngList As Range
    Dim strMsg As String

    ' change sheet and range
    Set rngList = Worksheets("List").Range("A1:A10")

    Set pt = ActiveSheet.PivotTables(1)
    ' change field as needed
    Set pf = pt.PivotFields("Colour")

    For Each pi In pf.PivotItems
        If IsError(Application.Match(pi.Caption, rngList, 0)) Then strMsg = strMsg & vbLf & pi.Caption
    Next pi

    If Len(strMsg) > 0 Then MsgBox "The following items were not found in the list:" & strMsg
End Sub
    Funktioniert perfekt! Ich danke Ihnen sehr!

    InformationsquelleAutor Rory

Schreibe einen Kommentar