Office: (Office 2013) Datenschnitt auslesen

golochim · 8. September 2017

Hallo,

ich benutze in einer Pivottabelle Datenschnitte für die Filterung der Daten.
Jetzt möchte ich aber den Datenschnitt auslesen und in einer Zelle auf dem Arbeitsblatt schreiben. Dazu benutze ich folgende VBA Function:

Code:

Public Function GetSelectedSlicerItems_Marke(SlicerName As String, Optional ReturnArray As Boolean = False, _
Optional CountNoDataItems As Boolean = False) As Variant
Dim oSc As SlicerCache
Dim oSi As SlicerItem
Dim oSItems As SlicerItems
Dim lCt As Long
On Error Resume Next
Application.Volatile
Set oSc = ActiveWorkbook.SlicerCaches("Datenschnitt_Marke2112")
If Not oSc Is Nothing Then
Err.Clear
Set oSItems = oSc.SlicerCacheLevels(1).SlicerItems
If Err.Number > 0 Then
Set oSItems = oSc.SlicerItems
End If
For Each oSi In oSItems
If oSi.Selected And (oSi.HasData Or CountNoDataItems) Then
GetSelectedSlicerItems_Marke = GetSelectedSlicerItems_Marke & oSi.Name & ""
lCt = lCt + 1
ElseIf oSi.HasData = False And CountNoDataItems Then
lCt = lCt + 1
End If
Next
If Len(GetSelectedSlicerItems_Marke) > 0 Then
If lCt = oSItems.Count Then
GetSelectedSlicerItems_Marke = "All Items"
ElseIf lCt > 3 Then
GetSelectedSlicerItems_Marke = "Multiple items"
Else
If ReturnArray Then
GetSelectedSlicerItems_Marke = Application.Transpose(Split(GetSelectedSlicerItems_Marke, ","))
End If
End If
Else
GetSelectedSlicerItems_Marke = "No items selected"
End If
Else
GetSelectedSlicerItems_Marke = "No slicer with name '" & SlicerName & "' was found"
End If
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das Ganze funktionier auch.
Jetzt habe ich das Problem, dass ich im Datenschnitt nicht nur eine Auswahl treffe, sondern mehrere Elemente auswählen möchte.
Wie könnte ich das auslesen, damit ich das in den Filter einer neuen Pivottabelle reinschreiben kann??

Gruß

Jojo

:)

Office: (Office 2013) Datenschnitt auslesen

Datenschnitt auslesen

Datenschnitt auslesen

Datenschnitt auslesen - Similar Threads - Datenschnitt auslesen

Datenschnitt: Farbauswahl mit Mischfarben

Ausgewählte daten aus Datenschnitt in Zelle anzeigen

Dynamisches Kreisdiagramm

Datum vom Datenschnitt verwenden

Formatvorlage für Zeutachse und Datenschnitt

Datenschnitt für zwei Formatierte Tabellen

Datenschnitt auslesen