Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1784to1788
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

SlicerCache Auslesen

SlicerCache Auslesen
16.10.2020 10:42:47
Timo
Hallo,
Ich habe einen Datenschnitt einer Pivottabelle erstellt, aus diesen Datenschnitten würde ich nun gerne per Funktion die Selektierten SlicerItems aus den aktuell sichtbaren Items auslesen.
In den Datenschnitten ist die Option "Elemente ohne Daten ausblenden" aktiviert.
Mit meiner Funktion werden aber alle SlicerItems(auch die aktuell nicht angezeigten) ausgelesen, trotz dass ich in der Schleife oSlicerCache.VisibleSlicerItems verwende....
Public Function GetSlicerSelection(Datenquelle As String) As String
Dim oSlicerCache     As SlicerCache
Dim oSlicerItem      As SlicerItem
Dim lngSlicerCount   As Long
Dim strSlicerAuswahl As String
Application.Volatile
Set oSlicerCache = ActiveWorkbook.SlicerCaches(Datenquelle)
For Each oSlicerItem In oSlicerCache.VisibleSlicerItems
If oSlicerItem.Selected Then
strSlicerAuswahl = strSlicerAuswahl & oSlicerItem.Value & " " & vbCrLf
End If
lngSlicerCount = lngSlicerCount + 1
Next oSlicerItem
GetSlicerSelection = strSlicerAuswahl
End Function

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: SlicerCache Auslesen
16.10.2020 11:06:01
Timo
Ich habe den Code abgewandelt. Mit der Option hasdata lässt sich das Ganze umsetzen
Public Function GetSlicerSelection(Datenquelle As String) As String
Dim oSlicerCache     As SlicerCache
Dim oSlicerItem      As SlicerItem
Dim lngSlicerCount   As Long
Dim strSlicerAuswahl As String
Application.Volatile
Set oSlicerCache = ActiveWorkbook.SlicerCaches(Datenquelle)
For Each oSlicerItem In oSlicerCache.VisibleSlicerItems
If oSlicerItem.Selected And oSlicerItem.HasData = True Then
strSlicerAuswahl = strSlicerAuswahl & oSlicerItem.Value & " " & vbCrLf
End If
lngSlicerCount = lngSlicerCount + 1
Next oSlicerItem
GetSlicerSelection = strSlicerAuswahl
End Function

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge