MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 24.08.2017, 10:46   #1
Constantin123
Neuer Benutzer
Neuer Benutzer
Standard Excel2007 - Pivotfilter mehrere Tabellenblätter VBA

Hallo zusammen,

bin neu in dem Forum hier, habe aber schon viel als Gast mitgelesen und schon oft profitiert. Dafür schon mal danke.

Leider komme ich mit einem Problem gerade nicht weiter.
Ich habe eine Arbeitsmappe mit vielen Tabellenblättern auf fast allen Blätter sind Pivottabellen (außer auf der Datengrundlage).

Jede Pivot beinhaltet das gleiche Feld "Dokdat".
Ich versuche gerade mit einem Makro für alle Blätter gleichzeitig ein Filter zu setzen (Datengrundlage ist als Datum formatiert):

Code:

Dim pvTab As PivotTable
    Dim pvField As PivotField
    Dim wks As Worksheet
    
    For Each wks In ThisWorkbook.Sheets
        For Each pvTab In wks.PivotTables
        For Each pvField In pvTab.ColumnFields
        pvTab.PivotFields("Dokdat").PivotFilters.Add _
        Type:=xlDateBetween, Value1:="01.01.2017", Value2:="30.06.2017"
    Next
    Next
    Next
    
End Sub
Als Fehler gibt er mir einen "Anwendungs-oder Objektdefinierten Fehler" wieder.

Jemand eine Idee?

Vielen Dank,
Constantin
Constantin123 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 25.08.2017, 10:53   #2
Constantin123
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Konnte es lösen.
Muss erst alle Filter clearen bevor ich neue setzen darf.
Code:

pvTab.PivotFields("Dokdat").ClearAllFilters
Constantin123 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 13:14 Uhr.



Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.