Abfrage für Einstellung Pagefields in Pivot per VB
heidi
in meinem mit Eurer Unterstützung programmierten Makro werden aus einer großen Datei
kleinere Einzeldateien erzeugt und dort werden Pivot-Tabellen erstellt.
Im Code nehme ich dann die Filtereinstellungen z.B. für die Pagefields vor.
Im beigefügten Beispiel bedeutet dies beispielsweise:
Zeige mir nur die Kunden an, die in den letzten 12 Monaten nicht besucht wurden, d.h. der Filter für
IstBesuche_idl_12_Monate steht auf 0 usw.
Mein Problem ist jetzt jedoch: Wenn Dateien erzeugt werden, in denen z.B. insgesamt nur fünf Kunden enthalten sind, wie z. B. für Key-Account-Manager, dann gibt es keine Kunden mit 0 Besuchen und das Makro bricht an der Stelle ab mit Fehlermeldung "Laufzeitfehler" oder "kann PivFeld nicht ..."
Meine Frage nun: Wie muss ich den Code ändern, damit er folgendes tut:
Wenn es Kunden gibt mit dieser Bedingung, dann setze den Filter "IstBesuche..." auf "0",
wenn nicht, dann setze den Filter auf "Alle" (und führe das Makro weiter aus).
Anbei die Stelle des Codes:
ActiveSheet.PivotTables("Neukunden nicht besucht").PivotFields( _
"IstBesuche_idl12_Monaten").CurrentPage = "0"
ActiveSheet.PivotTables("Neukunden nicht besucht").PivotFields("Interessent"). _
CurrentPage = "0"
ActiveSheet.PivotTables("Neukunden nicht besucht").PivotFields( _
"Umsatz_idl_12_Monate_aktiv").CurrentPage = "All"
Besten Dank bereits im Voraus für Eure Hilfe,
Grüße,
Heidi