PDA

Vollständige Version anzeigen : Aktuelles Datum in Berichtsfilter


Stephanowitz
30.06.2015, 08:19
Hallo zusammen,

folgendes Anliegen hätte ich an euch:

Nach dem öffnen einer Datei (PowerPivot Tabelle), sollte automatisch das aktuelle Datum im Berichtsfilter meiner PowerPivot Tabelle stehen.

Ist dies überhaupt möglich? :rolleyes:

Vielen Dank schonmal

Stephanowitz

Stephanowitz
30.06.2015, 12:12
Habe die Datums-Änderung von gestern auf heute einmal aufgezeichnet.
Wie muss ich den Code anpassen, um nach dem öffnen der Datei automatisch das aktuelle Datum im Berichtsfilter habe? Bin leider kein Experte in Sachen VBA :(

Sub AktuellesDatum()
'
' AktuellesDatum Makro
'

'
ActiveSheet.PivotTables("PivotTable1").PivotFields( _
"[Kalendertabelle].[Datum].[Datum]").VisibleItemsList = Array( _
"[Kalendertabelle].[Datum].&[2015-06-30T00:00:00]")
End Sub