VBA Code verkürzen
25.03.2014 14:01:31
Dirk
ich habe ein Makro, aus dem Berichtsfilter von mehreren Pivottabellen mit den gleichen Kriterien versehen werden. Es funktioniert gut. Jedoch ist der Code sehr lang. Hier ein Auszug (in allen drei Blöcken der gleiche Code - bis auf Pivot 1, 2 oder 3):
ActiveSheet.PivotTables("PivotTable1").PivotFields("Bezeichnung--RV").CurrentPage = RV
ActiveSheet.PivotTables("PivotTable1").PivotFields("LV-Geschäftsbereiche").CurrentPage = LVBereich
ActiveSheet.PivotTables("PivotTable1").PivotFields("RV-Geschäftsbereiche").CurrentPage = RVBereich
ActiveSheet.PivotTables("PivotTable1").PivotFields("Ortsverband").CurrentPage = OV
ActiveSheet.PivotTables("PivotTable2").PivotFields("Bezeichnung--RV").CurrentPage = RV
ActiveSheet.PivotTables("PivotTable2").PivotFields("LV-Geschäftsbereiche").CurrentPage = LVBereich
ActiveSheet.PivotTables("PivotTable2").PivotFields("RV-Geschäftsbereiche").CurrentPage = RVBereich
ActiveSheet.PivotTables("PivotTable2").PivotFields("Ortsverband").CurrentPage = OV
ActiveSheet.PivotTables("PivotTable3").PivotFields("Bezeichnung--RV").CurrentPage = RV
ActiveSheet.PivotTables("PivotTable3").PivotFields("LV-Geschäftsbereiche").CurrentPage = LVBereich
ActiveSheet.PivotTables("PivotTable3").PivotFields("RV-Geschäftsbereiche").CurrentPage = RVBereich
ActiveSheet.PivotTables("PivotTable3").PivotFields("Ortsverband").CurrentPage = OV
Das geht doch sicher auch in einem Block gleich für alle Pivottabellen, oder?
Hat jemand eine Idee?
Danke und Grüße aus Hannover
Dirk