Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1352to1356
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA Code verkürzen

VBA Code verkürzen
25.03.2014 14: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
Anzeige
AW: VBA Code verkürzen
25.03.2014 14: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 14:21:19
Dirk
Hallo Rudi,
vielen Dank! Gar nicht so schwer - muss man nur drauf kommen!! Danke!
Dirk

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige