Filterproblem bei Pivot mit VBA
21.07.2004 10:58:55
Jutta
ich habe eine Datei, die sich mittels Pivotdatenzuordnen die Daten aus 3 Pivottabellen holt.Per Button kann man sich dann jeweils entweder die "Dir. MA", "Ind. MA" oder "Gesamt" = Alles, anzeigen lassen.
Mein Problem ist, dass es bei einer Pivottabelle z.Zt. z.B. noch keine "Ind. MA" gibt und dann hängt sich das Makro auf. Ich habe das momentan so gelöst:
Sheets("Ratio n.Mon.").Select
ActiveSheet.PivotTables("Pivot-Tabelle1").PivotFields("UKA").CurrentPage = _
"Indir. MA"
ActiveSheet.PivotTables("PivotTable3").PivotFields("UKA").CurrentPage = _
"(Leer)"
Sheets("Ratio n.Mon.oM").Select
ActiveSheet.PivotTables("PivotTable4").PivotFields("UKA").CurrentPage = _
"(Leer)"
D.h. ich lasse "(Leer)" wählen, da "Ind. MA" in der Dropdownliste nicht auswählbar ist, da nicht vorhanden.
Das klappt zwar wunderbar - nur muss ich wöchentlich nachschauen ob es mittler weile nicht schon "Ind. MA" gibt, denn dann müsste ich das Makro wieder anpassen. Und das ist nur eine von 4 Tabellen mit jeweils mehreren Abfragen dieser Art...
Hat irgend jemand eine Idee, wie man das besser machen könnte ?
Gruß
Jutta