Pivot Filter per VBA Makro_2
24.04.2014 15:16:00
Andreas
da ich leider in meinem alten Beitrag nicht antworten kann (warum auch immer)
habe ich hier einen neuen Beitrag erstellt.
Von Franz habe ich folgenden Code bekommen der mir einen Pivotfilter auf die aktuelle Kalenderwoche einstellt.
Dieser code lauft automatisch.
Ich habe nun versucht den cod so zu verändern das ich Ihn manuel per Button anwenden kann.
Leider bin ich daran gescheitert.
Kann mit vielleicht jemand dabei helfen den Code so zu öändern, das er manuel aufrufbar ist?
Vielen Dank im Voraus.
Andreas
PS hier der CODE:
'Code unter der Tabelle mit dem Pivot-Tabellenbericht
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
'Automatische Anpassung des Filters für Feld "KW" bei jeder Aktualisierung _
des Pivottabellenberichtes
Dim pvTab As PivotTable, pvField As PivotField, pvItem As PivotItem
On Error GoTo Beenden
Application.EnableEvents = False
Application.ScreenUpdating = False
Set pvTab = Target
Set pvField = pvTab.PageFields("KW")
pvField.EnableMultiplePageItems = True
pvField.ClearAllFilters
For Each pvItem In pvField.PivotItems
If Val(pvItem.Name)