Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1328to1332
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1328to1332
1328to1332
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Pivotfilter per Zelle steuern

Pivotfilter per Zelle steuern
30.08.2013 08:52:30
Tom
Moinsen alle,
gibt es einen Code mit dem man den Pivot Datumsfilter "liegt zwischen" steuern könnte?
Mit folgendem Code geht es schon in die richtige Richtung Pivotfelder anzusteuern, aber wie könnte man es auf den Datumsfilter anwenden?
Folgender Code liegt vor:
Private Sub Worksheet_Change(ByVal Target As Range)
Call PivAendern
End Sub
Sub PivAendern()
With Sheets("Top Peak").PivotTables(1)
.PivotFields("Nr").CurrentPage = Sheets("Mopti").[Y1].Value
.PivotCache.Refresh
End With
End Sub Filter sollte dann hier eingreifen:
.PivotFields("Buchungsdatum").CurrentPage
Hab jetzt gerade keine Bsp.Mappe zur Hand.
Aber vielleicht habt Ihr ja schon eine Idee!
MfG
Tom H.

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Pivotfilter per Zelle steuern
30.08.2013 09:09:50
selli
hallo tom,
das ist so eine sache mit den pivots.
ich habe jetzt zwar nicht die lösung für deine konkrete aufgabenstellung, habe es selber aber anders gelöst.
ich habe in der ursprungstabelle eine hilfsspalte eingefügt. hier setze ich in den betreffenden zeilen ein zeichen (z.bsp. "x"), und setze diese spalte in den bereichsfilter der pivot.
in der hilfsspalte die zeichen per vba zu setzen und dann die pivot zu refreshen ist sicherlich einfacher zu realisieren als in der pivot herumzudoktoren.
gruß
selli

AW: Pivotfilter per Zelle steuern
30.08.2013 09:44:24
Tom
Hi Selli,
das ist mir zu einfach.
Ich suche nach einer "unsichtbaren" Lösung ! :-)
Folgender aufgenommener Code funzt sehr gut aber:
Sub PivAendern1()
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Buchungsdatum")
.Orientation = xlRowField
.Position = 3
End With
ActiveSheet.PivotTables("PivotTable1").PivotFields("Buchungsdatum"). _
PivotFilters.Add Type:=xlDateBetween, Value1:="28.02.2013", Value2:= _
"31.12.2013"
End Sub
aber: ich möchte die Value Werte ersetzen mit
Value1:= Sheets("Mopti").[Y1].Value
Value2:= Sheets("Mopti").[AB1].Value
gibt noch Fehler 400 zurück!
Und gerne das hier umgehen damit ich nicht erst navigieren muss:
.Orientation = xlRowField
.Position = 3
Vielen Dank schon einmal für weitere Hilfe.
Gruß
Tom H.

