Sprachenproblem - run-time error 1004
28.09.2007 13:55:58
phil
habe ein umfanreiches Makro, das weltweit zum Einsatz kommt, sprich in Excel auf verschiedenen Sprachen ausgeführt wird.
Kurz ab, es werden Pivot Tabellen erstellt, in denen auch berechnete Felder eingefügt werden.
Nun gibt es offensichtlich in einigen Ländern ein Problem mit foldendem Code:
Sub berechnung_einfuegen()
Application.ScreenUpdating = False
Sheets("abc").Select
ActiveSheet.PivotTables("abc").CalculatedFields.Add "Feld1", "=rev /tage", True
ActiveSheet.PivotTables("abc").PivotFields("Feld1").Orientation = xlDataField
ActiveSheet.PivotTables("abc").DataPivotField.PivotItems("Summe von Feld1"). _
Caption = "revenue per day"
With ActiveSheet.PivotTables("abc").PivotFields("revenue per day")
.NumberFormat = "0.00"
End With
With ActiveSheet.PivotTables("uci").DataPivotField
.Orientation = xlColumnField
.Position = 1
End With
Call copy_pivot_grp
End Sub
Jemand ne Idee. Danke,
Phil
Anzeige