Thema Datum  Von Nutzer Rating
Antwort
Rot Timeline einfügen klappt nicht
22.02.2024 09:16:47 DerAhnungslose
NotSolved
22.02.2024 09:37:22 Gast96924
NotSolved

Ansicht des Beitrags:
Von:
DerAhnungslose
Datum:
22.02.2024 09:16:47
Views:
363
Rating: Antwort:
  Ja
Thema:
Timeline einfügen klappt nicht
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

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Timeline einfügen klappt nicht
22.02.2024 09:16:47 DerAhnungslose
NotSolved
22.02.2024 09:37:22 Gast96924
NotSolved