[Gelöst]Pivot-Tabelle aktualisieren

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: [Gelöst]Pivot-Tabelle aktualisieren

Re: [Gelöst]Pivot-Tabelle aktualisieren

von Jörg » Fr, 01.10.2021 16:50

Hallo,
Stephans Gedanke mit den geschützten Arbeitsblättern im Dokument hats gebracht.
Nachdem ich den Schutz aufgehoben hatte, war das Ändern der Formatvorlagen uneingeschränkt möglich.
Aber darauf muß man erst einmal kommen. Respekt.
Der Tabellenschutz kann anschließend wieder hergestellt werden.
Danke auch an mikeleb und Peter.

Re: Pivot-Tabelle aktualisieren

von Jörg » Fr, 01.10.2021 13:24

Stephan hat geschrieben: ↑Fr, 01.10.2021 13:11 allgemein könnte der GRund dafür sein, das im betroffenen Dokument eine Tabelle geschützt ist
Ja, das ist der Fall. Werd ich mir ansehen.

Re: Pivot-Tabelle aktualisieren

von Stephan » Fr, 01.10.2021 13:11

Wenn ich zum Beispiel unter Formatvorlagen im Kontextmenü auf "Ändern" klicke, passiert gar nichts.
allgemein könnte der GRund dafür sein, das im betroffenen Dokument eine Tabelle geschützt ist (in der Beispieldatei ist Letzteres aber nicht gegeben)


Gruß
Stephan

Re: Pivot-Tabelle aktualisieren

von Jörg » Fr, 01.10.2021 12:31

Stephan hat geschrieben: ↑Fr, 01.10.2021 10:32 vielleicht sollte der Threadstarter mal etwas rumprobieren.
funktioniert leider trotzdem nicht. Wenn ich zum Beispiel unter Formatvorlagen im Kontextmenü auf "Ändern" klicke, passiert gar nichts.
Sei es wie es sei. Das Makro funktioniert ja soweit.
Habt vielen Dank und schönes WE

Re: Pivot-Tabelle aktualisieren

von Stephan » Fr, 01.10.2021 10:32

mikeleb hat geschrieben: ↑Do, 30.09.2021 18:26 Hallo,
anbei mal ein Beispiel in dem ich in den Formatvorlagen "Pivot-Tabelle Wert" und "Pivot-Tabelle Kategorie" die Schriftgröße auf 12 festgelegt habe.
unter AOO 4.1.6 besteht bei der Beispieldatei bei mir die Situation das ich die Schriftgröße in der Zellvorlage Standard einstellen muss das sie angewendet wird, eine Einstellung in der andere Vorlage hat keine Wirkung.

Anders scheint das bei Änderung des Schriftfonts und der Farbe zu sein, aber so völlig klar ist ist der Zusammenhang nicht, vielleicht sollte der Threadstarter mal etwas rumprobieren.


Gruß
Stephan

Re: Pivot-Tabelle aktualisieren

von mikeleb » Fr, 01.10.2021 10:29

Hallo,
allerdings fehlt bei den Vorlagen in AOO der Bindestrich. Vielleicht reicht diese Namensungleichheit schon aus ...

Re: Pivot-Tabelle aktualisieren

von Jörg » Fr, 01.10.2021 10:15

Hallo,
Vielleicht ein Bug in 4.1.9?
Diese Vermutung habe ich auch, denn dieses Verhalten fiel mir vor dem Update auf 4.1.9. nicht auf.

Re: Pivot-Tabelle aktualisieren

von Mondblatt24 » Fr, 01.10.2021 09:52

mikeleb hat geschrieben: ↑Fr, 01.10.2021 09:19 da scheint sich AOO anders zu verhalten als LO.
Gibt es unter AOO überhaupt die von mir angesprochenen Formatvorlagen? Heißen sie eventuell anders?
Gibt es. Und das Verhalten ist bei mir identisch zu LO.

Vielleicht ein Bug in 4.1.9?

Screenshot_ 2021-10-01 09 45 56.png
Screenshot_ 2021-10-01 09 45 56.png (26.32 KiB) 3208 mal betrachtet


Gruß
Peter

Re: Pivot-Tabelle aktualisieren

von mikeleb » Fr, 01.10.2021 09:19

Hallo,
da scheint sich AOO anders zu verhalten als LO.
Gibt es unter AOO überhaupt die von mir angesprochenen Formatvorlagen? Heißen sie eventuell anders?

