Hallo zusammen, ich möchte eine Timline via VBA in mein Tabellenblatt einfügen. Jedoch kommt immer der Fehler "Laufzeitfehler 5". Ich bin für jede Hilfe dankbar!



Sub Makro1()
    Dim wsDashboardValues As Worksheet
    Dim pt As PivotTable
    Dim slicerCache As SlicerCache
    Dim timelineName As String
    
    ' Arbeitsblatt "Dashboard Values" festlegen
    Set wsDashboardValues = ThisWorkbook.Sheets("Dashboard Values")
    
    ' PivotTable "tabTest/Day_Detailed" auf dem Blatt "Dashboard Values" festlegen
    On Error Resume Next
    Set pt = wsDashboardValues.PivotTables("tabTest/Day_Detailed")
    On Error GoTo 0
    
    ' Überprüfen, ob die PivotTable gefunden wurde
    If pt Is Nothing Then
        MsgBox "Die PivotTable 'tabTest/Day_Detailed' wurde nicht gefunden.", vbExclamation
        Exit Sub
    End If
    
    ' Timeline Slicer hinzufügen
    timelineName = "Taken At" ' Name der Timeline-Slicer
    Set slicerCache = ThisWorkbook.SlicerCaches.Add2(pt, "Taken At", xlTimeline) ' Hier tritt der Fehler auf
    With slicerCache.Slicers.Add(ThisWorkbook.Sheets("Dashboard"), , "Taken At", "Taken At", 414.75, 645.75, 262.5, 108)
        .Style = "Datenschnittformat 1"
        .DisplayHeader = True
        .CrossFilterType = xlSlicerCrossFilterHideButtonsWithNoData
        .SortItems = xlSlicerSortAscending
        .SortUsingCustomLists = True
        .ShowAllItems = True
    End With
End Sub