Variable für Pivotfeld

Forumthread: Variable für Pivotfeld
1 Beitrag zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Variable für Pivotfeld

25.02.2014 12:08:48

Nik

Hallo zusammen,
ich möchte gerne per VBA in einer Pivot Eingaben im Datumsfeld vornehmen. Dazu stehen in den Zellen A1 bis A3 jeweils die Monate, die in der Pivot ausgewählt werden sollen. Aber irgendwie schnalle ich das mit den Variablen nicht :-(
With ActiveSheet.PivotTables("PivotTable71").PivotFields("M&Y")
.PivotItems("Jun-12").Visible = False
.PivotItems("Jul-12").Visible = False
.PivotItems("Jun-13").Visible = True
.PivotItems("Jul-13").Visible = True
End With
Kann mir jemand kurz auf die Sprünge helfen wie ich das mit den Variablen mache? Wäre echt sehr dankbar :-)
Vielen lieben Dank und Gruss
Nik

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Variable für Pivotfeld

25.02.2014 15:27:12

Nik

AW: Variable für Pivotfeld

25.02.2014 15:27:12

Nik

Hi zusammen...
habe es rausgefunden wie es funktioniert :-)
Dim a As String
Dim b As String
Dim c As String
a = Worksheets("Controll").Range("A1").Value
b = Worksheets("Controll").Range("A2").Value
c = Worksheets("Controll").Range("A3").Value
'-----------------------------------------------------------------------------------------------------
With Worksheets("Ubersicht nach Co-Brands").PivotTables("PivotTable4").PivotFields("Auswertungsmonat")
.PivotItems("(blank)").Visible = True
.PivotItems("(blank)").Visible = False
.PivotItems(a).Visible = True
.PivotItems(b).Visible = True
.PivotItems(c).Visible = True
End With
'-----------------------------------------------------------------------------------------------------
Gruss
Nik