Makro_Datenschnitt_auswählen
23.05.2017 11:43:28
Paul
Bei dem unten aufgeführten Makro sucht er Kostenstellen um diese dann in einen Datenschnitt (Basis Powerpivot) einzufügen. Das Funktioniert auch super. Allerdings mit einer Einschränkung: Alle Werte, Kostenstellen in meinem Fall, müssen auch vorkommen, sonst gibt's einen Fehler. Kann ich dem Makro hinzufügen, dass er eine Kostenstelle halt nicht mitnehmen soll, wenn diese im Datenschnitt nicht verfügbar ist.
Gruß
Sub Vorgabe_Region_Standard_MA()
Const PRE As String = "[Mitarbeiter_Import_Monat_Jahr].[Kostenstelle2].&["
Const SUF As String = "]"
Const SPL As String = ","
Dim Wb As Workbook: Set Wb = ThisWorkbook
Dim Ws As Worksheet: Set Ws = Wb.Worksheets("Kostenstellen_Region2")
Dim KstBereich As Range, c As Range, i As Long, a, b
With Ws
Set KstBereich = .Range("B3:B10000")
ReDim a(0 To KstBereich.Cells.Count)
For Each c In KstBereich
If c.Value vbNullString Then
a(i) = PRE & c.Value & SUF & SPL
i = i + 1
End If
Next c
ReDim Preserve a(i)
End With
b = Split(Join(a, vbNullString), SPL)
ReDim Preserve b(UBound(b) - 1)
ActiveWorkbook.SlicerCaches("Datenschnitt_Kostenstelle2").VisibleSlicerItemsList = b
End Sub