- ich habe eine Excel-Datei mit mehreren Tabellenblätter.
- Jedes Tabellenblatt hat mehrere PivotTabellen.
- Nur einige der PivotTabellen jedes Tabellemblattes enthält
das PivotField "Auftragdat".
- Das PivotItem des PivotField "Auftragdat" hat
Daten in diesem Format: 20150101.
Was ich möchte:
Ich möchte alle PivotTabellen via Schleife durchlaufen und nur die PivotTabellen mit dem PivotField "Auftragdat" auswählen, dann sollen die PivotItems sortiert werden und
die letzten 10 PivotItem des PivotField "Auftragdat" aktiviert werden.
Ich möchte zuerst die letzten 10 PivotItems aktivieren und dann sollen die restlichen Items deaktiviert werden.
Habe mit dem Code angefangen:
For Each ws In ActiveWorkbook.Worksheets
For Each pt In ws.PivotTables
If pt.PivotFields("AUFTRAGDAT") "" Then
With pt.PivotFields("AUFTRAGDAT")
.AutoSort xlAscending, "AUFTRAGDAT"
End With
End If
Next 'pt
Next 'ws
Hoffe auf die Unterstüzung der Profis.
Danke!
Gruß
lee