Mehrere Tagen jeden Monats in pivottabelle filtern

Hallo,

irgendwie hast du den Sinn von PivotTabellen nicht richtig verstanden. Man nimmt die vorhandenen Daten und analysiert sie in einer PivotTabelle. Dort kann man auch Felder berechnen, um noch mehr zu berechnen, aber die grundsätzlichen Daten sind aus der Quelltabelle.
Wenn du weder Wunschdatum noch Monat in das Achsenfeld ziehen willst oder kannst, dann berechne das gewünschte Datum in der Quelltabelle und verwende es dann in der PivotTabelle. Du kannst mir auch die Tabelle mailen, Adresse ist im Profil. Beschreibe, welches
Datum in die PivotTabelle eingehen soll.

Claus

Hallo Marco

Vielen Dank, das mit dem Filter funktioniert ja schon mal. Aber wie kann ich die ausgewählten Termine so sortieren, dass sie im aktuellen Jahr nach 1.) Monat und 2.) Tag aufsteigend erscheinen (anstelle von Jahr-Monat-Tag, der mir z.B. 1.10.1964; 25.8.1965;
15.6.1967; etc. anstelle von 15.6.; 25.8.; 1.10.; etc. bringt). Ich bräuchte dafür vermutlich den Monat und den Tag des Serientermins als separate Filteroptionen. Vielen Dank für deine Hilfe.

Gruss

Marcel

Ich bin nun daran interessiert, diese nützliche Anwendung auch auf andere Dateien ohne copy-and-paste zu übertragen zu können und freue mich über Eure Tipps.

Würde eh nicht mit Copy&Paste gehen, das ist eine Pivottabelle, die gibt es unter Einfügen ganz links.

Wenn man die erst mal hat kann man einen Datenschnitt einfügen... was im Prinzip auch nur den Filter steuert.

Pivottabellen sind ein komplexes Werkzeug, nur um die Knöpfe zum bekommen ist wie mit Kanonen auf Spatzen... ein Autofilter tut es idR auch und ist wesentlich einfacher.

Andreas.

Filtern in einer Pivottabelle funktioniert gänzlich anders als ein Autofilter.
<br />https://support.microsoft.com/de-de...vottable-cc1ed287-3a97-4e95-b377-ddfafe79fa8f
<br />Einem Feld enthält Werte und Felder haben einen Wertefilter. Wenn Du uns eine Beispieldatei zeigst und welches Ergebnis Du erwartest können wir vielleicht helfen.
<br />Andreas.
<br />

Hallo Andreas,
wenn die Textfelder links und oben an Zelle B2 angedockt sein sollen, geht es z.B. so:

Sub Test()

Dim i As Integer

For i = 1 To Sheets.Count

With Sheets(i).TextBox1

.Left = Cells(2, 2).Left

.Top = Cells(2, 2).Top

.Width = 120

.Height = 30

End With

Next

End Sub

Claus