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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen