Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1688to1692
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Pivottabelle Filter automatisch setzen

Pivottabelle Filter automatisch setzen
10.05.2019 12:16:06
Joachim
Hallo zusammen,
ich möchte in einer Pivottabelle Filter automatisch setzen lassen. Dabei habe ich in einer Pivottabelle, die wöchentlich mit neuen Daten aktualisiert wird, in den Spalten jeweils das Datum der letzten und vorletzten Aktualisierung gefiltert (z.B. der 17.4.2019. und der 24.4.2019). Dieses verschiebt sich nun mit jeder weiteren Aktualisierung der Datei. Wie kann ich per VBA realisieren, dass mir jeweils der letzte und vorletzte Eintrag in der Filterliste angezeigt wird?
Besten Dank im Voraus
Joachim

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Pivottabelle Filter automatisch setzen
12.05.2019 13:35:17
fcs
Hallo Joachim,
Code-Beispiel:
'Code unter dem Code-Modul des Tabellenblatts mit dem Pivotbericht.
Private Sub Worksheet_Activate()
' Pivottabelle filtern letzte 2 Aktualisierungen
Dim datDatum As Date
datDatum = Application.WorksheetFunction.Max(ThisWorkbook.Worksheets("Daten") _
.Range("C:C")) - 8                      'ggf.Blattname und Spalte anpassen
With Me.PivotTables(1)
.RefreshTable
With .PivotFields("Aktualisierung")                   'ggf. Feldname anpassen
.ClearAllFilters
.PivotFilters.Add Type:=xlAfter, Value1:=CDbl(datDatum)
End With
End With
End Sub
LG
Franz
Anzeige
AW: Pivottabelle Filter automatisch setzen
13.05.2019 14:34:24
Joachim
Hallo Franz,
so klappt es tatsächlich! Klasse!
Vielen Dank für die Hilfe!
LG Joachim

320 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige