Pivot-Tabelle mit Filter "bis Heute"

Rainer · 2019-07-10T18:06:43+00:00

Hallo Excel-Freunde (und ganz speziell Freunde der Pivot-Tabellen), https://www.herber.de/bbs/user/130822.xlsx In der Tabelle wird aus der "Liste" eine Pivot-Auswertung vorgenommen. Ziel ist es, die Einträge mit Status "OFFEN", "in Arbeit" oder "Wartend" zu erfassen, aber nach 3 verschiedenen Zeiträumen: "Bis Heute", "Morgen bis Heute + 7 Tage", "Morgen bis Heute + 28 Tage". Mit Zählenwenns geht dies, ich habe es im Blatt "Übersicht" dargestellt wie es aussehen soll. Da gibt es im Original noch ein Makro, welches die Namen aktualisiert. Wie kann ich nun eine vergleichbare Pivot-Tabelle erzeugen, also mit Filter "Datum von bis", aber ohne Darstellung der einzelnen Tage? Es wird nur das "Gesamtergebnis" gesucht für die beiden Filter "Datum" und "Status". Gruß, Rainer (Level Excel gut, aber Pivot bescheiden...)

Hallo Werner,
Ziel der Übung ist, eben keine Nutzereingaben machen zu müssen und sofort beim Aufruf des Blattes "Pivot" die aktuellen Werte zu sehen.
Das klappt aber eben nicht (oder ich bediene es falsch) mit dem Klick auf "Aktualisieren".
Es fehlt dann:
1. Der Datenbereich wächst und muss überprüft werden
2. Neue Namen werden immer am Ende dargestellt und nicht automatisch alphabetisch sortiert
3. Der Datumsfilter muss jeden Tag neu gesetzt werden, weil keine Heute()-Formel benutzt werden kann
Die 4 Tabellen bestehen auch aus diesem Grund, es muss nichts mehr geklickt werden um andere Informationen zu sehen. Aber um es zu beschleunigen habe ich es so realisiert, dass nun 4 Buttons 1 Pivottabelle nutzen und jeweils den Datumsfilter ändern können.


Sub alle()
Start = "01.01.2000"
Ende = "01.01.3000"
Pivotupdate Start, Ende
End Sub
Sub Bisheute()
Start = "01.01.2000"
Ende = Format(Date - 1, "DD.MM.YYYY")
Pivotupdate Start, Ende
End Sub
Sub NaechsteWoche()
Start = Format(Date, "DD.MM.YYYY")
Ende = Format(Date + 7, "DD.MM.YYYY")
Pivotupdate Start, Ende
End Sub
Sub NaechsterMonat()
Start = Format(Date, "DD.MM.YYYY")
Ende = Format(Date + 28, "DD.MM.YYYY")
Pivotupdate Start, Ende
End Sub
Sub Pivotupdate(Start, Ende)
Application.EnableEvents = False
ThisWorkbook.RefreshAll
Application.EnableEvents = True
LastRow = WorksheetFunction.Max(Sheets("Liste").Range("A:A")) + 1
Datenquelle = "Liste!" & Range("$A$1:$D$" & LastRow).Address(ReferenceStyle:=xlR1C1)
With Sheets("Pivot").PivotTables("PivotTabelle1")
.ChangePivotCache ActiveWorkbook. _
PivotCaches.Create(SourceType:=xlDatabase, _
SourceData:=Datenquelle, _
Version:=6)
.PivotFields("Zieldatum").ClearAllFilters
.PivotFields("Monate").ClearAllFilters
.PivotFields("Zieldatum").PivotFilters. _
Add2 Type:=xlDateBetween, _
Value1:=Start, _
Value2:=Ende
.PivotFields("Status").ShowDetail = False
.PivotFields("Verantwortlich").AutoSort _
xlAscending, "Verantwortlich"
End With
End Sub

Gruß, Rainer

Hallo Rainer,
... die einige Deiner Probleme teilweise erklären könnten:
1.) Deine Datei hat mE einen "Knacks" weg, so dass ich in dieser aus Deinen Daten in Liste keine "intelligente" Tabelle formatieren lässt. Eine Ursache dafür könnte evtl. sein, dass Du in dieser Datei mal eine PIVOTauswertung gelöscht hast. Jedenfalls konnte ich so die bezeichnete Fehlfunktion nachstellen.
2.) Es gibt in Deinem Namensmanager jede Menge Definitionen, die eine Fehlermeldung aufweisen, was eine enorme Bremse sein könnte. Solche solltest Du löschen.
Der Sinn der verbleibenden definierten Namen erschließt sich mir nicht. Wenn Du (in einer neuen Datei) die Listen-Datenwerte übernimmst und aus diesen eine "intelligente" Tabelle formatierst, sind diese Namensdefinitionen zumindest für die Pivotauswertung auch nicht notwendig.
3.) Bedingte Formatierungen sollte man keinesfalls wie bei Dir über den gesamten Zeilenbereich (also z.B. D:D) definieren. sondern nur in dem vorhandenen notwendigen Datenbereich, denn derartige bed. Formatierungen sind eine Performancebremse.
Bedingte Formatierungen in einer "intelligenten" Tabelle erweitern sich analog der der Formel in "Abschluß" bei einer Datenerweiterung automatisch.
4.) Wenn Du für die Pivotauswertung als Datenbereich die "intelligente" Tabelle nutzt, passt sich diese auch automatisch bei Datenerweiterung in der Datenliste dieser an (natürlich erst nach Betätigung des Aktualisierungsbuttons).
Eine automatische alphabetische Einsortierung wird allerdings nicht vorgenommen. Dazu bedarf es wirklich eines weiteren Mausklick.
Diese Sortierung könntest Du alternativ zu VBA auch mit Aufbereitung der Daten und Pivotauswertung auch mit Powerquery vornehmen (welches für Dich natürlich auch erst einmal einiges an notwendigen Lernaufwand nachziehen würde).
Gruß Werner
.. , - ...

Pivot-Tabelle mit Filter "bis Heute"

Forumthread: Pivot-Tabelle mit Filter "bis Heute"

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Pivot-Tabellen mit Datumsfilter "bis Heute" effektiv nutzen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

Pivot-Tabelle mit Filter "bis Heute"

Forumthread: Pivot-Tabelle mit Filter "bis Heute"

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Pivot-Tabellen mit Datumsfilter "bis Heute" effektiv nutzen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread