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?
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:
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