ich habe eine Pivottabelle, die per Makro erzeugt wird und ein vordefiniertes Format hat. Nun sollen aber die Zahlen anders formatiert werden als vorgegeben. Problem nun: das neue Nummernformat muss nach dem Autoformat der ganzen Tabelle gewählt werden, aber: wie spreche ich die Felder dann an? Habs proboert, bekomme aber Fehlermeldung. Super, wenn Ihr mir dabei helfen könntet.
Gruss Florian
' Tabelle6: Margen VTG
Set PTCache = ChangeReportDatei.PivotCaches.Add _
(SourceType:=xlDatabase, SourceData:=ChangeReportSheet.Range(ChangeReportSheet.Cells(5, 1), _
ChangeReportSheet.Cells(LastRowChangeReport, 60)))
Set pt = PTCache.CreatePivotTable _
(tabledestination:=ChangeStatSheet.Cells(30, 22), tablename:="Pivottable7")
On Error Resume Next
With pt
.PivotFields(7).Orientation = xlRowField 'Datum zurück
.PivotFields(11).Orientation = xlColumnField 'Status
.PivotFields(50).Orientation = xlDataField 'Änderungen der Gesamtrückstellung
.PivotFields(50).NumberFormat = "###,###,###"
.PivotFields("Antall av Delta Omsetning").Function = xlSum
.PivotFields(11).PivotItems("(tom)").Visible = False
End With
On Error GoTo 0
'[wenn unterer Teil folgt, dann Fehler]
ChangeStatSheet.PivotTables("Pivottable7").Format xlTable9
With pt.PivotFields(50)
.NumberFormat = "###,###,###"
End With