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
1624to1628
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
1624to1628
1624to1628
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Pivots Filter übertragen (Pivot1 auf Pivot2)

VBA Pivots Filter übertragen (Pivot1 auf Pivot2)
17.05.2018 12:50:13
Janesch
Hallo Zusammen,
gibt es eine VBA Lösung die gewählten Filter einer Pivot automatisch auf die andere Pivot zu übertragen. In dem Beispiel unten sollen die Filter aus der Pivot_Test_1 auf die Pivot_Test_2 übertragen werden.
https://www.herber.de/bbs/user/121672.xlsx
D.h. die gleichen Filter aus dem Jahr 2017 auch für das Jahr 2016 verwenden.
Vielen Dank.
Janesch..

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

Betreff
Datum
Anwender
Anzeige
AW: VBA Pivots Filter übertragen (Pivot1 auf Pivot2)
17.05.2018 22:06:59
Dieter
Hallo Janesch,
ich denke, du kannst das mit dem folgenden Programm machen 
Sub Übertragen()
Dim pt1 As PivotTable
Dim pt2 As PivotTable
Dim sc1 As SlicerCache
Dim sc2 As SlicerCache
Dim si1 As SlicerItem
Dim si2 As SlicerItem
Dim strName As String
Dim wb As Workbook
Dim wsT As Worksheet
Application.ScreenUpdating = False
Set wb = ThisWorkbook
Set wsT = wb.Worksheets("Test")
Set pt1 = wsT.PivotTables("Pivot_Test_1")
Set pt2 = wsT.PivotTables("Pivot_Test_2")
For Each sc1 In wb.SlicerCaches
strName = sc1.Name
If Right$(strName, 1)  "1" Then
Set sc2 = wb.SlicerCaches(strName & "1")
For Each si2 In sc2.SlicerItems
If si2.HasData Then
si2.Selected = False
End If
Next si2
For Each si1 In sc1.SlicerItems
If si1.HasData Then
If si1.Selected Then
For Each si2 In sc2.SlicerItems
If si2.Name = si1.Name Then
si2.Selected = True
Exit For
End If
Next si2
End If
End If
Next si1
End If
Next sc1
Application.ScreenUpdating = True
End Sub
Die Daten in deinen Tabellen passen nicht sehr gut zusammen, dann sind einige der Einstellungen nicht zu finden. Ich habe die beiden Blätter einfach bis auf das Datum gleich gemacht.
https://www.herber.de/bbs/user/121686.xlsm
Viele Grüße
Dieter
Anzeige
AW: VBA Pivots Filter übertragen (Pivot1 auf Pivot2)
18.05.2018 10:47:33
Janesch
Hallo Dieter,
vielen Dank für die Unterstützung...
Werde gleich ausprobieren...
Grüße Janesch

303 Forumthreads zu ähnlichen Themen

Pivot-Tabellen mit gefilterten Werten möglich?
Andreas

Hallo Forum,
ich habe mal eine Frage bezüglich Pivot-Tabellen. Kann eine solche Tabelle schon vorher gefilterte Werte auswerten, ohne dass die herausgefilterten Zellen beachtet werden?
MFG Andreas
10.11.2008 11:29:00
Thread-ID: 1023155
5 Beiträge
Anzeige
Pivot-Tabelle Datumsfilter in Spalte
MBorn

Hallo,
in meiner Pivot-Tabelle gibt es in Spalte A Datumswerte.
Weiß jemand, wie es gelingt, Datumswerte von/bis (zwischen zwei Grenzdaten) zu filtern?
Soweit ich sehe bietet der Filter nur eine Variation, entweder größer als oder
kleiner als....
Noch schöner wäre es wenn ic...
08.05.2009 16:57:27
Thread-ID: 1073949
2 Beiträge
Mehrere Pivottabellen auf einen Filter reagieren
vux

Hallo,
einfaches Anliegen:
Sagen wir ich habe eine Tabelle mit einer Spalte "Länder" und ein Sheet mit 20 Auswertungspivottabellen.
Kann man es einrichten, dass wenn man an einer Stelle ein Land eingibt, alle Pivottaballen nach diesem Land gefiltert werden? Sonst muss ich jedesmal 2...
16.06.2009 14:53:58
Thread-ID: 1081917
3 Beiträge
Anzeige
VBA: Autofilter auf "0" setzen
David

Hallo zusammen.
Wenn in der Datei ein Autofilter gesetzt ist und auch in einem beliebigen Feld ein Kriterium gesetzt ist, wie bekomme ich per VBA die Anzeige ALLER Elemente hin.
Mein Versuch mit Range(XYZ).Autofilter
löscht diesen komplett, was aber nciht gewollt ist. Und .Autofi...
27.08.2009 09:53:08
Thread-ID: 1098941
3 Beiträge
VBA-Funktion in Pivot-Tabelle
Ziegenpeter

Hallo Zusammen!
Vielleicht kann mir jemand bei folgendem Problem helfen:
Ich habe per VBA eine Funktion namens Sigma() geschrieben. Sie funktioniert problemlos. Nun will ich diese Funktion auch in einer Pivot-Tabelle nutzen, das funktioniert nicht.
Beispiel:
Das einzufügende ber...
10.09.2009 20:19:28
Thread-ID: 1101842
3 Beiträge
Benutzerdefinierter Filter Pivot table
Carmen

Hallo zusammen,
ich würde so gerne in einer Pivot einen Filter setzen wie beim Auto Filter, doch leider finde ich nur die Möglichkeit alle Werte einzeln zu selektieren. Besonders toll wäre es wenn ich Filtern könnte "entspricht" XY oder ist "größer als".
Weiß jemand von Euch wie das geh...
27.11.2009 10:16:22
Thread-ID: 1120459
4 Beiträge
Pivottabelle in VBA
David

Hallo an alle.
Ein großes schwarzes Loch meiner VBA-Kenntnisse betrifft Pivottabellen und wie ich gerade wieder erfahren musste, ist der Recorder diesbezüglich nicht zu gebrauchen.
Folgendes Problem:
Ich habe in einer Tabelle eine bestehende Pivottabelle. Diese greift auf eine ander...
02.12.2009 17:02:21
Thread-ID: 1121448
3 Beiträge
PivotTabellen - Filter
Jonathan

Abend zusammen!
Ist es irgendwie möglich, in PivotTabellen auch die Spaltenbeschriftungen in den Bereichsfilter einzufügen? Die Bereichsfilter stehen ja immer auch in Zellen über der Tabelle. Möchte ich die Spaltenbeschriftungen schnell eingrenzen, muss ich immer erst die Feldliste anzeigen...
17.03.2010 00:16:11
Thread-ID: 1146458
2 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
19
1
2
9
2
2
3
2
1
1
3
4
2
1
2
2
2
1
4
1
1
2
1
3