Re: Pivot-Tabelle aktualisieren

von Jörg » Do, 30.09.2021 19:21

Hallo,
nein, leider das gleiche Verhalten.
Egal, ob manuell oder per Makro aktualisiert, springt die Formatierung wieder zurück auf Schriftgröße 10.
Könnte das irgendwo unter Extras->Einstellungen voreingestellt sein?

Re: Pivot-Tabelle aktualisieren

von mikeleb » Do, 30.09.2021 18:26

Hallo,
anbei mal ein Beispiel in dem ich in den Formatvorlagen "Pivot-Tabelle Wert" und "Pivot-Tabelle Kategorie" die Schriftgröße auf 12 festgelegt habe.
Dateianhänge
pivot format.ods
(9.55 KiB) 85-mal heruntergeladen

Re: Pivot-Tabelle aktualisieren

von Jörg » Do, 30.09.2021 16:47

Hallo mikeleb,
mikeleb hat geschrieben: ↑Do, 30.09.2021 13:08 hast du schon mal versucht, die Formatvorlagen anzupassen?
das will mir nicht gelingen. Ich glaub die Pivot-Tabellen führen da ihr Eigenleben.
Die Formatierungen der Zellen des Arbeitsblattes, die nicht Bestandteil einer Pivot-Tabelle sind, bleiben erhalten.
Die Werte und Beschriftungen innerhalb der Pivot-Tabellen hingegen werden auf Standardwerte (hier Schriftgröße 10) zurückgesetzt.
Dies passiert auch, wenn nachdem die Tabelle manuell formatiert wurde (auf Schriftgröße 12), die Aktualisierung manuell angestoßen wird.
Ich habe den Code etwas angepaßt, so dass er etwas schlanker ist.

Code: Alles auswählen

Sub Pivot3
 With Thiscomponent.Sheets()
   For i = 0 To .Count-1
      With .GetByIndex(i).getDataPilotTables()
         If .Count > 0 Then
            For j = 0 To .Count-1
                .getbyindex(j).refresh()
            Next j 
         End If
      End With
   Next i   
End With
Pivot_format
end sub
'
'#####################################################
'
Sub Pivot_format
myDoc = thisComponent
mysheet= myDoc.sheets().GetByName("Außenstände")
mycell= mysheet.getCellRangeByName("A3:P55")
mycell.CharHeight="14"
ocell= mysheet.getCellRangeByName ("A29")
ocell.CharHeight="15"
oSp = MySheet.getColumns()
oSp.optimalWidth = true
end sub
Vielleicht hast Du ja eine Idee.
Ansonsten, komm ich damit aus.

Re: Pivot-Tabelle aktualisieren

von mikeleb » Do, 30.09.2021 13:08

Hallo,
hast du schon mal versucht, die Formatvorlagen anzupassen?

[Gelöst]Pivot-Tabelle aktualisieren

von Jörg » Do, 30.09.2021 10:51

Hallo Fachleute,
mit nachstehendem Makro (zugeordnet unter Tabellenereignisse) aktualisiere ich meine Pivot-Tabellen in einem Arbeitsblatt.

Code: Alles auswählen

Sub Pivot3
 With Thiscomponent.Sheets()
   For i = 0 To .Count-1
      With .GetByIndex(i).getDataPilotTables()
         If .Count > 0 Then
            For j = 0 To .Count-1
                .getbyindex(j).refresh()
            Next j 
         End If
      End With
   Next i   
End With
........
Allerdings verschwindet dabei immer die voreingestellte Formatierung (Schriftgröße).
Um die ursprüngliche Formatierung wieder herzustellen, habe ich folgenden Code an den o.g. drangehangen.

Code: Alles auswählen

..........
myDoc = thisComponent
mysheet= myDoc.sheets().GetByName ("Außenstände")
myZ = mySheet.getRows()
myZ.OptimalHeight = True
mysheet.CharHeight="12"
mycell= mysheet.getCellRangeByName ("A1:P1")
mycell.CharHeight="15"
ocell= mysheet.getCellRangeByName ("A29")
ocell.CharHeight="15"
'mySheet.Rows(0).OptimalWidth = True  
oSp = MySheet.getColumns()
oSp.optimalWidth = true
ossp = Mysheet.getRows ()
ossp.optimalHeight = true   
end sub
Das funktioniert auch, die Performance ist allerdings nicht wirklich elegant.
Wie geht das besser?
Vielen Dank im Voraus!

Nach oben