VBA Code verkürzen

Forumthread: VBA Code verkürzen

VBA Code verkürzen

25.03.2014 15:01:31

Dirk

Liebe Forumsmitglieder,
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

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: VBA Code verkürzen

25.03.2014 15:06:17

Rudi
AW: VBA Code verkürzen

25.03.2014 15:21:19

Dirk

AW: VBA Code verkürzen

25.03.2014 15:06:17

Rudi

Hallo,

Sub aa()
Dim i As Integer
For i = 1 To 3
With ActiveSheet.PivotTables("PivotTable" & i)
.PivotFields("Bezeichnung--RV").CurrentPage = RV
.PivotFields("LV-Geschäftsbereiche").CurrentPage = LVBereich
.PivotFields("RV-Geschäftsbereiche").CurrentPage = RVBereich
.PivotFields("Ortsverband").CurrentPage = OV
End With
Next i
End Sub

Gruß
Rudi

AW: VBA Code verkürzen

25.03.2014 15:21:19

Dirk

Hallo Rudi,
vielen Dank! Gar nicht so schwer - muss man nur drauf kommen!! Danke!
Dirk

Forumthread: VBA Code verkürzen

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread