<span style="font-family:Arial,Helvetica,sans-serif">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!</span>
Sub Makro1()
Dim wsDashboardValues As Worksheet
Dim pt As PivotTable
Dim slicerCache As SlicerCache
Dim timelineName As String
Set wsDashboardValues = ThisWorkbook.Sheets("Dashboard Values")
On Error Resume Next
Set pt = wsDashboardValues.PivotTables("tabTest/Day_Detailed")
On Error GoTo 0
If pt Is Nothing Then
MsgBox "Die PivotTable 'tabTest/Day_Detailed' wurde nicht gefunden.", vbExclamation
Exit Sub
End If
timelineName = "Taken At"
Set slicerCache = ThisWorkbook.SlicerCaches.Add2(pt, "Taken At", xlTimeline)
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