Live-Forum - Die aktuellen Beiträge
Datum
Titel
05.10.2025 11:43:19
Bed. Format. Spezialfall, Möglich, die Registerfarbe nutzen?
04.10.2025 18:18:42
Anzahl in einer Zelle automatisch ermitteln
04.10.2025 17:44:54
Power Query - Filtern einer Spalte mittels einer Liste
04.10.2025 15:35:03
Range um eine Einzelzelle erweiternerweitern
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Pivots Filter übertragen (Pivot1 auf Pivot2)

Forumthread: 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..
Anzeige

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
;

Forumthreads zu verwandten Themen

Filtern kopieren Auswahlkriterium aus Liste
Silvi

Guten Morgen!
Hab da wiedermal ein Problem und will mal versuchen es kurz und knapp zu beschreiben. In einer Datei filtere ich zunächst per VBA die Kostenstellen heraus und stelle sie in ein anderes Tabellenblatt (Kostenstellen), in diesem Blatt werden erstmal alle doppelten Kostenstellen g...
04.02.2009 08:16:00
Thread-ID: 1046863
20 Beiträge
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
Anzeige
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
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
Anzeige
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
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
Daten PivotTabellen, Filter aktualisieren
Jonathan

Hallo zusammen!
In den Filtern meiner PivotTabellen und der "normalen" Tabellenfiltern haben sich im Laufe der Zeit viele Werte angesammelt, die in meinen Tabellen nicht mehr existieren. Ist es irgendwie möglich, diese zu löschen?
Danke Euch!
LG
03.04.2010 12:59:42
Thread-ID: 1150086
2 Beiträge
Anzeige
VBA: PivotItems sortieren in PivotTabelle
Holger

Guten Morgen liebes Forum,
erstmal möchte ich allen ein frohes, erfolgreiches und gesundes neues Jahr wünschen.
Ich erstelle per VBA eine PivotTabelle und habe mich in das Thema auch ganz gut eingelesen.
Nun habe ich als xlColumnField Perioden definiert, die Quartale beinhalten in d...
03.01.2011 10:16:04
Thread-ID: 1193673
4 Beiträge
Per VBA Änderung im Berichtsfilter abfragen PIVOT
Holger,

Hallo,
ich habe einen Worksheet mit 30 PivotTabellen.
Jede ist im Prinzip gleich aufgebaut, im Berichtsfilter gibt es zwei Elemente.
Wenn in dem einem Element etwas anderes ausgewählt wird, soll dies
automatisch auch für alle anderen PivotTabellen ausgewählt werden.
Wie läss...
04.01.2011 19:32:14
Thread-ID: 1193893
5 Beiträge
Pivot-Tabelle funktioniert nicht richtig
Uppe

Hallo Experten,
ich habe bisher noch nicht viel mit Pivot-Tabellen gemacht und habe eine Frage zu einer bestehenden.
Mein Chef hat sich in angehängter Tabelle eine Pivot-Tabelle erstellt, die alle Nummern aus Tabellenblatt 1 Spalte A auflisten soll und die Stunden aus Spalte E addieren....
26.01.2011 12:27:18
Thread-ID: 1197358
3 Beiträge
Pivot-Tabelle in Einzeldateien gefiltert umwandeln
Thomas

Hallo liebe Forumsgemeinde,
ich benötige eure Hilfe bei folgendem Problem:
- Eine Pivot-Tabelle, nachstehend Master genannt, soll über die Ausprägungen eines definierten Seitenfelds (Filter-Seitenfeld) gefiltert und abgespeichert werden in eine separate Pivot-Datei, nachstehend Extrakt...
10.03.2011 16:26:59
Thread-ID: 1204839
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige