Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Excel 2013 PowerPivot - Tagesdatum aktualisieren

Frage Microsoft Microsoft Office

Mitglied: EricAG3

EricAG3 (Level 1) - Jetzt verbinden

20.02.2014 um 10:24 Uhr, 2263 Aufrufe, 7 Kommentare, 4 Danke

Hallo,

folgendes Problem:
Ich greife auf eine Tabelle mit Zeitstempeln zu. Aus einer gebastelten PivotTabelle erstelle ich ein Diagramm das die Anzahl der Buchungen an einem Tag abbildet. Hierzu setze ich einen Filter auf das Feld mit dem Zeitstempel der Buchung. Wie kann ich den Filter konfigurieren, so dass er sich jeden Tag auf das aktuelle Tagesdatum aktualisiert? Derzeit steht das Datum statisch drin.

Vielen Dank im Voraus.


Eric
Mitglied: colinardo
20.02.2014, aktualisiert um 10:49 Uhr
Hallo Eric,
das könntest du mit einem Makro machen. Schau dir dazu mal folgendes Demo-Sheet an.
01.
Sub UpdatePivotTable() 
02.
    Dim ws As Worksheet, pt As PivotTable 
03.
    Set ws = Worksheets(1) 
04.
    Set pt = ws.PivotTables("PivotTable1") 
05.
    pt.PivotFields("Datum").ClearAllFilters 
06.
    pt.PivotFields("Datum").PivotFilters.Add Type:=xlDateToday 
07.
    pt.Update 
08.
End Sub
Für das Beispiel ist das Makro an einen Button geknüpft , aber das ganze lässt sich dann auch an das Open-Event des Worksheets binden so dass die Pivot-Tabelle schon nach dem Öffnen aktuell gefiltert ist.

Grüße Uwe
Bitte warten ..
Mitglied: EricAG3
20.02.2014 um 10:58 Uhr
Das ist genau passend.
Welche Parameter sind zu ändern?

"PivotTable1" -> Name meines Pivot Tables?
"Datum" -> Name des Felds in dem der Zeitstempel steht?

Sonst noch etwas?
Schaue mir jetzt mal an wie und wo ich das Makro einbinden kann/muss.

Vielen Dank schon mal.
Bitte warten ..
Mitglied: colinardo
20.02.2014, aktualisiert um 11:00 Uhr
Welche Parameter sind zu ändern?
"PivotTable1" -> Name meines Pivot Tables?
Genau
"Datum" -> Name des Felds in dem der Zeitstempel steht?
Exakt
Sonst noch etwas?
noch das Worksheet in dem sich die PT befindet
 Set ws = Worksheets(1)
im Beispiel das erste Worksheet

Grüße Uwe
Bitte warten ..
Mitglied: colinardo
20.02.2014, aktualisiert um 11:02 Uhr
damit das ganze beim Öffnen des Sheets startet einfach folgenden Code nehmen:
01.
Sub UpdatePivotTable() 
02.
    Dim ws As Worksheet, pt As PivotTable 
03.
    Set ws = Worksheets(1) 
04.
    Set pt = ws.PivotTables("PivotTable1") 
05.
    pt.PivotFields("Datum").ClearAllFilters 
06.
    pt.PivotFields("Datum").PivotFilters.Add Type:=xlDateToday 
07.
    pt.Update 
08.
End Sub 
09.
 
10.
Private Sub Workbook_Open() 
11.
    UpdatePivotTable 
12.
End Sub
das ganze muss im Code-Abschnitt des Workbooks stehen.
Bitte warten ..
Mitglied: EricAG3
20.02.2014 um 11:21 Uhr
[code]Sub UpdatePivotTable()
Dim ws As Worksheet, pt As PivotTable
Set ws = Worksheets(1)
Set pt = ws.PivotTables("Schere_B")
pt.PivotFields("Soll am akt_ Messpunkt").ClearAllFilters
pt.PivotFields("Soll am akt_ Messpunkt").PivotFilters.Add Type:=xlDateToday
pt.Update
End Sub[/code]

