Pivot Daten Gruppierung mit VBA
22.08.2005 16:14:24
Christian
Ich habe das Problem, dass ich es nicht schaffe, mittels VBA alle meine Pivottabellen gleich zu konfigurieren. Ich will das Datum gruppieren, aber es gelinht mir nicht. Der angegebene Code funzt bis auf die eine Zeile mit der Auswahl des Datums. Wie kann ich den Code ändern, damit er passt?
Danke für jede Hilfe
Christian
Sub Gruppierung()
For i = 1 To Worksheets("Auswertung").PivotTables.Count
'Bei der nächsten Zeile gibts das Problem:
ActiveSheet.PivotTables(i).PivotFields("Datum").Select
Selection.Group Start:=Range("B5"), End:=Range("B6"), By:=1, Periods:=Array(False, _
False, False, True, False, False, False)
With ActiveSheet.PivotTables(i).PivotFields("Datum")
.PivotItems("<" & Range("B5")).Visible = False
.PivotItems(">" & Range("B6")).Visible = False
End With
Next
End Sub