Office: Pivot Filter setzten (einer von vielen)

Hi zusammen,
und wieder steh ich vor nem Problem und hoffe auf eure Hilfe
ALSO
ich erstelle via vba eine Pivot tabelle. Das funktioniert soweit gut
nun möchte ich einen Filter setzen. Problem hierbei ist dass ich in der liste etwa 400 Einträge habe, aber nur die mit dem Eintrag "Empty" im Pivot haben will. Also Einer von Vielen
Weiß jemand von euch wie man das elegant lösen kann ? Wenn ich das mit dem recorder aufzeichne bekomme ich nen Monsterscript in welchem jeder eintrag mit true oder false gesetzt wird
Schonmal ein Dankeschön für eure Mühe

DeBabba

:)

 

Moin Moin

Naja 2 Ansätze

1. über ne Schleife ( die funktioniert aber nur bei numerischen werten)
Code:

2. über current page

Code:

Musst halt nur anpassen ;-)

Grüße

 

Moin Jack D
danke erst mal für Deine Ansätze,
Ich hab mal mein Script angehängt, denn ich bekomme (bei beiden Ansätzen) den Fehler 1004, dass die CurrentPage eigenschaft des Pivotfiled objektes nicht festgelegt werden kann.
Und ich kann den Fehler nicht finden. *frown.gif* *mad.gif* *bawling
kannst Du mal drüber schauen

Code:

Gruß
DeBabba Klaus

 

Guten Morgen Klaus,

PivotItems ist ein Element eines PivotFields Objekts, nicht eines PivotTable Objekt

Viele Grüße,
Michael

 

hi Cruel device
danke estmal für Deinen Hinweis.
Vergiss das mal mit der Schleife, da ich Alphanummerische werte habe, geht das lt JackD sowieso nicht.
JAck schreibt
Code:

Ich mache daraus

Code:

und bekomme bei Currentpage den Fehler

Was um alles in der Welt mach ich falsch

Gruß
klaus

 

Hallo Klaus, Hallo Michael

zuerst (weil kürzer) zu Michael: richtig.

Zu Klaus:

Ich glaub die clearFilter funktion muss bei der currentpage vorher durchlaufen.
Wenn du mir ne Mustermappe zur Verfügung stellst kann ich gern mal schauen.

Für die Schleife müsstest du Michael seinen Rat beherzigen. Könnte das Problem lösen =)

Grüße

Edith sagt:

Ich hab gestern abend nicht ganz die Wahrheit gesagt. Natürlich funktionier das auch bei alphanumerischen werten.
Und zwar. Wenn es numerische Werte sind sprichst du den "Text" des Wertes an (also "Eins")
Bei alphanumerischen Werten spricht man dann einfach den index an. Muss man nur bei der Prüfung aufpassen.

 

Moin Klaus,

welche Sprachversion hat denn dein Excel?
deutsche: .CurrentPage = "(Leer)"
englisch: .CurrentPage = "(blank)"

Wie auch immer, die Klammern gehören dazu

EDIT:
aus einem englisch-sprachigen Forum:
Code:

(Note, if there are no blank Pivot items, this code will probably fail... )

Viele Grüße,
Michael

 

Hallo zusammen,
*10points danke danke danke *10points

@ Michael *knuddel
das funzt super, danke

@ jackD *knuddel
Sorry, das mit der Mappe schicken geht leider nicht.
aber egal funktioniert ja jetzt*mrcool

Also ... danke nochmal an euch alle

Gruß
DeBabba Klaus

 

Spitze..

und danke für die Rückmeldung

Grüße

 

Aber gerne doch...
das gehört sich doch so , oder ??

Gruß

 

Das seh ich genau so...

manch einer sieht es allerdings nicht so, bzw. hält es nicht für nötig...

Grüße