|
Hallo zusammen,
ich baue gerade an einem Select Case Makro, dass eine beliebige Pivot-Tabelle filtert. Ist es möglich, den unten stehenden Code so zu ändern, dass nicht 3x "Case Is" gesucht wird, sondern ein Bereich überprüft wird? Es werden vermutlich mehr als diese 3 Case Ifs werden, daher wäre das super hilfreich für mich.
Danke und VG
Johanna
Sub SetPivotFilter()
Dim Wb As Workbook: Set Wb = ThisWorkbook
Dim Ws As Worksheet: Set Ws = Wb.Worksheets("My Numbers")
Dim p As PivotTable: Set p = Ws.PivotTables("PivotTable1")
Dim f As PivotField: Set f = p.PivotFields("Cost")
Dim i As PivotItem
With f
For Each i In .PivotItems
Select Case i.Name
Case Is = CStr(Worksheets("Verteiler").Cells(8, 4).Value)
i.Visible = True
Case Is = CStr(Worksheets("Verteiler").Cells(9, 4).Value)
i.Visible = True
Case Is = CStr(Worksheets("Verteiler").Cells(10, 4).Value)
i.Visible = True
Case Else
i.Visible = False
End Select
Next
End With
End Sub
|