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
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
Hallo,
(20.12.2017, 17:12)SkyNet schrieb: [ -> ]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.
(20.12.2017, 17:12)SkyNet schrieb: [ -> ]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.
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