Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

löschen von werten aus einer dropdown box in einer pivot

0 views
Skip to first unread message

Henning Voitz

unread,
Jun 9, 2004, 8:47:30 AM6/9/04
to
hallo ng,

weiß jemand, wie ich werte aus excel 2000, die es nicht mehr in
der pivot herkunft gibt löschen kann?!

gruß und danke für den support
henning


ps. ich würde auch vba ins workbook_open setzen.


Thomas Ramel

unread,
Jun 9, 2004, 8:59:17 AM6/9/04
to
Grüezi Henning

Henning Voitz schrieb am 09.06.2004

> weiß jemand, wie ich werte aus excel 2000, die es nicht mehr in
> der pivot herkunft gibt löschen kann?!

Die folgende Prozedur löscht alle nicht mehr vorhandenen PivotItems in
allen Pviot-Tabelle einer Mappe:

Sub DeleteOldPivotItemsWB()
'löschen von nicht mehr verwendeten Einträgen in Pivot-Tabellen
'basierend auf MSKB (Q202232)
Dim ws As Worksheet
Dim pt As PivotTable
Dim pf As PivotField
Dim pi As PivotItem

On Error Resume Next
For Each ws In ActiveWorkbook.Worksheets
For Each pt In ws.PivotTables
pt.RefreshTable
For Each pf In pt.PivotFields
For Each pi In pf.PivotItems
If pi.RecordCount = 0 And _
Not pi.IsCalculated Then
pi.Delete
End If
Next
Next
Next
Next
End Sub

--
Mit freundlichen Grüssen

Thomas Ramel
- MVP für Microsoft-Excel -

[Win XP Pro SP-1 / xl2000 SP-3]

Henning Voitz

unread,
Jun 9, 2004, 9:03:46 AM6/9/04
to
moin moin!

dir gebührt 1000 dank es hat funktioniert!

danke und sonnigen gruß aus meerbusch
henning

"Thomas Ramel" <t.r...@MVPs.org> schrieb im Newsbeitrag
news:hno78fta72np.10...@40tude.net...

Thomas Ramel

unread,
Jun 9, 2004, 10:00:43 AM6/9/04
to
Grüezi Henning

Henning Voitz schrieb am 09.06.2004

> dir gebührt 1000 dank es hat funktioniert!

Die Ehre gebührt Microsoft - in deren KnowledgeBase bin ich auf die
Prozedur gestossen und habe sie noch geringfügig modifiziert.

> danke und sonnigen gruß aus meerbusch

Aber gerne doch - Danke auch für dein Feedback.

0 new messages