Pivot-Zeilenbeschriftung über Tabelle selektieren
14.05.2017 16:12:23
Tom
Ich habe versucht diesen Code von fcs hier aus dem Forum für mich anzupassen.
https://www.herber.de/forum/archiv/1256to1260/1258791_PivotZeilenbeschriftung_ueber_Tabelle_selektieren.html
Dieser Code bewirkt, dass Werte aus einer Tabelle aus dem Filter entfernt werden.
Ich möchte aber, dass es den andersrum funktioniert. Werte aus einer Tabelle als Filterauswahl aktivieren
Sub Pivot_categories_list()
Dim wksPivot As Worksheet
Dim pvTab As PivotTable, pvField As PivotField
Dim wksActive As Worksheet
Dim ZeileActive As Long, catActive As Variant
On Error GoTo Fehler
Set wksPivot = ActiveSheet
Set wksActive = Worksheets("Benchmark")
Set pvTab = wksPivot.PivotTables(1)
Set pvField = pvTab.PivotFields("KTG1")
Application.ScreenUpdating = False
pvField.ClearAllFilters
With wksActive
'Artikelnummern in Spalte A des Tabellenblatts "Nicht_in_Pivot" in Pivot ausblenden
For ZeileActive = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row
catActive = .Cells(ZeileActive, 1).Text
pvField.PivotItems(catActive).Visible = True
NextItem:
Next
End With
Application.ScreenUpdating = True
Fehler:
With Err
Select Case .Number
Case 0 'Alles ok
Case 1004
Resume NextItem
Case Else
MsgBox "Fehler-Nr.: " & .Number & vbLf & .Description
End Select
End With
Application.ScreenUpdating = True
End Sub
Jedoch wird durch clearAllFilters alles ausgewählt und wenn ich diese Zeile lösche, bleiben mir die Werte die vorher ausgewählt worden sind vorhanden.
Was wäre der Befehl, dass die Filterauswahl zuerst geleert wird? Und wie kann ich im Code die Spalte (und vielleicht auch die Zeile) angeben, von wo er die Werte herholt (hier wird in der Spalte A durchsucht)?
Für ein paar Tipps wäre ich euch dankbar :)
Gruss
Tom