Office: Laufzeitfehler 1004

Burzl89 · 13. September 2014

Hallo Leute,

folgende Fehlermeldung, welche ich nicht lösen kann:

"Laufzeitfehler 1004: Die PivotFields-Eigenschaft des Pivottable-Objektes kann nicht zugeordnet werden."

Könnt Ihr helfen?

Mfg Burzl89

Code:

Sub Makro3()
' LA (ND_MD) Pivot

Application.ScreenUpdating = False

Dim rngDaten As Range, rngZiel As Range
Dim lngSpMax As Long, lngZlMax As Long

With ThisWorkbook.Worksheets("LA (ND_MD)")
lngSpMax = .Cells(4, .Columns.Count).End(xlToLeft).Column
lngZlMax = .Cells(Rows.Count, 1).End(xlUp).Row
Set rngDaten = .Range(.Cells(4, 1), .Cells(lngZlMax, lngSpMax))
Set rngZiel = .Cells(4, lngSpMax + 2)
End With

ThisWorkbook.PivotCaches.Create(SourceType:=xlDatabase, _
SourceData:=rngDaten, _
Version:=xlPivotTableVersion12).CreatePivotTable _
TableDestination:=rngZiel, _
TableName:="PivotTable1"
Sheets("LA (ND_MD)").Select

With ActiveSheet.PivotTables("PivotTable1")
With .PivotFields("Baujahr")
.Orientation = xlRowField
.Position = 1
End With
With .PivotFields("Nenn- weite")
.Orientation = xlRowField
.Position = 2
End With
.AddDataField ActiveSheet.PivotTables("PivotTable1").PivotFields("Laenge GIS"), "Summe von Laenge GIS", xlSum

.RowAxisLayout xlTabularRow
For Each pf In Array("RZ", "GIS-ID", "Druck-stufe", "Material", "Baujahr", "Schluessel-bezeichnung", _
"Laenge GIS", "Ortsteilname", "Ortsteil-schluessel", "Strassenname", "Strassen-schluessel", _
"Eigentuemer", "Bemerkung", "Status", "OTplusSchlüssel", "Umhüllung", "AGS")
.PivotFields(pf).Subtotals = Array(False, False, False, False, False, False, False, False, _
False, False, False, False)
Next
End With

Columns("R:T").Copy
Range("R5").Activate
ActiveWorkbook.ShowPivotTableFieldList = False
Columns("V:W").Select
Range("V5").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("V:W").EntireColumn.AutoFit
Range("A1").Select

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

:)

Burzl89 · 15. September 2014

Ich denke es liegt an den false.

Wenn mir einer den .PivotFields(pf).Subtotals = Array(False,...) erklären könnte, wäre mir schon geholfen. Ich kann nämlich nicht die Anzahl der false mit irgendetwas in verbindung bringen.

Luschi · 15. September 2014

Hallo Burzl89,

in der For-Schleife klapperst du die vorgegebenen Pivot-Felder ab und willst denen mitteilen, ob oder welche Art von Zwischensumme angezeigt werden soll.
pf.Subtotals(1) = True
pf.Subtotals(1) = False
Begrünfung siehe: Excel Pivot Table Show and Hide Items

Aber Du hast noch einen anderen Klops in der Definition der PivotTabelle:
SourceData:=rngDaten
rngDaten ist von Typ 'Range', aber lt. Code:

PivotCache. SourceData-Eigenschaft (Excel)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

muß es für Daten aus Exceltabellen der Typ "Text' sein.
Dim strDaten As String
strDaten = "'" & rngDaten.Parent.Name & "'!" & rngDaten.Address
SourceData:=strDaten

Gruß von Luschi
aus klein-Paris

PS: Die einfachen Hochkommas in strDaten maskieren eventuell vorhandene Leer- & Sonderzeichen im Tabellennamen.

Office: Laufzeitfehler 1004

Laufzeitfehler 1004

Laufzeitfehler 1004

Laufzeitfehler 1004 - Similar Threads - Laufzeitfehler 1004

Laufzeitfehler 1004 "Die Methode 'Range' für das Objekt '_Global' ist fehlgeschlagen".

Laufzeitfehler 5 und 1004

FormulaArray / Laufzeitfehler 1004

Laufzeitfehler 1004

Probleme bei Speichern laufzeitfehler 1004

Laufzeitfehler '1004': Anwendungs- oder objektdefinierter Fehler

Laufzeitfehler 1004 mit Paste-Methode