Pivoitems von bis auswählen
15.09.2016 11:37:53
bis
ich habe eine Pivottabelle mit Jahren(PivotField("Jahr")).
Über eine Userform wähle ich einen Zeitraum von (Combobox1) bis (Combobox2) aus.
Ich möchte, dass alle Jahre von bis ausgewählt werden, basierend auf den Angaben der Comboboxen.
Ich kam bislang nur auf solchen Code, dieser funktioniert, aber halt ohne sich die Werte aus der Combobox zu nehmen... Habe hier nur festgelegt, dass die Jahre nr. 2,3 und 4 aus der itemlist angezeigt werden.
Sub pivot_item_jahr()
Dim oPI As PivotItem
Dim i As Integer
For Each oPI In ActiveSheet.PivotTables("PivotTable2").PivotFields("Jahr").PivotItems
For i = 2 To 4
ActiveSheet.PivotTables("PivotTable2").PivotFields("Jahr").PivotItems(i).Visible = True
Next i
oPI.Visible = False
Next oPI
End Sub
Kennt jemand eine gute Lösung dafür?