Pivot Filter und bedingte Formatierung mittels VBA (VBA)

Martin Asal @, Montag, 20.06.2016, 14:25 (vor 1248 Tagen) @ rollendesr

Nun möchte ich aber, dass wenn in der Zelle C3 ein bestimmter Wert steht (GF), dass der Filter zurückgesetzt wird, also keiner eingestellt ist.
Leider weiß ich nicht wie ich den Code umändern muss.

Probier mal folgendes:

Sub PivAendern()
    With Sheets("Test").PivotTables(1)
        If Sheets("Steuerung").[C3].Value = "GF" Then
            .PivotFields(1).ClearAllFilters
        Else
            .PivotFields("KA").CurrentPage = Sheets("Steuerung").[C3].Value
            .PivotCache.Refresh
        End If
    End With
End Sub


Martin


gesamter Thread:

 RSS-Feed dieser Diskussion

powered by my little forum