moin,
ich habe ein VBA geschrieben, wo ich zur initialisierung alle PivotFields auf den Default-Wert "(All)" zurücksetzen möchte. Das Problem ist, wenn Benutzer nun die deutsche Excel-Version benutzen muss ich auf "(Alle)" zurücksetzen. Chinesische wieder anders etc.

Daher dachte ich mir, dass ich mir mit dem folgenden Script alle möglichen PivotItems ausgebe und das erste davon als Default-Wert annehme (Das erste Element ist in meiner Anzeige "(All)"). Das Komische ist, dass Excel diesen Wert nicht ausgibt, jedoch alle anderen.

Habt ihr eine Idee?

Code :

1 2 3 4 5 6 7 8

Dim pvfField   As PivotField Dim pviItem    As PivotItem   Set pvfField = ActiveWorkbook.Sheets("PIVOT").PivotTables("PivotTable1").PivotFields("Scope RE")     For Each pviItem In pvfField.PivotItems             MsgBox pviItem.Name Next

Frohes Neues!

Niemand eine Idee?