Thema Datum  Von Nutzer Rating
Antwort
Rot Filter bei Pivot-Tabellen per VBA setzen
 11.08.2020 16:22:59 Rumduck
NotSolved
11.08.2020 18:21:20 Mase
*****
NotSolved
11.08.2020 20:57:30 Rumduck
NotSolved

Ansicht des Beitrags:
Von:
Rumduck		 Datum:
11.08.2020 16:22:59		 Views:
761		 Rating:
     
Antwort:
  Ja
Thema:
Filter bei Pivot-Tabellen per VBA setzen

Hallo zusammen,

 

mit folgendem Code ist es ja bspw. möglich per VBA Filter in einer Pivot-Tabelle zu setzen :

Sub a()
 
     Dim Wb As Workbook: Set Wb = ThisWorkbook
     Dim Ws As Worksheet: Set Ws = Wb.Worksheets("Tabelle2")
     Dim p As PivotTable: Set p = Ws.PivotTables("PivotTable3")
     Dim f As PivotField: Set f = p.PivotFields("Monat")
     Dim i As PivotItem
     
     With f
         For Each i In .PivotItems
            Select Case i.Name
                Case Is = "Januar", "Februar", "August"
                    i.Visible = True
                Case Else
                    i.Visible = False
            End Select
         Next
     End With
 End Sub

Wie aber ist zu handhaben, wenn ich keine fixen Vorgaben (wie oben "Januar", "Februar", "August") habe, sondern diese aus einem Bereich in eine Variabel lese (bspw . Bedingung = cells(1,1) & cells (1,2) & ff..)...dann einfach zu schreiben "Case Is = Bedingung" funktioniert leider nicht...hat jemand eine Idee ?

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Filter bei Pivot-Tabellen per VBA setzen
 11.08.2020 16:22:59 Rumduck
NotSolved
11.08.2020 18:21:20 Mase
*****
NotSolved
11.08.2020 20:57:30 Rumduck
NotSolved