Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: PivotChart erstellen per VBA

PivotChart erstellen per VBA
04.11.2008 11:05:00
Windalf
Hallo,
kann mir jemand sagen, wie man ne Pivotchart üblicher Weise per VBA erstellt.
Der Markorekorder hilft mir nicht weiter. Der malt dann nen leeres Chart....
Wenn man nen Pivotchart erstellt ist das nen "normales Chart" dem man die Range von dem was man malen will übergibt oder ruft man das direkt irgenwie als Eigenschaft von der Pivottabelle auf?
Kann mir jemand ein kurzen schnipsel VBA-Quellcode geben.
Angenommen piv ist ein "Zeiger" auf meinen PivotTable... wie erstelle ich daraus ein PivotChart.
Ist vermutlich ein Einzeiler aber ich weiß nicht wie das Object heisst, dass ich ansprechen muss...
Danke Gruß Windi...
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: PivotChart erstellen per VBA
04.11.2008 11:18:00
Windalf
Verdammt immer wenn ich ne viertelStunde abgekotzt habe und mich dazu entscheide im Forum zu fragen finde ich unmittelbar danach eine Lösung
So scheint es zu funktionierten
Charts.Add
ActiveChart.Location Where:=xlLocationAsNewSheet
ActiveChart.SetSourceData Source:=piv.TableRange1
Geht das "schlauer" oder ist das der Weg der Wahl...
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

PivotChart erstellen mit VBA in Excel


Schritt-für-Schritt-Anleitung

Um ein Excel Pivot Chart per VBA zu erstellen, kannst du folgende Schritte befolgen:

  1. Öffne den VBA-Editor: Drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Füge ein neues Modul hinzu: Rechtsklicke auf "VBAProject (DeineDatei.xlsx)" und wähle Einfügen > Modul.

  3. Gib den folgenden Code ein:

    Sub ErstellePivotChart()
       Dim piv As PivotTable
       ' Setze hier den Bezug zu deiner PivotTable
       Set piv = ThisWorkbook.Sheets("DeinBlatt").PivotTables("DeinePivotTabelle")
    
       ' Erstelle das PivotChart
       Charts.Add
       ActiveChart.Location Where:=xlLocationAsNewSheet
       ActiveChart.SetSourceData Source:=piv.TableRange1
    End Sub
  4. Führe das Makro aus: Drücke F5, um das Makro auszuführen und dein Pivot Chart zu erstellen.

Dieser Code setzt voraus, dass du bereits eine Pivot-Tabelle erstellt hast. Achte darauf, die Namen des Arbeitsblatts und der Pivot-Tabelle entsprechend anzupassen.


Häufige Fehler und Lösungen

  • Fehler: Leeres Chart wird erstellt

    • Lösung: Stelle sicher, dass die Pivot-Tabelle tatsächlich Daten enthält und dass der Bezug zu TableRange1 korrekt ist.
  • Fehler: "Objekt nicht gefunden"

    • Lösung: Überprüfe den Namen der Pivot-Tabelle und des Arbeitsblatts. Diese müssen exakt übereinstimmen.

Alternative Methoden

Eine weitere Möglichkeit, einen PivotChart zu erstellen, ist die Verwendung des Excel-Menüs:

  1. Markiere die Pivot-Tabelle.
  2. Gehe zu Einfügen > Diagramm.
  3. Wähle den Diagrammtyp aus und klicke auf "OK".

Diese Methode ist besonders nützlich, wenn du visuelle Anpassungen vornehmen möchtest.


Praktische Beispiele

Wenn du eine Pivot-Tabelle mit Verkaufsdaten hast, kannst du mit dem obigen VBA-Code ein Pivot Chart erstellen, das die Umsätze nach Produktkategorie darstellt. Das Diagramm wird automatisch auf einem neuen Arbeitsblatt platziert.

Hier ein Beispiel, wie du es anpassen kannst:

Sub UmsatzPivotChart()
    Dim piv As PivotTable
    Set piv = ThisWorkbook.Sheets("Verkaufsdaten").PivotTables("PivotVerkäufe")

    Charts.Add
    ActiveChart.Location Where:=xlLocationAsNewSheet
    ActiveChart.SetSourceData Source:=piv.TableRange1
    ActiveChart.ChartType = xlColumnClustered ' Beispiel für Diagrammtyp
End Sub

Tipps für Profis

  • Verwende die PivotChart-Objekte, um das Diagramm direkt aus der Pivot-Tabelle zu erstellen, anstatt ein separates Chart-Objekt zu erzeugen.
  • Experimentiere mit verschiedenen Diagrammtypen, um die beste Darstellung deiner Daten zu finden.
  • Dokumentiere deinen VBA-Code gut, um zukünftig Anpassungen einfacher vorzunehmen.

FAQ: Häufige Fragen

1. Wie kann ich ein normales Diagramm aus einer Pivot-Tabelle erstellen? Du kannst die Pivot-Tabelle markieren und dann über das Menü Einfügen ein normales Diagramm auswählen. Alternativ kannst du auch VBA verwenden und den Diagrammtyp anpassen.

2. Funktioniert dieser Code in allen Excel-Versionen? Der gezeigte VBA-Code sollte in den meisten modernen Excel-Versionen (ab Excel 2010) funktionieren. Achte darauf, dass die Objektbibliothek für VBA aktiviert ist.

Beliebteste Forumthreads (12 Monate)

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