ich suche nach einem Weg, Slicer zu einer Tabelle hinzuzufügen (keine Pivot-Tabelle) und diese anschließend mit den Standardoptionen einzufärben.
Bisher habe ich folgenden Code, hier bekomme ich jedoch gleich bei der ersten Zeile einen "Run-time error 438 (Object doesn't support this property or method)":
Sub AddSlicers()
With Worksheets(3)
.SlicerCaches.Add(ActiveSheet.ListObjects("Table1"), "col1", "col1").Slicers
.SlicerCaches.Add(ActiveSheet.ListObjects("Table1"), "col2", "col2").Slicers
.SlicerCaches.Add(ActiveSheet.ListObjects("Table1"), "col3", "col3").Slicers
.SlicerCaches.Add(ActiveSheet.ListObjects("Table1"), "col4", "col4").Slicers
.SlicerCaches.Add(ActiveSheet.ListObjects("Table1"), "col5", "col5").Slicers
.SlicerCaches("Slicer_col1").Slicers("col1").Style = "SlicerStyleLight3"
.SlicerCaches("Slicer_col2").Slicers("col2").Style = "SlicerStyleLight4"
.SlicerCaches("Slicer_col3").Slicers("col3").Style = "SlicerStyleLight2"
.SlicerCaches("Slicer_col4").Slicers("col4").Style = "SlicerStyleLight6"
.SlicerCaches("Slicer_col5").Slicers("col5").Style = "SlicerStyleLight5"
End With
End Sub
Kann mir jemand sagen, wie die richtigen VBA-Befehle hierfür lauten ? (Ich verwende ein englisches Excel.)
Vielen Dank im Voraus,
Gerd