AW: Mehrere Tage im OLAP PivotFeld "Datum"
13.05.2020 08:53:53
Thomas
Hier noch ein paar Screenshots sowie der bisherige Makrotext, ggfs. zum besseren Verständnis:
Sub Refresh()
ActiveWorkbook.RefreshAll
' Filter der Incoming Orders und der Net Sales
On Error Resume Next
Dim Gestern As String
Dim Today As String
' Anzeige Spaltenbreite in Zeile 1
Dim Breite As Single
Dim SP As Single
' Variablen für Datum ACT und PYR, Monate und Tage setzen
' => HIER SOLLTE EIN DATENBEREICH IM SHEET "SOURCE_KALENDER" (B73:B103) MIT "ALLEN TAGEN" DES _
VORJAHRESMONATS FESTGELEGT WERDEN, DESSEN EINTRÄGE IN DEN FOLGENDEN
' => 8 PIVOTTABELLEN EINZUTRAGEN WÄREN.
' => DIE MONATE SIND BEREITS AKTIVIERT, ES GEHT LEDIGLICH DARUM IM AKTUELLEN VORJAHRESMONAT " _
NUR" DIESE TAGE AUSZUWÄHLEN:
Gestern = "[" & Sheets("Source_Kalender").Range("B9") & "]"
' Gestern_OOH = "[" & Sheets("Source_Kalender").Range("B9") & "]"
Today = Sheets("Source_Kalender").Range("B6")
'Sales Unit 1
Sheets("Sales Unit 1").PivotTables("PivotTable1").PivotFields("[v Kalender].[Jahr- _
Monat-Tag].[Datum Name]").VisibleItemsList = Array("[v Kalender].[Jahr-Monat-Tag].[Datum Name].&" & Gestern)
Sheets("Sales Unit 1").PivotTables("PivotTable5").PivotFields("[v Kalender].[Jahr- _
Monat-Tag].[Datum Name]").VisibleItemsList = Array("[v Kalender].[Jahr-Monat-Tag].[Datum Name].&" & Gestern)
'Sales Unit 2
Sheets("Sales Unit 2").PivotTables("PivotTable2").PivotFields("[v Kalender].[Jahr- _
Monat-Tag].[Datum Name]").VisibleItemsList = Array("[v Kalender].[Jahr-Monat-Tag].[Datum Name].&" & Gestern)
Sheets("Sales Unit 2").PivotTables("PivotTable6").PivotFields("[v Kalender].[Jahr- _
Monat-Tag].[Datum Name]").VisibleItemsList = Array("[v Kalender].[Jahr-Monat-Tag].[Datum Name].&" & Gestern)
'Sales Unit 3
Sheets("Sales Unit 3").PivotTables("PivotTable3").PivotFields("[v Kalender].[Jahr- _
Monat-Tag].[Datum Name]").VisibleItemsList = Array("[v Kalender].[Jahr-Monat-Tag].[Datum Name].&" & Gestern)
Sheets("Sales Unit 3").PivotTables("PivotTable8").PivotFields("[v Kalender].[Jahr- _
Monat-Tag].[Datum Name]").VisibleItemsList = Array("[v Kalender].[Jahr-Monat-Tag].[Datum Name].&" & Gestern)
'Sales Unit 4
Sheets("Sales Unit 4").PivotTables("PivotTable4").PivotFields("[v Kalender].[Jahr- _
Monat-Tag].[Datum Name]").VisibleItemsList = Array("[v Kalender].[Jahr-Monat-Tag].[Datum Name].&" & Gestern)
Sheets("Sales Unit 4").PivotTables("PivotTable7").PivotFields("[v Kalender].[Jahr- _
Monat-Tag].[Datum Name]").VisibleItemsList = Array("[v Kalender].[Jahr-Monat-Tag].[Datum Name].&" & Gestern)
' Spaltenbreite anzeigen
For SP = 2 To 12
Breite = Columns(SP).ColumnWidth
Cells(1, SP).NumberFormat = "0.00"
Cells(1, SP).Value = Breite
Next SP
End Sub