Pivot per VBA filtern

20/06/2008 - 10:53 von Reiner | Report spam
Hallo zusammen,
ich habe folgendes Problem:
Ich habe mir per Abfrage aus einer Datendank eine Quelle für eine
Pivot erzeugt, nun möchte ich nach bestimmten Kriterien filtern.
Ich habe nun zwar die Daten gruppiert möchte aber nur diese sehen die
im Text einen bestimmen Textanteil haben. Z.B alle Zeilen wo im Text
ein "blau" vorkommt!
Da ich mehrere hundert Zeilen habe ist es per Hand sehr mühselig, gibt
es per VBA eine Möglichkeit?
Ich danke für eure Antworten im Voraus
Gruß
Reiner
 

Lesen sie die antworten

#1 Reiner
20/06/2008 - 12:43 | Warnen spam
Hallo ich bin es noch einmal,
habe folgendes probiert:

Sub Felder_aus()
Dim i As Integer
Dim Feld As PivotField
Set Feld = ActiveSheet.PivotTables("Test") _
.PivotFields("Gesamtliste")
For i = 1 To Feld.PivotItems.Count
If Feld.PivotItems(i).Value = "*blau*" Then
Feld.PivotItems(i).Visible = False
End If
Next i
End Sub

Es scheitert wohl an meine Joker"*blau*" oder ?
kann man überhaupt Joker so setzen?

Gruß
Reiner

Ähnliche fragen