VBA Datenschnitt ohne Daten
23.01.2021 20:30:49
MarC
ich habe auf einem Tabellenblatt 5 Datenschnitte die mit einander verknüpft sind. Mit einem Button kann ich mir die ausgewählten Elemente von einem Datenschnitt in der Spalte AU auflisten lassen. Die nicht ausgewählten Elemente werden nicht aufgelistet, aber leider die ausgewählten Elemente bei denen keine Daten hinterlegt sind. Mit welchem Befehl kann ich mir nur die Elemente auflisten lassen von denen auch Daten vorhanden sind?
Der Code sieht aktuell wie folgt aus:
Sub Slicer_Item_List()
Dim objSlicerCache As SlicerCache
Dim objItem As SlicerItem
Dim objItemCount As Long
On Error Resume Next
Application.Volatile
Set objSlicerCache = ThisWorkbook.SlicerCaches("Datenschnitt_C1")
objItemCount = 6
Worksheets("Data Base").Range("AU7:AU37").ClearContents
If Not objSlicerCache Is Nothing Then
For Each objItem In objSlicerCache.SlicerItems
If objItem.Selected Then
objItemCount = objItemCount + 1
Worksheets("Data Base").Cells(objItemCount, 47) = objItem.Name
End If
Next
End If
End Sub
Anzeige