Office: (Office 2013) datenschnit auslesen

golochim · 12. September 2018

Hallo,

ich benutze folgendes Function:

Code:

Public Function GetSlicerCount(strSlicer As String) As Long
Dim oSlicerCache As SlicerCache
Dim oSlicerItem As SlicerItem
Dim lngSlicerCount As Long

Application.Volatile

Set oSlicerCache = ActiveWorkbook.SlicerCaches(strSlicer)

For Each oSlicerItem In oSlicerCache.SlicerItems
If oSlicerItem.Selected Then
lngSlicerCount = lngSlicerCount + 1
End If
Next oSlicerItem

GetSlicerCount = lngSlicerCount
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

um die Auswahl im Datenschnitt auszulesen und in eine Zelle zu schreiben.
Das ganze funktioniert auch, aber ich habe das Problem, dass mir nur die Zahl (so wie ich es sehe, ist es die Stelle, an der die Auswahl steht) aus dem Datenschnitt angezeigt wird.

Z.B. mein Datenschnitt besteht aus folgenden Elementen:

Deutschland
Österreich
Schweiz

Wenn ich jetzt Deutschland wähle, wird mir immer die 1 angezeigt. Ich möchte aber, dass in der Zelle dann Deutschland steht.
Wie müsste ich jetzt die Funktion anpassen, damit jetzt auch Deutschland angezeigt wird. In der Zelle benutze ich dann folgende Funktion:

=GetSlicerCount("Datenschnitt_Land")

Gruß

Jojo

:)

R J · 13. September 2018

Hi JoJo,

irgendwie kriege ich Dein Anliegen und Deine Funktion nicht zusammen. Die Funktion liefert Dir doch nur die Anzahl der ausgewählten Einträge des angegebenen Slicers. Und wenn Du Deutschland wählst, dann bekommst Du logischerweise auch nur eine 1 (zumal ja die Funktion auch nur einen long liefert) zurück.

Du müsstest die Funktion also abändern:
Code:

Sub Aufruf()
MsgBox GetSlicerCount("Datenschnitt_Land")
End Sub

Public Function GetSlicerCount(strSlicer As String) As String
Dim oSlicerCache As SlicerCache
Dim oSlicerItem As SlicerItem
Dim s As String

Set oSlicerCache = ActiveWorkbook.SlicerCaches(strSlicer)

For Each oSlicerItem In oSlicerCache.SlicerItems
If oSlicerItem.Selected Then s = s & oSlicerItem.Caption & vbCrLf
Next oSlicerItem
Set oSlicerCache = Nothing
GetSlicerCount = s
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: (Office 2013) datenschnit auslesen

datenschnit auslesen

datenschnit auslesen

datenschnit auslesen - Similar Threads - datenschnit auslesen

Teile aus einem qrcode string auslesen

VBA Auslesen von Strings und erstellen neuer Zeilen in einer Tabelle

aktuelles Alter aus Geburtsdatum auslesen und runde Geburtstage markieren

Datum einer Datei per VBA auslesen

Werte auslesen mit s(w)verweis

textdatei auslesen

Auslesen eines Wertes aus verschiedenen Tabelle