|
Hallo zusammen,
dank der hilfreichen Informationen habe ich meinen Versuch Dashboard mit VBA recht weit vorangetrieben. Die erstellung von fünf PivotTable, danach fünf Charts, sowie füf Slicer klappt bei einer Auswertung. Wenn ich eine weitere Auswertung auf Basis einer zweiten Tabelle mache, kommt es zu meinem Problem.
In den Datenschnitteinstellungen wirde ein Wert 'Datenschnitt_Monat_Jahr' für den zu verwendenden Namen in Formeln eingetragen. Dieser wird automatisch beim Erstellen des Slicers erstellt. Wie kann ich nach der Erstellung des Slicer diesen Namen ändern, damit eine zweite Auswertung funktioniert?
Mein Code zur Zeit ist:
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' DATENSCHNITT
' Grundeinstellungen
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' Variablen
Dim scc As SlicerCaches
Dim scs As Slicers
Dim sc As Slicer
Dim strSCName As String
' Deklaration
strSCName = "SCP0101"
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' ERSTER DATENSCHNITT
' Monat / Jahr
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' Deklaration
Set scc = WKB.SlicerCaches
Set scs = scc.Add2(WKS.PivotTables(strPTName01), "Monat/Jahr").Slicers
Set sc = scs.Add(WKS, , strSCName, "nach Monat", 10, 200, 1000, 50) ' OBEN / LINKS / BREITE / HÖHE
' Bearbeiten
With WKB.SlicerCaches("Datenschnitt_Monat_Jahr").Slicers(strSCName)
.NumberOfColumns = 12
End With
Muss hier ggf. mit der Add2-Methode gearbeitet werden?
Sind sonstige Verbesserungen / Vereinfachungen möglich?
Gruß Carsten
|