Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: 2 Pivot Tabellen in 1 Worksheet

2 Pivot Tabellen in 1 Worksheet
26.08.2005 09:59:41
Florian
Hallo,
ich benötige eure Hilfe!
Ich möchte über ein Macro 2 Pivot Tabellen untereinander in ein Worksheet einsetzen. Die Quelldaten kommen aus zwei anderen, verschieden Worksheets.
Mein Problem ist, dass das Makro ohne Probleme die erste Tabelle erstellt, aber sobald die Zweite erstellt wird verschwindet die erste wieder obwohl ich zwei verschiedene Zellen und Tabellennamen vergeben habe.
Ich benutze die, ich glaube etwas veraltete, Funktion "PivotTableWizard". Ist das ein Problem?
Tabelle1:
ActiveSheet.PivotTableWizard SourceType:=xlDatabase, _
SourceData:="Spain!R3C1:R100C14", TableDestination:="Statistics!R4C1", _
TableName:="PivotSPAIN"
Tabelle2:
ActiveSheet.PivotTableWizard SourceType:=xlDatabase, _
SourceData:="Dubai!R3C1:R100C14", TableDestination:="Statistics!R16C1", _
TableName:="PivotDUBAI"
Vielen Dank für Eure Hilfe!
Grüße,
Florian Schmidt
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: 2 Pivot Tabellen in 1 Worksheet
26.08.2005 13:41:32
Erich
Hallo Florian,
deine Vermutung trifft - glaube ich - zu: Der Wizard kann wohl nur eine Pivottabelle.
Zwei Pivots auf ein Blatt bekommst du mit folgendem Code. (Wenn es mehr sind, kannst du auch in einer Schleife ein Array von PivotCaches erzeugen und die PÜivotTables erzeugen.

Sub Zwei_Pivots()
Dim PivCache1 As PivotCache, PivCache2 As PivotCache
Set PivCache1 = ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, _
SourceData:="Spain!R3C1:R100C14")
Set PivCache2 = ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, _
SourceData:="Dubai!R3C1:R100C14")
PivCache1.CreatePivotTable TableDestination:="Statistics!R4C1", _
TableName:="PivotSPAIN"
PivCache2.CreatePivotTable TableDestination:="Statistics!R16C1", _
TableName:="PivotDUBAI"
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Zwei Pivot Tabellen in einem Blatt erstellen


Schritt-für-Schritt-Anleitung

Um zwei Pivot Tabellen auf einem Blatt zu erstellen, kannst du den folgenden VBA-Code verwenden. Dieser Code ermöglicht es dir, mehrere Pivot Tabellen in einem Tabellenblatt zu integrieren, ohne dass eine der Tabellen verschwindet.

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Klicke auf Einfügen > Modul, um ein neues Modul zu erstellen.

  3. Füge den folgenden Code in das Modul ein:

    Sub Zwei_Pivots()
       Dim PivCache1 As PivotCache, PivCache2 As PivotCache
    
       Set PivCache1 = ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, _
       SourceData:="Spain!R3C1:R100C14")
    
       Set PivCache2 = ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, _
       SourceData:="Dubai!R3C1:R100C14")
    
       PivCache1.CreatePivotTable TableDestination:="Statistics!R4C1", _
       TableName:="PivotSPAIN"
    
       PivCache2.CreatePivotTable TableDestination:="Statistics!R16C1", _
       TableName:="PivotDUBAI"
    End Sub
  4. Schließe den VBA-Editor und gehe zurück zu Excel.

  5. Führe das Makro aus, um die Pivot Tabellen zu erstellen.


Häufige Fehler und Lösungen

  • Fehler: Die erste Pivot Tabelle verschwindet, wenn die zweite erstellt wird.

    • Lösung: Stelle sicher, dass du PivotCaches verwendest, um die Tabellen zu erstellen. Der Code oben zeigt, wie du zwei Pivot Tabellen auf einem Arbeitsblatt erstellen kannst.
  • Fehler: "Unzureichender Speicherplatz".

    • Lösung: Überprüfe, ob die Quelldaten korrekt sind und dass die Bereichsangaben stimmen.

Alternative Methoden

Wenn du zwei Pivot Tabellen vergleichen möchtest, kannst du auch in Erwägung ziehen, die Daten in einem Diagramm darzustellen. Du kannst dies tun, indem du die Pivot Tabellen in ein Diagramm umwandelst:

  1. Erstelle die zwei Pivot Tabellen wie oben beschrieben.
  2. Wähle die erste Pivot Tabelle aus und gehe zu Einfügen > Diagramm.
  3. Wähle den Diagrammtyp aus, den du verwenden möchtest.
  4. Wiederhole dies für die zweite Pivot Tabelle.
  5. Du kannst die Diagramme dann anpassen, um sie nebeneinander anzuzeigen und die Daten zu vergleichen.

Praktische Beispiele

  • Beispiel 1: Du kannst Daten aus verschiedenen Ländern (z. B. Spanien und Dubai) nutzen, um zwei Pivot Tabellen zu erstellen und diese auf einem Arbeitsblatt zu analysieren.
  • Beispiel 2: Nutze die Pivot Tabelle erstellen über mehrere Tabellenblätter-Funktion, um verschiedene Datenquellen in deiner Analyse zu berücksichtigen.

Tipps für Profis

  • Wenn du mehrere Pivot Tabellen auf einem Blatt erstellen möchtest, achte darauf, die Zielzellen so zu wählen, dass sie sich nicht überschneiden.
  • Du kannst auch die Funktion PivotTableWizard verwenden, jedoch ist es empfehlenswert, die neuen Methoden über PivotCaches zu nutzen, um mehr Flexibilität zu erhalten.
  • Verwende die Funktion "Slicers", um die Daten in mehreren Pivot Tabellen gleichzeitig zu filtern.

FAQ: Häufige Fragen

1. Wie viele Pivot Tabellen kann ich auf einem Arbeitsblatt erstellen?
Es gibt keine feste Grenze, jedoch kann die Performance der Datei darunter leiden, wenn zu viele Tabellen vorhanden sind.

2. Kann ich zwei Pivot Tabellen miteinander verknüpfen?
Ja, du kannst zwei Pivot Tabellen verknüpfen, indem du gemeinsame Filter oder Slicers verwendest, um die Daten konsistent zu halten.

3. Wie kann ich Pivot Tabellen aus zwei Arbeitsblättern vergleichen?
Erstelle die Pivot Tabellen aus den jeweiligen Arbeitsblättern und nutze Diagramme, um die Ergebnisse visuell zu vergleichen.

4. Gibt es eine Möglichkeit, mehrere Pivot Tabellen in einem Diagramm darzustellen?
Ja, du kannst die Pivot Tabellen in ein gemeinsames Diagramm umwandeln, um die Daten visuell zu vergleichen. Wähle dazu die Diagrammoptionen entsprechend aus.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige