Office: Pivot Tabelle VBA

Automate Your Pivot Table With VBA [Step By Step Guide]
Scroll hier mal runter bis zu Punkt 8) ... dort wird der VBA-Code beschrieben inkl. Link auf die OnlineHilfe.

Wie das Erscheinungsbild der Pivot-Tabelle (ohne VBA) verändert werden kann hast Du aber finden können?
[Pivot anklicken -> oben auf PivotTableTools -> Entwurf -> PT-Formate]

 

Ja, das habe ich finden können! *Smilie

Viel wichtiger wäre jedoch der direkte Import der Daten. Ist dies möglich?

 

Gegenfrage:
Haste mal versucht den Makrorekorder dafür zu verwenden?

 

Hallo Mase!
Meinst du für den Import?

 

Jup.
Die Aufzeichnung dann noch etwas frisiert; et voilà !

 

Aber wie soll das funktionieren ?
Der Import kommt doch aus dem Web, von JIRA (falls dir das etwas sagt)

 

Nö, sagt mir nichts. Aber irgendwo sind diese Daten eingelagert und JIRA holt diese da raus. Stichwort: Datenbank

 

Okay, ich probiere mein Glück *Smilie

Danke Mase für deine Unterstützung!

 

Für die Makroaufnahme werden mir die Daten allerdings direkt in eine andere Excel-Arbeitsmappe gelegt.

In Jira gibt es dort einen direkten Button "Export to Excel".
Ich kann also den Makrorekorder erst dann aktivieren, wenn der eigentliche Prozess schon passiert ist.
Hoffe ich konnte mich verständlich ausdrücken.

 

Ich sehe nun zwei Möglichkeiten:
1) Datenbank anzapfen und via SQL nach Excel importieren
2) JIRA in Excelmappe exportieren lassen; aus dieser dann importieren

zu 1)
Hast Du Zugriff auf die Datenbank via bspw ODBC ?

zu 2)
Jira vergibt sicherlich einen temp. Namen für die Datei.
Wie schaut der aus?

 

Wenn ich von Jira nach Excel exportiere vergibt es immer einen anderen Namen für die Datei. Gerade z.B.:
ICUztZtg.xls.xls

 

Mach das 3mal und poste alle drei Namen, bitte.

 

Ap2TYNSq.xls.xls

S3Ai_goK.xls.xls

g98IEVrq.xls.xls

 

mhm,
für mich folgt das bisweilen einem (noch) nicht nachvollziehbaren Muster;
=wurscht: ".xls.xls" könnte man verwenden.

Anyway:
Lad mal g98IEVrq.xls.xls (anonymisiert) hoch.

Wir sind soweit gekommen, dann schauen wir uns das auch noch an, shirley.

 

das wird mir dann als "Website" gespeichert.
Kann dir den Ordner nicht hier rein kopieren. Habe dir allerdings Screenshots gemacht, wie es bei mir angezeigt wird.
Die Tabelle im Hintergrund ist die, die es mir automatisch durch den Export in der gesonderten Arbeitsmappe anzeigt (genau die Gleiche, wie in unserem Parade-Beispiel)


Der vba-Code
pt.ActiveSheet.PivotTables("PivotTable").ShowTableStyleRowStripes = True
ActiveSheet.PivotTables("PivotTable").TableStyle2 = "PivotStyleMedium8"

funktioniert ebenfalls nicht. (Veränderung der Farbe von PivotTabelle)