Datenschnitt per VBA Steuern

[SkyNet]

Moin Zusammen,

ich hänge derzeit an der Thematik Datenschnitte via VBA zu Steuern. Finde einfach nicht heraus was der Fehler genau ist. Eventuell hat hier einer ne Idee ?

FEHLER: 450 : Falsche Anzahl an Argumenten oder ungültige Zuweisung zu einer Eigenschaft

Code:

Sub Test()
   Dim DS_Items As SlicerItems
       DS_Itmes = ActiveWorkbook.SlicerCaches("Datenschnitt_Datum").SlicerItems  <---- Hier ensteht der Fehler...warum ??
 
   Dim DS_Datum As SlicerCache
       DS_Datum = ActiveWorkbook.SlicerCaches("Datenschnitt_Datum")
       
       
   With DS_Datum

       For Each DS_Items In DS_Datum
           
       Next

   End With

       
             
End Sub

[steve1da]

Hola,

http://www.vba-forum.de/forum/View.aspx?...t_Abfragen

dort gibst du kein Feedback?

Gruß,
steve1da

[SkyNet]

Häää ? dat is doch eine völlig andere Sache !!! Zumal seit wann beantwortet man eine Frage mit einer Gegenfrage....? 

Zumal "die Seite" als würde man da nicht von selbst drauf kommen dort nach zuschauen  :21:

Suche halt ein Forum wo man auch Fachliche Antworten bekommt und nicht erst mit Rhetorik zugemüllt wird.

Nun ja sowat gibbet wohl nicht mehr.... schade....  :s

[Jonas0806]

Hallo,

Suche halt ein Forum wo man auch Fachliche Antworten bekommt und nicht erst mit Rhetorik zugemüllt wird.

Es ist schon immer wieder beeindruckend, welche Ignoranz und Unverschämtheit von manchen Menschen, welche kostenlose Hilfe von Menschen fordern, die diese freiwillig in ihrer Freizeit anbieten, an den Tag gelegt wird.

Nun ja sowat gibbet wohl nicht mehr.... schade....  :s

Ja, schade. Die Art von Foren in denen sich Helfer "anpampen" lassen und Dir dann im idealfall noch dankend ein einekostenlos, fertige Komplettlösung überreichen sind schon relativ rar,- Ärgerlich  :s

In diesem Sinne, viel Erfolg für die Zukunft.

[chris-ka]

Hi,

 set DS_Itmes = ActiveWorkbook.SlicerCaches("Datenschnitt_Datum").SlicerItems

dann sollte es funktionieren.

nur was willst du damit?
Suchst du sowas in der Art?

Code:

Dim scd1 As SlicerCache
Dim sid1 As SlicerItem
Dim wb As Workbook
Set wb = ActiveWorkbook
Set scd1 = wb.SlicerCaches("Datenschnitt_Datum")

For Each sid1 In scd1.SlicerItems
    Debug.Print sid1.Value
Next