Pivot > anzeige, wonach "ausgeblendet"

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Werner,
geht es dir um die gesetzten Filtereinstellungen der einzelnen Pivotfelder?
Das kann sehr kompliziert bis unmöglich werden, wenn man alle Varianten erfassen will.
oder
geht es um die im Bericht zu den einzelnen Pivotfeldern angezeigten/sichtbaren Items/Werte?
Diese könnte man zusammenstellen indem man den Datenbereich der Felder durchsucht und dabei die doppelten Einträge überspringt.
Es ist aber fast immer schwierig die ausgeblendeten Werte zu erfassen, insbesondere dann, wenn für mehrere Pivotfelder Filter gesetzt sind. Letztendlich müsste man ja eine Auswertung rückwärts machen und die im Pivotbericht sichtbaren Elemente mit der Quelle vergleichen. Dazu ist mir meine Freizeit aber zu schade und im Moment sehe ich da noch nicht einmal Dunkelgrau am Ende des Tunnels.
Gruß
Franz

Hallo Franz,
ich hab es mir fast gedacht, dass das kompliziert wird.
Warum ich darauf komme ?
Ich lasse mir per Funktion in einer Liste/Tabelle die entsprechenden Autofilter-Kriterien
(enthält, ist größer als , usw) anzeigen. Funktioniert einwandfrei :)
Ist es möglich, diese VBA's entsprechend "umzuschreiben", damit sie auch in einer Pivot funzen ?
Besten Gruss
Werner
hier die beiden Codes
## ALLE Autofilter-Kriterien in einer Zelle ##
Function FilterKriterien(Rng As Range) As String
Dim Filter As String
Application.Volatile
Filter = ""
On Error GoTo Finish
With Rng.Parent.Autofilter
If Intersect(Rng, .Range) Is Nothing Then GoTo Finish
With .Filters(Rng.Column - .Range.Column + 1)
If Not .On Then GoTo Finish
Filter = .Criteria1
Select Case .Operator
Case xlAnd
Filter = Filter & " UND " & .Criteria2
Case xlOr
Filter = Filter & " ODER " & .Criteria2
End Select
End With
End With
Finish:
FilterKriterien = Filter
End Function
### alles in einer Zelle ###

Public Function AF_KRIT()
Dim intCol As Integer
Dim intFilter As Integer
Dim rngFilter As Range
Dim strFilter As String
Dim WS As Worksheet
Application.Volatile
Set WS = ActiveSheet
If WS.FilterMode And WS.AutoFilterMode Then
Set rngFilter = WS.AutoFilter.Range
For intCol = 1 To rngFilter.Columns.Count
With WS.AutoFilter.Filters(intCol)
If .On Then
If strFilter  "" Then strFilter = strFilter & vbLf
strFilter = strFilter & rngFilter.Cells(1, intCol) & ": " & .Criteria1
Select Case .Operator
Case xlAnd
strFilter = strFilter & " UND " & .Criteria2
Case xlOr
strFilter = strFilter & " ODER " & .Criteria2
End Select
End If
End With
Next intCol
End If
AF_KRIT = strFilter
End Function

Beliebteste Forumthreads (12 Monate)

Pivot > anzeige, wonach "ausgeblendet"

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Pivot > anzeige, wonach "ausgeblendet"

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread