Office: (Office 2007) Pivot

Hallo zusammen,

Ich möchte gerne dass in Spalte C alle Zellen auf einem Klick zu- oder aufgeklappt werden. (Also dass die kleinen grauen Rechtecken von "+" zu "-" gehen oder umgekehrt)






Uploaded with ImageShack.us



Ich habe die ersten 10 händisch zugeklappt und dabei einen Macro aufgezeichnet :

Sub zuklappen()
'
' zuklappen Makro
'

'
ActiveWindow.SmallScroll Down:=-6
Range("C9").Select
ActiveSheet.PivotTables("PivotTable2").PivotFields("Teil/KoPo.").PivotItems( _
"2306238").ShowDetail = False
Range("C10").Select
ActiveSheet.PivotTables("PivotTable2").PivotFields("Teil/KoPo.").PivotItems( _
"7712280").ShowDetail = False
Range("C11").Select
ActiveSheet.PivotTables("PivotTable2").PivotFields("Teil/KoPo.").PivotItems( _
"7712400").ShowDetail = False
Range("C12").Select
ActiveSheet.PivotTables("PivotTable2").PivotFields("Teil/KoPo.").PivotItems( _
"7714350").ShowDetail = False
Range("C13").Select
ActiveSheet.PivotTables("PivotTable2").PivotFields("Teil/KoPo.").PivotItems( _
"7714400").ShowDetail = False
Range("C14").Select
ActiveSheet.PivotTables("PivotTable2").PivotFields("Teil/KoPo.").PivotItems( _
"7714420").ShowDetail = False
Range("C15").Select
ActiveSheet.PivotTables("PivotTable2").PivotFields("Teil/KoPo.").PivotItems( _
"7714520").ShowDetail = False
ActiveWindow.SmallScroll Down:=-3
Range("C16").Select
ActiveSheet.PivotTables("PivotTable2").PivotFields("Teil/KoPo.").PivotItems( _
"7714560").ShowDetail = False
Range("C17").Select
ActiveSheet.PivotTables("PivotTable2").PivotFields("Teil/KoPo.").PivotItems( _
"9787367").ShowDetail = False
ActiveWindow.SmallScroll Down:=-3
Range("C18").Select
ActiveSheet.PivotTables("PivotTable2").PivotFields("Teil/KoPo.").PivotItems( _
"7709240").ShowDetail = False
End Sub





Weisst jemand ob dass mit irgendeine Excelfunktion geht ohne Makro?

Weisst jemand wie das Makro umzuschreiben wäre damit es automatisch alle Zellen von C zuklappt ?

Danke im Voraus!
MfG,
Peter

:)

 

hi

klicke in Spalte C und alle erweitern, bzw, alle red.
siehe Abb.

 

Hallo Chris-Kaiser,

genau das habe ich gesucht! Toll!

Vielen Dank und schönes WE!

MfG, Peter