Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
992to996
992to996
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

PivotTabelle: Kriterien variabel via VBA auswählen

PivotTabelle: Kriterien variabel via VBA auswählen
20.07.2008 17:30:03
maik
Hallo zusammen,
ich möchte gerne Kriterien in einer PivotTabelle variabel via VBA anzeigen lassen. Alle anderen Kriterien der Spalte sollten automatisch ausgeblendet werden.
Zum Anzeigen der Kriterien genügt ein einfaches Makro:
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Units")
For i = 3 To 7
Criteria = Sheets("Grouping").Cells(i, 1)
.PivotItems(Criteria).Visible = True
Next
End With
Wie aber kann ich alle anderen Kriterien automatisch ausblenden? Habt Ihr eine Idee?
Danke!!!
Maik

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: PivotTabelle: Kriterien variabel via VBA auswählen
20.07.2008 19:26:00
Luschi
Hallo Maik,
ich mach das immer so:

Dim i As Integer, pi As PivotItem, Criteria As String
Criteria = "*"
For i = 3 To 7
Criteria = Criteria & Worksheets("Grouping").Cells(i, 1).Value & "*"
Next i
For Each pi In ActiveSheet.PivotTables("PivotTable1").PivotFields("Units").PivotItems
If InStr(1, Criteria, pi.Value, vbTextCompare) > 0 Then
pi.Visible = True
Else
pi.Visible = False
End If
Next
Set pi = Nothing

Gruß von Luschi
aus klein-Paris

AW: PivotTabelle: Kriterien variabel via VBA auswählen
20.07.2008 19:35:00
maik
Hey super - funktioniert 1a!!!
DANKE + viele Grüße in die Boomtown LE ;)
Maik
Anzeige

312 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige