datenpilottabellen aktualisieren (automatisch?)

[byteeater]

guten morgen.

ich weiß , so gedacht ist es nicht, aber gibt es eine trotzdem eine möglichkeit oder einen trick, wie man datenpilottabellen automatisch aktualisieren lassen kann?
alternativ wäre denkbar, daß man, wenn man eine bestimmte zelle (zb. A1) anklickt, alle datenpilottabellen dieses tabellenblattes sozusagen mit einem klick aktualisiert werden und man nicht jede einzeln aufsuchen muß.

mit makros kenne ich mich leider noch nicht aus. wäre sehr dankbar für hilfe

lg bernd

[komma4]

Schildere doch mal Dein Problem genauer, vielleicht auch ohne einen Lösungsweg vorzugeben....?!

[byteeater]

Hmm, gar nicht so leicht genauer zu schildern.

eingentlich suche ich wirklich nur einen weg meine 5 vom Datenpilottabellen automatisch aktualisieren zu lassen. das heißt eventuell bei jedem speichern oder bei jedem aufrufen der datei. hauptsache ich muß nicht immer jede datenpilottabelle einzeln anklicken und auf aktualisieren drücken.

weiß nicht was ich da noch genauer schildern soll

lg bernd

[komma4]

Nun,
ich habe die Aktion "Daten>Datenpilot>Aktualisieren" mit dem Makro-Rekorder aufgezeichnet. Heraus kam der folgende Code, dessen letzte Anweisung auskommentiert wird (REM).
Nehme ich das REM weg und lasse das Makro laufen, dann wird meine Pivottabelle aktualisiert.
Probiere mal, ob das Dir hilft....

Code: Alles auswählen

sub refreshPivot
' recorded 2007-02-13
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:RecalcPivotTable", "", 0, Array())


end sub

[byteeater]

danke ich werde morgen mal versuchen ob ich das hinkriege da ich überhaupt noch nicht mit makros gearbeitet habe ( da wirds wohl mal zeit )

und berichte dann

lg bernd

[byteeater]

so jetzt hab ich s endlich mal geschafft es zu probieren
das kam dabei raus:


REM ***** BASIC *****

Sub Main

End Sub


sub aktualisieren
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:RecalcPivotTable", "", 0, Array())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:RecalcPivotTable", "", 0, Array())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:RecalcPivotTable", "", 0, Array())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:RecalcPivotTable", "", 0, Array())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:RecalcPivotTable", "", 0, Array())


end sub



irgendwas klappt da doch noch nicht richtig!

an was kanns liegen?

lg bernd

[Karolus]

Hallo Bernd

Warum hast du nicht einfach Winfrieds Code in deine Basic-oberfläche rüberkopiert ?
Nichts desto trotz sollte dein fünfmaliger Aufruf zur Aktualisierung auch laufen,
falls du aus Basic heraus startest musst du die beiden Zeilen :
Sub Main
End sub
entfernen, weil sonst nur dieses "leere" Makro ausgeführt wird.

Vier der identischen Codezeilen:
dispatcher.executeDispatch(document, ".uno:RecalcPivotTable", "", 0, Array())
kannst du ebenfalls entfernen.

Gruß Karo

[byteeater]

ja jetzt tuts das was ich möchte

sorry an das kopieren hatte ich gar nicht gedacht

ich hab das makro gleich zu Datei sichern zugeordnet, sodaß bei jedem abspeichern die pivottabellen abktualisiert sind. SCHÖN. das macht die sache wesentlich leichter

vielen dank nochmal
lg bernd