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
........
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
Wie geht das besser?
Vielen Dank im Voraus!