pivot makro fehlermeldung
28.05.2009 22:36:11
ps
habe folgendes Makro für eine Pivot Tabelle vorliegen.
Leider erhalte ich eine Fehlermeldung wie folgt:
"Die Orientation-Eigenschaft des Pivot-Field Objektes kann nicht festgelegt werden"
Wenn ich auf Debugger klicke zeigt er mir eine fehlerhafte Stelle an. Im nachfolgenden Makro markiere diese Stelle Fett.
Wenn ich die Fett markierte Stelle ausblende läuft das Makro ohne Probleme.
Das makro läuft übrigens auch durch, wenn ich die Datenmenge aus der Quelltabelle reduziere. Momentan habe ich ca. 20.000 Zeilen. Wenn ich das Makro mit 1.000 Zeilen laufen lasse funktioniert es. Habt ihr eine Idee wie ich es auch mit großen Datenmengen zum laufen bekomme?
'------PIVOT 3106-----
Sub pivot3106()
Dim bereich As Range
' Prüft wie viele Zeilen im Registerbaltt verwendet werden und nutzt die gesamte Tabelle für _
die Pivot Tabelle
Sheets("EXCEL Quelltabelle").Activate
Set bereich = ActiveSheet.UsedRange
Range(bereich.Address).Select
'Erstellt eine Pivot Tabelle
ActiveSheet.PivotTableWizard _
SourceType:=xlDatabase, SourceData:= _
bereich, TableDestination:="", tablename:="pivot"
With ActiveSheet.PivotTables("pivot")
'Seitenfeld
.PivotFields("Unterkennzeichen").Orientation = xlPageField
.PivotFields("BU").Orientation = xlPageField
'Zeilenfeld
.PivotFields("EHG").Orientation = xlRowField
.PivotFields("MDF").Orientation = xlRowField
.PivotFields("Identnummer").Orientation = xlRowField
'Spaltenfeld
' es werden keine Spaltenfelder benötigt ansonsten siehe Bsp.code .PivotFields("BU"). _
Orientation = xlColumnField
'Datenfeld
.PivotFields("Einkaufsmenge").Orientation = xlDataField
.PivotFields("Rechnungswert").Orientation = xlDataField
.PivotFields("gew. Preis").Orientation = xlDataField
.PivotFields("Prozentuale Abweichung").Orientation = xlDataField
.PivotFields("Abs.Diff").Orientation = xlDataField
'Einschränkungen der Seitenfelder
ActiveSheet.PivotTables("pivot").PivotFields("BU").CurrentPage = _
"3106"
'Teilergebnisse ausblenden
Range("C4").Select
ActiveSheet.PivotTables("pivot").PivotFields("Identnummer").Subtotals = Array( _
False, False, False, False, False, False, False, False, False, False, False, False)
End With
ActiveSheet.Name = "PIVOT 3106"
Sheets("Control Panel").Select
Range("A1").Select
End Sub