Office: (Office 2013) Datenschnitt auslesen

Hallo,

Gibt es eine Möglichkeit, dass ich die Anzahl der gewählten Elemente aus einem Datenschnitt auslese und dann mit der Zahl weiter rechnen kann. Z.B. ich habe eine Datenschnitt in dem die Monate 1 bis 12 abgebildet werden. Jetzt kann ich die einzelnen Monate auswählen, z.B. wähle ich jetzt die Monate Januar, Februar und März aus. Ich habe dann 3 Monate gewählt. Jetzt möchte ich mit der Zahl weiter rechnen, da ich Sie für die Berechnung in einer Formel brauche.
Geht das überhaupt????


Gruß

Jojo

:)

 

Moin Jojo,

ja, das geht:

PHP:

         Sub auswahlanzahl()
Dim sc As SlicerCache
Dim si As SlicerItem
Dim i As Integer

i = 0
For Each sc In ActiveWorkbook.SlicerCaches
For Each si In sc.SlicerItems
If si.Selected Then i = i + 1
Next si
Debug.Print sc.Name & ": " & i
Next sc
End Sub


 

Hallo Michael,

vielen Dank für die schnelle Antwort.

Da hätte ich aber noch eine Frage. Könnte ich diesen Wert auch noch in die Zelle X4 schreiben und das ganze nur auf einen Datenschnitt begrenzen, da ich in meine Auswertung mehrere Datenschnitt's habe??.

Gruß

Jojo

 

Hallo,

füge folgende Funktion in ein Standardmodul der Arbeitsmappe ein:
Code:

In einer Zelle schreibst du dann folgende Formel, passe den Namen des Datenschnitt-Objektes noch an:
Code:

 

Hallo Melanie,

vielen Dank für die Antwort,

leider funktioniert es noch nicht ganz. Es wird die Zahl ermittelt, aber in der Zelle wo die Formel =GetSlicerCount("Datenschnitt_Monate") steht, ändert es sich nichts. Erst wenn ich diese Formel in eine neue zelle kopiere, dann bekomme ich die richtige Zahl angezeigt!

Gruß

Jojo

 

Hi,

ich habe die Code nochmal geändert, kopier ihn noch mal in deine Datei.

 

Hallo Melanie,

super!!! Das funktioniert!!!

Vielen Dank für die Hilfe!

Gruß

Jojo

 

Hallo Melanie,


leider funktioniert der Code bei mir nicht. Kann es vielleicht daran liegen, dass meine Tabellen in PowerPivot geladen sind?

 

Hallo Stefan,

wenn die Daten in Power Pivot geladen sind gehören sie zu einer OLAP-Datenbank, welche anders referenziert wird.
Folgende Funktion verarbeitet beide Varianten, also Daten im Tabellenblatt oder als Datenmodell in Power Pivot.
Wenn mehrere Einträge markiert sind, liefert die Funktion ein dynamisches Array.

Public Function GetSelectedSlicerItem(strSlicer As String) As Variant
Dim oSlicerCache As SlicerCache
Dim oSlicerItems As SlicerItems
Dim oSlicerItem As SlicerItem
Dim varItem As Variant
Dim i As Long

Application.Volatile

ReDim varItem(0, 0)
Set oSlicerCache = ActiveWorkbook.SlicerCaches(strSlicer)

Select Case oSlicerCache.OLAP
Case True
Set oSlicerItems = oSlicerCache.SlicerCacheLevels(1).SlicerItems
Case False
Set oSlicerItems = oSlicerCache.SlicerItems
End Select

For Each oSlicerItem In oSlicerItems
If oSlicerItem.Selected Then
varItem(0, i) = oSlicerItem.Caption
i = i + 1
ReDim Preserve varItem(0, i)
End If
Next oSlicerItem

ReDim Preserve varItem(0, i - 1)
GetSelectedSlicerItem = Application.WorksheetFunction.Transpose(varItem)
End Function

Hilft dir das weiter?
Gruß
Melanie