Anzeige
Mein Ansatz: Benanntes Argument nicht gefunden !
30.08.2013 10:23:28
Tom
Hier mein Ansatz.
Läuft durch, aber am Ende: Benanntes Argument nicht gefunden !
Sub PivAendern()
With Sheets("Top Peak").PivotTables(1).PivotFields("Buchungsdatum")
.Orientation = xlRowField
.Position = 3
.PivotFilters.Add Type:=xlDateBetween, Value1:=Sheets("Mopti").[Y1], Value2:=Sheets(" _
Mopti").[AB1]
.PivotCache.Refresh
End With
End Sub
Höre gern
Tom H.

AW: Mein 2ter Versuch = Objekt Erforderlich
30.08.2013 11:45:47
Tom
Moinsen,
mein 2ter Ansatz gibt mir "Objekt Erforderlich" zurück-
Sub PivAendern2()
Dim cd As Date
Dim cd1 As Date
cd = System.Today().AddMonths(-6)
cd1 = System.Date.Today
ActiveSheet.PivotTables("PivotTable1").PivotFields("Buchungsdatum").PivotFilters.Add Type:= _
xlDateBetween, _
Value1:=cd, Value2:=cd1
End Sub
Freue wenn Ihr mir beim Lösen helfen könnt.
MfG
Tom H.

Anzeige
AW: Mein 2ter Versuch = Objekt Erforderlich
30.08.2013 13:15:12
fcs
Hallo Tom,
Datumswerte sind in Filtern oft problematisch und müssen in eine Zahlenwert überführt werden. Typ Double oder Long.
Vor dem setzen eines Filters sollte der entsprechende Filter des Pivotfeldes zurückgesetzt werden.
Gruß
Franz 
Sub PivAendern()
Dim pvTab As PivotTable, pvField As PivotField
Set pvTab = Sheets("Top Peak").PivotTables(1)
Set pvField = pvTab.PivotFields("Buchungsdatum")
pvTab.RefreshTable
With pvField
'        .Orientation = xlRowField 'nicht erforderlich wenn Zeilenfeld schon plaziert
'        .Position = 3             'nicht erforderlich wenn Zeilenfeld schon plaziert
.ClearAllFilters
.PivotFilters.Add Type:=xlDateBetween, _
Value1:=CDbl(Sheets("Mopti").Range("Y1").Value), _
Value2:=CDbl(Sheets("Mopti").Range("AB1").Value)
End With
End Sub

Anzeige
AW: Mein 2ter Versuch = Objekt Erforderlich
30.08.2013 13:40:34
Tom
Hallo Franz,
vielen Dank für den Code und den Tip bzgl. Umwandeln in Zahlenwerte.
Das wird mir in Zukunft helfen.
Ich habe parallel noch eine andere Frage laufen derer ich auch nicht Herr werde.
Guck mal bitte rein wenn Du Zeit hast!
siehe: Summeprodukt und "Min" statt "Summe"!
Ist im Prinzip die Pivot-Idee als Formel.
Nur weiß ich noch nicht was von beiden besser in der Handhabung ist.
MfG
Tom

300 Forumthreads zu ähnlichen Themen

Bestimmte Werte aus einer Zelle herausfiltern
G_G

Hallo zusammen.
Ich habe in einer Zelle einen etwas längeren Text (mit Zahlen und Buchstaben). Ich würde jetzt gerne hieraus den Wert rausfiltern (in separate Spalte), der neben der Buchstabenkombination "AT" steht.
Hört sich einfach an. Da gibt es aber noch einige Sonderfälle.
Ich...
15.09.2008 12:03:00
Thread-ID: 1009747
5 Beiträge
Anzeige
Makro: Pivotfilter aus Zellinhalt
Daniel

Hallo Excelexperten,
ich habe eine Pivottabelle mit einem Feld, dass die vorhandenen Berichtsmonate enthält. Den für meinen Bericht gerade relevanten Berichtsmonat ermittle ich per Formel in der Zelle D26. Per Makro möchte ich diesen Wert nun an die Pivottabelle übergeben.
Der Code, den...
20.01.2009 14:00:00
Thread-ID: 1041836
7 Beiträge
Zahlenfilter auf Zelle verweisen
Flo

Hallo,
folgendes "Problem" habe ich. Nachdem ich den Zahlenfilter im Excel 2007 relativ umständlich finde und eine große Menge an Daten durcharbeiten muss, frage ich mich ob es möglich ist, auf eine Zelle zu verweisen. Also z.b.:
Zahlenfilter (option : ist gleich) nimmt die Zahl aus Zel...
26.05.2009 08:48:18
Thread-ID: 1077268
3 Beiträge
Anzeige
Filter mit Wert aus Zelle
Christian

Hi leute, ich hab das forum schon durchgestöbert, aber nicht wirklich ein Ergebnis gefunden
Ich habe folgendes Problem
Ich habe eine Tabelle, mit zuständigkeiten.
Um beim STart die Zuständigen gleich zu filtern, lese ich als erstes den User aus, danach wandle ich den User in ein Kür...
15.10.2009 11:43:45
Thread-ID: 1109803
7 Beiträge
Zellen aus einer Pivottabelle kopieren | Herbers Excel-Forum
Rocco
hallo leute,
habe leider ein problem zellen aus einer zuvor aktualisierten pivottabelle zu kopieren und weiss nicht warum ;(
vielleicht hat ja von euch wer einen guten rat für mich. mein code schaut im moment so aus:
'Pivottabelle aktualisieren
Sheets("Pivot").Select
ActiveShe...
18.01.2010 16:26:32
Thread-ID: 1130788
2 Beiträge
Filter auf zusammengefassten Zellen
braleta

Hallo Excel-ianer,
ich habe ein Arbeitsblatt, das - schematisch - so aufgebaut ist:
A1:A3 zu einer Zelle zusammengefasst, Inhalt ist ein NAME, der "zentiriert/zentriert ist
B1:B3 zu einer Zelle zusammengefasst, inhalt beliebig, zentriert/zentriert
C1:C3 zu einer Zell...
04.07.2011 17:10:00
Thread-ID: 1220806
3 Beiträge
Zelle auslesen und für Filterung verwenden
Tobias

Hallo,
ich habe mit Hilfe des Forums bereits ein Problem lösen können. Nun würde ich das bislang existierende Ergebnis noch erweitern. Dabei soll ein Zellinhalt ausgelesen werden und für die Filterung benutzt werden. Zum besseren Verständnis habe ich die Beispieldatei hochgeladen. Würde mic...
12.12.2012 10:38:25
Thread-ID: 1290421
4 Beiträge
Pivot - Datumsfilter nicht auswählbar
Marcel

Hallo,
hier mein Problem:
Ich habe in einer Mappe ein Arbeitsblatt als "Datenquelle".
Daraus habe ich bereits 2 Pivot-Auswertungen als neue Arbeitsblätter erstellt.
In einer weiteren Pivot-Auswertung möchte ich den Datumsfilter setzen, der ist aber nicht auswählbar (hellgrau).
15.12.2012 19:21:13
Thread-ID: 1291028
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
3
6
2
9
6
1
2
3
5
2
3
1
2
2
2
7
5
2
1
3
1
9
2
1