Pivot Seitenfeldgruppierung nach Monaten
26.04.2005 21:22:52
Korl
Ich habe mir eine Pivottabelle angelegt in der im Seitenfeld grundsätzlich ein Datum angezeigt wird.
In dem Tabellenblatt habe ich mir 3 Button angelegt, um zügig von einer "Tagesauswertung" zu einer "Monatsauswertung" und "Jahresauswertung wechseln zu können.
Bei meinen Tests habe ich feststellen müssen, dass, wenn ich Daten über Jahre eingegeben habe und die "Monatsauswertung" betrachten möchte, die Daten des jeweiligen Monats aus allen Jahren angezeigt bekomme.
Dies ist mein Code für die Anzeige der "Monatsauswertung"
Sub Monatsauswertung() ' Monat Makro ' Makro am 23.04.2005 von Korl aufgezeichnet Application.ScreenUpdating = False Range("B2").Select With ActiveSheet.PivotTables("PivotTable5").PivotFields("Datum") .Orientation = xlRowField .Position = 1 End With Range("B7").Select Selection.Group Start:=True, End:=True, Periods:=Array(False, False, False, _ False, True, False, False) Range("B5").Select With ActiveSheet.PivotTables("PivotTable5").PivotFields("Datum") .Orientation = xlPageField .Position = 1 End With Range("C1").Select ActiveCell.FormulaR1C1 = "^Monatsauswertung" Range("C2").Select Application.ScreenUpdating = True End Sub
Läßt sich eine Hilfszelle einrichten für ein bestimmtes Jahr um dann die Monatsauswertung danach vornehmen zu können?
Gruß Korl