Hallo liebe Herber-Gemeinde,
ich bin auf folgendes Problem gestossen und komme irgendwie nicht weiter.
mit nachfolgenden Code möchte ich in meiner Pivottabelle immer das aktuelle Jahr einblenden - nur leider kommt jedesmal ein Laufzeitfehler (1004).
Was ist falsch?
+++++++++++++++++++++++++++++++++
Dim jahr As Integer
jahr = year(Now())
Sheets("PivotAuswertung").Select
With ActiveSheet.PivotTables("PivotTable2").PivotFields("Jahre")
.PivotItems(jahr).Visible = True
End With
End Sub
++++++++++++++++++++++++++++++++
Danke im voraus.
Gruß,
Andreas