Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1336to1340
1336to1340
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Multiselect aus Pivot auslesen

Forumthread: Multiselect aus Pivot auslesen

Multiselect aus Pivot auslesen
25.11.2013 12:25:22
david.a2k
Hallo,
wie kann ich die ausgewählten Filter bei einem Pivot Multiselect auslesen und in einer anderen Zelle oder mehreren Zellen anzeigen lassen?
Beispiel:
Die Basisdaten beinhalten Daten der Jahre 2000-2013.
Darauf wird eine Pivottabelle gelegt.
Das Feld Jahr ziehe ich in den Pivot-Berichtsfilter.
Ich wähle dann "Mehrere Elemente asuswählen" und wähle das Jahr 2011 und das Jahr 2013.
Es soll dann in einer anderen Zelle 2011, 2013 stehen bzw. in zwei Zellen untereinander.
Danke und Gruß
zur Info:
Ich habe aus einem früheren Beitrag bereits einen Code bekommen, der die Multiselectfelder ausliest und diese auf eine andere Pivot überträgt.
Archivnummer:
1334523
ich weiß aber nicht wo im Code ich eingreifen kann, dass der Code mir die gewählten Fitler in deine Zelle schreibt.

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Multiselect aus Pivot auslesen
25.11.2013 15:38:04
fcs
Hallo David,
hier entsprechende Makros für beide Varianten.
Gruß
Franz 
'Code unter dem Tabellenblatt mit dem Pivottabellenbericht
Option Explicit
'Variante 1: Alle Filter in eine Zelle schreiben
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Dim pvField As PivotField, pvItem As PivotItem
Dim Startzelle As Range
Set Startzelle = Me.Range("F1") 'Zelle in die Filterwerte eingetragen werden sollen
Set pvField = Target.PageFields("Jahr")
'Alte Einträge löschen
Startzelle.ClearContents
If pvField.EnableMultiplePageItems = True Then
If pvField.LabelRange.Offset(0, 1).Text = "(Mehrere Elemente)" Then
For Each pvItem In pvField.PivotItems
If pvItem.Visible = True Then
If Startzelle = "" Then
Startzelle.Value = "'" & pvItem.Value
Else
Startzelle.Value = "'" & Startzelle.Value & "; " & pvItem.Value
End If
End If
Next
End If
End If
End Sub
'Variante 2: Filter ab Startzelle in Zellen untereinander
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Dim pvField As PivotField, pvItem As PivotItem, intOffset As Integer
Dim Startzelle As Range
Set Startzelle = Me.Range("F1") 'Zelle ab der Filterwerte eingetragen werden sollen
Set pvField = Target.PageFields("Jahr")
'Alte Einträge löschen
Do While Startzelle.Offset(intOffset, 0)  ""
Startzelle.Offset(intOffset, 0).ClearContents
intOffset = intOffset + 1
Loop
intOffset = 0
If pvField.EnableMultiplePageItems = True Then
If pvField.LabelRange.Offset(0, 1).Text = "(Mehrere Elemente)" Then
For Each pvItem In pvField.PivotItems
If pvItem.Visible = True Then
Startzelle.Offset(intOffset, 0).Value = pvItem.Value
intOffset = intOffset + 1
End If
Next
End If
End If
End Sub

Anzeige
AW: Multiselect aus Pivot auslesen
25.11.2013 16:14:57
david.a2k
Hallo,
danke schön!
Aber doofe Frage: wie starte ich dieses PrivateSub.
Ich kenne nur Subs, die ich mit F8 bzw F5 starte.

AW: Multiselect aus Pivot auslesen
25.11.2013 16:50:37
david.a2k
Ein Kollege konnte helfen die Funktion einzubauen und zu starten.
vielen Dank!
Kannst du mir noch helfen die Funktion dahingehend anzupassen, dass ich das Auslesen bei Variante 1 für jeden Pivotfitler machen kann.
Wenn ich außer Jahr auch noch Monat und Tag im Pivotfilter habe.
Jahr wäre A1
Monat A2
Tag C2
Die Filter für Jahr sollen dann in B1 geschrieben werden, Monat in B2 und Tag in C2
Vielen Dank dafür !
Grüße

Anzeige
AW: Multiselect aus Pivot auslesen
26.11.2013 22:24:03
fcs
Hallo David,
wenn du mehrere Pivotfilter im Berichtsbereich der Pivottabelle bearbeiten willst, dann ist es zweckmäüig, die Funktionalität in einer Subroutine abzuarbeiten, die mit Pivotfeld und Startzelle als Parameter aufgerufen wird.
Gruß
Franz 
'Code unter dem Tabellenblatt mit dem Pivottabellenbericht einfügen
Option Explicit
'Variante 1: Alle Filter in eine Zelle schreiben
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Call prcPageFieldFilteranzeigen(Target.PageFields("Jahr"), Me.Range("B1"))
Call prcPageFieldFilteranzeigen(Target.PageFields("Monat"), Me.Range("B2"))
Call prcPageFieldFilteranzeigen(Target.PageFields("Tag"), Me.Range("C2"))
End Sub
Sub prcPageFieldFilteranzeigen(pvField As PivotField, Startzelle As Range)
Dim pvItem As PivotItem
'Alte Einträge löschen
Startzelle.ClearContents
If pvField.EnableMultiplePageItems = True Then
If pvField.LabelRange.Offset(0, 1).Text = "(Mehrere Elemente)" Then
For Each pvItem In pvField.PivotItems
If pvItem.Visible = True Then
If Startzelle = "" Then
Startzelle.Value = "'" & pvItem.Value
Else
Startzelle.Value = "'" & Startzelle.Value & "; " & pvItem.Value
End If
End If
Next
End If
End If
End Sub

Anzeige
AW: Multiselect aus Pivot auslesen
27.11.2013 16:55:52
david.a2k
Vielen Dank auch dafür, hat mir jeweils sehr sehr geholfen!
Grüße
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige