Forums Neueste Beiträge
 

Pivotfeld - gruppieren per VBA geht nicht

08/12/2010 - 12:31 von Volker Neurath | Report spam
Hi zusammen,

folgender code führt zu einem fehler, der nachfolgend Excel sogar
komplett spinnen làsst, so dass ich es per Taskmanager abschiessen MUSS

[code].PivotFields("SAP document date").VisibleItems(1).LabelRange.Group
_
Start:=True, End:=True, _
periods:=Array(False, False, False, False, True, False,
True)[/code]


auch in leicht modifizierter Form:

[code].PivotFields("SAP document date").VisibleItems(1).Group _
Start:=True, End:=True, _
periods:=Array(False, False, False, False, True, False,
True)[/code]

wo liegt mein Fehler und wie geht es richtig?

Gruppierung über dieses Feld soll nach Jahren und Monaten erfolgen.
ausserdem soll das entsehende "Jahr" Feld auf 2010 voreingestellt werden

Volker

Wenn es vom Himmel Zitronen regnet -- lerne, Limonade zu machen.
 

Lesen sie die antworten

#1 Claus Busch
08/12/2010 - 12:57 | Warnen spam
Hallo Volker,

beim Gruppieren darf nur eine Zelle des Bereichs selektiert sein.
Probiers mal so:

Dim pt As PivotTables
Set pt = ActiveSheet.PivotTables

With pt(1)
With .PivotFields("SAP document date")
With .DataRange.Cells(1)
.Group Start:=True, End:=True, Periods:=Array(False, _
False, False, False, True, False, True)
End With
End With
End With


Mit freundlichen Grüssen
Claus Busch
Win XP Prof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2

Ähnliche fragen