Filter von Pivottabelle auf anderes Blatt verlagern?

15/03/2011 - 15:43 von Markus Fuenfrocken | Report spam
Hallo,

ich habe auf einem Blatt eine Statistik, die sich aus den Zellen einer
Pivottabelle auf einem weiteren Blatt "bedient". Auf dem Blatt mit der
Pivottabelle habe ich Berichtsfilter definiert, die z.B. eine
Lànderauswahl darstellt, wobei sich die Statistik auf Blatt 1 dann
automatisch aktualisiert.

Für den Anwender ist es aber mühsam, immer für einen Lànderwechsel auf
das Pivotblatt zu gehen und dort das Filterdropdown zu bedienen, um dann
wieder auf die aktualisierte Statistk auf Blatt 1 zu wechseln -
kann man diesen Filter auf das Blatt mit der Statistik "verlagern"?

Danke für Tipps,
Markus
 

Lesen sie die antworten

#1 Robert Feldmann
20/03/2011 - 12:00 | Warnen spam
Hallo Klaus,

vorsichtshalber hier auch die Antwort.

Eine Lösung auf Formelbasis habe ich auch nicht gefunden.

Mit VBA kann es so gehen.

Dazu eine Kombobox auf dem Blatt Platzieren. Der Inhalt der Kombobox
wird mit den Inhalten des Pivot Filters gefüllt (bei Klick) und nach
Change (Auswahl Änderung) an den Filter zurück übergeben.


Auch hier gilt, Zeilenumbrüche korrigieren, oder kurze Mitteilung, dann
sende ich das Funktionsmuster zu.

Private Sub ComboBox1_Change()
Dim Pivotfilter
Set VAR_Pivot =
ThisWorkbook.Sheets("Pivot").PivotTables("PivotTable1").PivotFields("Wochentag").PivotItems
'da mindestens ein Filter gesetzt sein muss, mit dem setzen des zu
aktivierenden Filters starten
For Pivotfilter = 1 To VAR_Pivot.Count
If Pivotfilter = ComboBox1.ListIndex Then
ThisWorkbook.Sheets("Pivot").PivotTables("PivotTable1").PivotFields("Wochentag").PivotItems(Pivotfilter).Visible
= True
Next
'dann alle anderen ausschalten
For Pivotfilter = 1 To VAR_Pivot.Count
If Pivotfilter <> ComboBox1.ListIndex Then
ThisWorkbook.Sheets("Pivot").PivotTables("PivotTable1").PivotFields("Wochentag").PivotItems(Pivotfilter).Visible
= False
Next
'oder alle ein, falls "alle" (letzter Eintrag) gewàhlt wurde
For Pivotfilter = 1 To VAR_Pivot.Count
If VAR_Pivot.Count = ComboBox1.ListIndex Then
ThisWorkbook.Sheets("Pivot").PivotTables("PivotTable1").PivotFields("Wochentag").PivotItems(Pivotfilter).Visible
= True
Next
Set VAR_Pivot = Nothing
End Sub


Private Sub ComboBox1_GotFocus()
Dim VAR_Pivot
Dim Zàhler
Dim Pivotfilter
Set VAR_Pivot =
ThisWorkbook.Sheets("Pivot").PivotTables("PivotTable1").PivotFields("Wochentag").PivotItems
Zàhler = 1
ComboBox1.Clear
ComboBox1.AddItem " keine Auswahl ", 0
'liest alle Filterelemente in die Combobox ein
For Each Pivotfilter In VAR_Pivot
ComboBox1.AddItem Pivotfilter, Zàhler
Zàhler = Zàhler + 1
Next
'setzt die Listeintràge auf max 10 fest
If VAR_Pivot.Count > 10 Then
ComboBox1.ListRows = 10
Else
ComboBox1.ListRows = VAR_Pivot.Count + 1
End If
'Aktivierung von "keine Auswahl" damit Change eintritt wenn ein
Filter gewàhlt wird.
ComboBox1.ListIndex = 0
Set VAR_Pivot = Nothing
End Sub

Am 15.03.2011 15:43, schrieb Markus Fuenfrocken:
Hallo,

ich habe auf einem Blatt eine Statistik, die sich aus den Zellen einer
Pivottabelle auf einem weiteren Blatt "bedient". Auf dem Blatt mit der
Pivottabelle habe ich Berichtsfilter definiert, die z.B. eine
Lànderauswahl darstellt, wobei sich die Statistik auf Blatt 1 dann
automatisch aktualisiert.

Für den Anwender ist es aber mühsam, immer für einen Lànderwechsel auf
das Pivotblatt zu gehen und dort das Filterdropdown zu bedienen, um dann
wieder auf die aktualisierte Statistk auf Blatt 1 zu wechseln -
kann man diesen Filter auf das Blatt mit der Statistik "verlagern"?

Danke für Tipps,
Markus



Nicht was Du sagst ist entscheidend, sondern was verstanden wird.

Ähnliche fragen