Dieses Makro ist auf einen Button gelegt. Nach Betätigung des Buttons passiert nichts und ich erhalte keine Fehlermeldung.
Die PT liegt auf Tabellenblatt 1..
Bitte warten ..
Mitglied: colinardo
20.02.2014, aktualisiert um 11:29 Uhr
vermutlich hast du die Makro-Einstellungen im Sicherheitscenter von Excel noch nicht runtergesetzt !
Datei > Optionen > Sicherheitscenter > Einstellungen für das Sicherheitscenter > Einstellungen für Makros > "Alle Makros aktivieren"
Bitte warten ..
Mitglied: EricAG3
20.02.2014 um 11:38 Uhr
Stimmt, hatte ich vergessen.
Jetzt führt er das Makro aus und gibt eine Fehlermeldung mit Fehlertext "400" zurück. Werde nocheinmals die Parameter überprüfen.
Bitte warten ..
Ähnliche Inhalte
Exchange Server
Exchange 2013 CU3 aktualisieren - Erfahrungen ?
Frage von agnostikerExchange Server5 Kommentare

Hi, aktuell laufen 2 Exchange 2013 CU3 ( DAG ) auf virtuellen Win 2012 Servern, diese Exchanges sollen aktualisiert ...

Exchange Server
Exchange 2013 CU7 aktualisieren auf CU17
Frage von AtompiltzExchange Server5 Kommentare

Moin zusammen, ich muss/möchte eine Exchange 2013 CU 7 (ich weiß, ist schon sehr alt) Installation auf das aktuelle ...

Microsoft Office
Excel Zellinhalte aus einer Datei in eine andere Excel Datei kopieren und auch aktualisieren
gelöst Frage von Rene1976Microsoft Office4 Kommentare

Hallo, bis jetzt habe ich immer eine Referenz von einer Excelzelle aus einer Datei in eine andere Excelzelle einer ...

Microsoft Office
Excel 2016 - Verknüpfung zu anderer Excel Datei automatisch aktualisieren
Frage von devil7974Microsoft Office2 Kommentare

Hallo zusammen, ich habe eine Excel Datei auf meiner Dropbox liegen. Die Daten in dieser Datei werden regelmäßig gepflegt ...

Neue Wissensbeiträge
Windows 10

Windows 10 Fall Creators Update - Neue Funktion Hyper-V Standardswitch kann ggf. Fehler bei Proxy Configs verursachen

Erfahrungsbericht von rzlbrnft vor 5 StundenWindows 101 Kommentar

Hallo Kollegen, Da wir die Gefahr lieben, haben wir bei einigen Usern nun mittlerweile das Creators Update drauf. Einige ...

Sicherheit

TLS-Zertifikat und privater Schlüssel von Microsofts Dynamics 365 geleakt

Information von Penny.Cilin vor 7 StundenSicherheit

Microsoft hat versehentlich das TLS-Zertifikat inklusive dem privaten Schlüssel seiner Business-Anwendung Dynamics 365 geleakt. TLS-Zertifikat und privater Schlüssel von ...

Viren und Trojaner

Deaktivierter Keylogger in HP Notebooks entdeckt

Information von bitcoin vor 1 TagViren und Trojaner2 Kommentare

Ein Grund mehr warum man Vorinstallationen der Hersteller immer blank bügeln sollte Der deaktivierte Keylogger findet sich im vorinstallierten ...

Router & Routing

Lets Encrypt kommt auf die FritzBox

Information von bitcoin vor 1 TagRouter & Routing

In der neuesten Labor-Version der FB7490 integriert AVM unter anderem einen Let's Encrypt Client für Zugriffe auf das Webinterface ...

Heiß diskutierte Inhalte
Netzwerkmanagement
Firefox Profieles im Roaming
gelöst Frage von Hendrik2586Netzwerkmanagement17 Kommentare

Hallo liebe Leute. :) Ich hab da ein kleines Problem, welches anscheinend nicht unbekannt ist. Wir nutzen hier in ...

LAN, WAN, Wireless
Brainstorming, einfachste Option 1 getrenntes LAN (mit WAN zugang)
Frage von 132954LAN, WAN, Wireless13 Kommentare

Hi, folgendes: Wir bekommen eine Glasfaser Leitung, Und das sollte Optional so aussehen: Ein Modem/Router für das WAN, ein ...

Batch & Shell
Trusted Sites für alle User auf dem PC einpflegen
Frage von xXTaKuZaXxBatch & Shell12 Kommentare

Aufgabestellung: Es sollen auf 1 PC (bzw. mehreren PCs) vertrauenswürdige Sites per Powershell eingetragen werden, die für alle User ...

Netzwerkgrundlagen
Hi eine blöde frage. xD
Frage von 132954Netzwerkgrundlagen12 Kommentare

Also: Habe 2012 r2 essentials neuinstalliert, allerdings installiert diese version ja gleich diesen gangen AD kram mit, den hab ...