Verschiedene Zeiträume über eine Zeitachse steuern
06.02.2024 08:26:30
ChrisUN
in einem alten Beitrag aus 2018 habe ich einen Code gefunden, worüber es möglich ist, zwei Zeitachsen über eine zu steuern. Jedoch sind meine Fähigkeiten im Bereich VBA gleich null und ich habe in einer Excelliste drei Zeiträume, welche ich gerne über eine Zeitachse steuern möchte. Ist dies möglich?
Dieser Code wurde in dem Beitrag netterweise gepostet. Ich kann diesen leider nur nicht umschreiben, damit ich nur noch eine Zeitachse brauche um die Auswertungen zu steuern. Ist hier vielleicht einer, der mir helfen kann? Ich wäre sehr dankbar.
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Dim sc As SlicerCache, sc1 As SlicerCache, sci As SlicerItem
Set sc = ActiveWorkbook.SlicerCaches("Datenschnitt_Name") 'ausgeführt
Set sc1 = ActiveWorkbook.SlicerCaches("Datenschnitt_Name1") 'geplant
Application.EnableEvents = False
sc.ClearManualFilter
For Each sci In sc1.SlicerItems
'Debug.Print sci.Name
sc.SlicerItems(sci.Name).Selected = sci.Selected
Next sci
'Target.RefreshTable
Application.EnableEvents = True
Set sc = Nothing
Set sc1 = Nothing
End SubViele Grüße
Chris