Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1400to1404
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
1400to1404
1400to1404
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Referenzierung Pivottabelle

VBA Referenzierung Pivottabelle
11.01.2015 16:11:10
Heinz
Hallo,
Ich möchte in angehängter Beispieldatei per VBA zu der exemplarisch gekennzeichneten Zelle und dessen Zellwert referenzieren.
Das wird wohl nur mit intersection gehen?
Den ersten Teil dazu habe ich mit folgendem Code versucht, allerdings markiert dieser Code mir den gesamten Bereich von "BD North", nicht nur die relevante Spalte von "weight (ton)".
Wie muss der richtige Code lauten, um den in der Pivottabelle angezeigten Wert in Zelle E21 per VBA zu erhalten?
Anschliessend soll dieser Wert in ein neues Tabellenblatt geschrieben werden.
Dieser code sollte ja dann auch für anderen entsprechende Zellen (mit entsprechender Bezugsänderung/Referenzierung gültig sein.
Vielen Dank für jegliche Hilfe.
Gruss, Heinz
https://www.herber.de/bbs/user/94930.xlsx

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Referenzierung Pivottabelle
11.01.2015 21:34:08
Luschi
Hallo Heinz,
das klappt in Vba so: 

Sub machMal()
Dim pt As PivotTable
Dim rg As Range
Set pt = Sheet2.PivotTables(1)
Set rg = pt.GetPivotData("Weight (ton)", "Market Division", _
"Auto", "BD", "BD NORTH", _
"Customer Aggregate 3", "TRUCKS")
MsgBox rg.Address
MsgBox rg.Value
rg.Select
Set rg = Nothing
Set pt = Nothing
End Sub
Bei dieser Definition hilft Excel gewaltig mit. Warum, zeigt dieses Video:
https://www.youtube.com/watch?v=21wrdnVyLxM (ab 2:36)
Gruß von Luschi
aus klein-Paris

AW: VBA Referenzierung Pivottabelle
12.01.2015 12:17:44
Heinz
Hallo Luschi
Vielen Dank für deine Antwort und Hilfe.
Leider habe ich vergessen meinen Ansatz in meinem Text zu schreiben: er ist: 
Sub getPivotTableData()
Dim PvtTbl As PivotTable
Set PvtTbl = Worksheets("Pivot_CA3COPG").PivotTables("PivotTable1")
PvtTbl.PivotFields("BD").PivotItems("BD North").DataRange.Select
End Sub
Das "Problem", das ich mit deinem Ansatz habe, ist: dies müsste ich dann für jedes einzelne Element wie "Trucks" machen, aber in meiner Originaldatei habe ich ziemlich viele dieser Elemente (50 mindestens). Und ich möchte basierend auf diesen referenzierten Werten Kalkulationen mit VBA machen (wie in Spalte T des Tabellenblatts zum Beispiel gemacht).
Vielleicht hast du eine Idee dazu?
Aber vielen Dank nochmals für deinen Ansatz und deine Hilfe.
Gruss, Heinz

Anzeige
AW: VBA Referenzierung Pivottabelle
12.01.2015 14:01:42
Luschi
Hallo Heinz,
ich habe dazu folgenden Vorschlag:
- übernimm aus der anliegenden txt-Datei die beiden Makros in Deine schon mal geschickte
  Demodatei
- starte das Makro 'machMal_2'
- dann sind alle Filter aus- und Detailansichten eingeschaltet
- dann kontrolliere die Formeln in Spalte 'T' und lasse sie in der Schreibweise
wie sie jetzt schon sind (also ohne PivotDatenZuordnen(...)
- ich schreibe Dir dann ein Makro, wie man solche Formeln in
PivotDatenZuordnen unwandelt
- Dieses Verfahren verwende ich immer, weil die reine Vba-Auswertung für die Katze ist,
wenn sich die Struktur der Ausgangsdaten ändert.
https://www.herber.de/bbs/user/94944.txt
Gruß von Luschi
aus klein-Paris

Anzeige
AW: VBA Referenzierung Pivottabelle
12.01.2015 18:32:29
Heinz
Vielen Dank für deine Mühe, das ist sehr nett.
Anbei die Demodatei, mit deinen Makros.
Ich denke, dass ich nach deiner neuen Arbeit das auch für die Formeln in Spalte U etc anwenden kann?
Nochmals herzlichen Dank vorab.
Viele Grüsse, Heinz
https://www.herber.de/bbs/user/94950.xlsm

306 Forumthreads zu ähnlichen Themen

VBA: Alle PivotItems ausblenden
Daniel

Hallo Profis,
wie kann ich per VBA alle PivotItems einer Pivot-Tabelle ausblenden lassen?
Vielen Dank schon einmal.
Daniel
11.09.2008 13:42:00
Thread-ID: 1009110
2 Beiträge
Anzeige
Pivot-Tabellen automatisch aktualisieren
C

Hallo,
ich möchte eine Excel Datei mit mehreren Pivot-Tabellen nachts aktualisieren, damit ich morgens aktuelle Daten vorliegen habe und nicht den Aktualisierungsprozess abwarten muss. Hinter den Pivot-Tabellen liegen Datenbank-Tabellen. Wie bekomme ich das am einfachsten hin?
Vielen D...
28.10.2008 10:27:00
Thread-ID: 1019831
2 Beiträge
Pivot automatisch aktualisieren
Tina

Hallo,
ich möchte ein Pivot Table automatisch aktualisieren lassen. Das Table befindet sich allerdings auf dem gleichen Sheet wie die Daten und da komme ich nicht weiter.
Kann mir jemand einfach, aber effektiv helfen?
30.10.2008 10:47:38
Thread-ID: 1020519
3 Beiträge
Anzeige
Makro zerschießt die Pivottabelle
J.


Hallo zusammen,
ich habe ein Makro programmiert, das Anfangs gut funktionierte.
Und zwar habe ich ein Tabellenblatt erstellt inkl. einer Pivottabelle. Durch Auswahl einer DropandDown-Liste werden automatisch andere Daten gezogen.
Nun habe ich eine Makro geschrieben, bei dem aut...
22.01.2009 16:15:40
Thread-ID: 1042685
7 Beiträge
alle Pivottabellen in Datei aktualisieren
Julia

Hallo hab folgendes Makro
Sub Pivot() ' Pivot Makro ' Makro am 25.02.2009 von mir aufgezeichnet Sheets("Pivot1").Select Range("A8").Select ActiveSheet.PivotTables("PivotTable3").PivotCache.Refresh Sheets("Pivot2").Select Range("A7").Select ActiveSheet.PivotTables("PivotTable4").PivotCach...
26.02.2009 11:08:37
Thread-ID: 1054274
2 Beiträge
Pivot Tabellen aktualisieren
Frank

Hallo zusammen!
In einer Excel-Arbeitsmappe habe ich auf unterschiedlichen Arbeitsblättern Pivot-Tabellen, die sich alle auf den selben Datenberiech beziehen. Nach Änderung von Daten im Datenbereich würde ich gern auf Knopfdruck alle Pivottabellen auf einmal aktualiesieren. Wie ist das mögl...
08.04.2009 15:29:29
Thread-ID: 1067758
3 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
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

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
1
1
1
2
1
6
1
2
6
2
2
2
7
1
2
1
4
3
2
4
1
1
3
3
3