beim aktualisieren von Pivottabellen geht immer das eingestellte Format der
Daten wieder verloren, obwohl ich die Option Formatierung beibehalten eingestellt habe ! Wer kennt hier einen Ausweg ?
Vorab schon vielen Dank !
Sub PivotTabelleZahlenFormat1()
'by JFreudens
'Per Intersect wird geprüft, ob und ggfs. innerhalb welcher
'Pivottabelle sich der Cursor befindet. Das Zahlenformat dieser
'Tabelle (und nur dieser) wird geändert
Dim pvtbl As PivotTable
Dim isect As Range
For Each pvtbl In ActiveSheet.PivotTables
Set isect = Intersect(pvtbl.TableRange1, ActiveCell)
If Not isect Is Nothing Then
pvtbl.PivotSelect "", xlDataOnly
Selection.NumberFormat = "#,##0"
'alternativ "#,##0.00" mit 2 Nachkommastellen
End If
Next
ActiveCell.Select
End Sub