Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1140to1144
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
1140to1144
1140to1144
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Pivot Tabelle Quelle per VBA ändern

Pivot Tabelle Quelle per VBA ändern
Elias
Hallo Forum,
ich habe in einer Datei die Tabelle1 und Tabelle2.
Beide haben exakt denselben Aufbau, enthalten aber Daten zweier Standorte.
Nun habe ich eine Pivottabelle in Tabelle3 erstellt, die die Tabelle1 komplett erfasst.
Da die Datei so schon recht umfangreich ist, möchte ich die Quelle der Pivot per Button umschalten,
nämlich zwischen Tabelle1 und Tabelle2.
Was ich nun benötige ist die Codezeile, die die Quelle ändert, ich komme da nicht weiter.
Alles andere ist klar.
Aus der Suche wurde ich nicht recht schlau...
Gruß
Elias

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

Betreff
Benutzer
Anzeige
AW: Pivot Tabelle Quelle per VBA ändern
24.02.2010 20:11:31
fcs
Hallo Elias,
nachfolgend ein Code-Beispiel, dass du anpassen muss.
Wenn du Sorgen mit der Dateigröße bei Dateien mit Pivot-Berichten hast, dann solltest du unter den Optionen für die Pivottabelle(n) die Option "Quelldaten mt Datei speichern" deaktivieren.
Gruß
Franz 
'Aufgezeichnet und modifiziert unter Excel 2007 im Kompatibilitätsmodus
Sub PivotQuelle_Tabelle1()
Call QuellePivot(wksQuelle:=Worksheets("Tabelle 1"))
End Sub
Sub PivotQuelle_Tabelle2()
Call QuellePivot(wksQuelle:=Worksheets("Tabelle 2"))
End Sub
Sub QuellePivot(wksQuelle As Worksheet)
' PivotQuelleAendern
Dim sBereich As String
Const sTabPivot As String = "Pivot" 'Name des Tabellenblatts mit Pivottabelle
With wksQuelle
'Bereich mit Quelldaten - Spalten 1 bis 8 der Tabellenblätter
sBereich = .Range(.Cells(1, 1), _
.Cells(.Rows.Count, 1).End(xlUp).Offset(0, 7)).Address(ReferenceStyle:=xlR1C1)
End With
With ActiveWorkbook
.Worksheets(sTabPivot).PivotTables(1).ChangePivotCache .PivotCaches.Create _
(SourceType:=xlDatabase, _
SourceData:=.Path & "\[" & .Name & " ]" & wksQuelle.Name & "!" & sBereich, _
Version:=xlPivotTableVersion10)
.Worksheets(sTabPivot).PivotTables(1).PivotCache.Refresh
'Quelltabelle oberhalb von Pivotbericht-Daten eintragen
.Worksheets(sTabPivot).Range("B1") = wksQuelle.Name
End With
End Sub

Anzeige
AW: Pivot Tabelle Quelle per VBA ändern
25.02.2010 01:06:48
Elias
Hallo Franz,
der erste Tip war echt Gold wert.
Ich habe erst angefangen mit Pivots zu arbeiten und taste mich mit "Versuch & Irrtum" nach und nach an die Materie... :-)
Da wurden dann aus 8MB glatt nur 1,7.
Sollte das Makro sich auch als so treffend erweisen, konnte ich leider noch nicht testen, dann ist alles bestens.
Vielen Dank.

186 Forumthreads zu ähnlichen Themen

Datenbereich dynamisch in Pivot-Tabelle einbinden
Markus

Hallo allerseits,
ich habe folgendes Problem. Für die Erstellung einer Pivot-Tabelle muß ich den Datenbereich manuell selektieren. Da sich aber mein Datenbereich ständig ändert, würde ich das ganze automatisiert selektieren lassen. Wie krieg' ich das in dem folgenden Makro unter ?:
Rang...
02.09.2008 14:20:30
Thread-ID: 1006792
4 Beiträge
Anzeige
Pivottabelle: Probleme bei Datenerweiterung
Antje

Hallo zusammen!
Mein Problem betrifft Pivottabellen. Ich bin, was das betrifft, leider nicht so fit.
Ich habe eine Grundtabelle mit ca. 21000 Quelldatensätzen, die in eine Pivottabelle mit 7 Auswahlkriterien zusammengefasst wird.
Aufgeschlüsselt ist das alles nach den 12 Monaten des...
19.01.2009 21:47:55
Thread-ID: 1041664
4 Beiträge
Umwandeln PIVOT-Tabelle in reguläre Datentabelle
Susi

Hallo liebe Excel-Freunde,
ich habe eine Pivot-Tabelle aus einer umfangreichen Datenmenge erstellt und das Datum nach Quartalen gruppiert. Diese Daten der neuen Pivot-Tabelle möchte ich nun weiterverwenden. Das Problem dabei ist, das ich die Werte der Pivot-Tabelle in eine neue reguläre Dat...
04.02.2009 12:03:00
Thread-ID: 1046976
5 Beiträge
Anzeige
Zuviele Daten in Pivottabelle?
Lonni

Hallo Cracks...
hoffe Ihr könnt mir eine Antwort auf meine Fragestellung geben...?
Ich habe zwei Tabellen auf einem SQL-Server als Datenbasis für eine Pivottabelle in Excel. Wenn ich die eine Pivottabelle mit rd. 25.000 Datensätzen nutze funktioniert alles wunderbar. Switche ich auf die...
25.03.2009 17:52:34
Thread-ID: 1063900
4 Beiträge
Pivot-Tabelle: Gruppierung von Daten
Daten

Hallo,
ich habe folgende Frage:
In einer Pivot-Tabelle lässt sich ja das Datum eigentlich "gruppieren", d.h., zusammenfassen in mehrere Tage, Monate oder Jahre, z.B. .
Woran kann es liegen, wenn Excel meldet: "Kann den markierten Bereich nicht gruppieren "?
Schon mal im voraus...
04.06.2009 20:31:03
Thread-ID: 1079260
5 Beiträge
Pivottabelle aktualisieren wenn externe Daten aktu
Johannes

Hallo,
ich hab eine Excellmappe in der viele externe CVS's als externe Daten referenziert werden und beim Start automatisch aktualisiert werden. in der selben Mappe sind auch einige Pivottabellen, die beim Öffnen automatisch aktualisiert werden. Leider klappt das oftmals nicht. Gibt es ein...
29.06.2009 12:42:23
Thread-ID: 1085099
7 Beiträge
Datenfilterung von Pivottabelle
Pivottabelle

Hallo,
ich habe 2 Fragen zur Pivottabelle, die ich im Anhang beschrieben habe.
1. Frage) Ich habe in den Datenfeld der Pivottabelle 4 Blöcke gezogen. Wenn ich nun einen Block in der Pivottabelle rausfiltere, dann ist der Block hinterher auch ganz weg bzw. ich muss manuell diesen Block w...
29.10.2009 19:05:28
Thread-ID: 1113066
3 Beiträge
Pivot Tabelle verwendet nicht alle Basisdaten
Georg

Moinmoin!
Wir können aus unserer Datenbank verschiedene, strukturell jedoch gleiche Flatfiles in Excel produzieren. Für unsere Kunden haben wir eigene Arbeitsmappen, in welchen sich Pivot-Tabellen befinden, die auf diese Flatfiles verlinkt sind, sich somit dort die Daten her holen. Die Verl...
25.11.2009 11:04:13
Thread-ID: 1118834
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
3
1
3
4
4
3
4
6
2
1
3
7
6
2
3
1
1
5
2
2
3
2
2
1
3