Filtern Sie eine Pivot-Tabelle basierend auf Werten aus einem benutzerdefinierten Bereich - Excel, VBA, Excel-VBA, Pivot-Tabelle

Ich versuche, ein Makro zum Filtern einer Pivot-Tabelle basierend auf einem benutzerdefinierten Bereich einzurichten.

Bisher habe ich nur die Aufforderung, den Bereich zu erhalten. Leider habe ich keine Ahnung, wie ich die Werte aus dem Bereich nehmen und auf den Filter anwenden kann. Danke für Ihre Hilfe!

Sub foreachloop()

Dim wbmodel As Excel.Workbook
Set wbmodel = ActiveWorkbook

Dim rng As Range
Dim Filter As String




With wbmodel.Sheets("Pivot_model").PivotTables("Modelpivot")

.ClearAllFilters

Set rng = Application.InputBox("select Range", "Inputs", Type:=8)
Filter = Application.InputBox("select Filter", "Inputs", Type:=8)

MsgBox rng.Address
MsgBox Filter


For Each PivotItem In .PivotFields(Filter).PivotItems
Select Case PivotItem.Name
Case rng
PivotItem.Visible = True
Case Else
PivotItem.Visible = False
End Select
Next PivotItem


End With

End Sub

OK. Also habe ich einige (leichte) Updates gemacht. Ich machte meine erste "For Each" -Schleife. Jetzt weiß ich, dass ich eine ähnliche "für jede" Schleife machen muss, um den Filter anzuwenden. Ich habe ein paar Stunden mit dem Code gekämpft und bin mir nicht sicher, wohin ich als nächstes gehen soll.

Antworten:

Versuche dies Filtern Sie die Pivot-Tabelle in Excel mit VBA

Sie müssen durch Ihr Sortiment fahren und das Pivotelement sichtbar machen, alles andere ist verborgen.