03.03.2015, 15:26
Hallo Zusammen.
Ich muss per VBA eine Pivot-Tabelle erstellen. Diese ist relativ Simpel. Eine Beschriftung zu Anzahl der verschiedenen Datums (Mehrzahl von Datum ?, Egal)
Da meine bescheidenen VBA-Kenntnisse nicht bis zu Pivot Tabellen reichen, habe ich meinen Code durch ein Makro kreiert. Leider laufe ich auf einen mir nicht nachvollziehbaren Fehler.
Fehlermeldung: Laufzeitfehler 1004 Pivot Field Eigenschaft des PivotTable Objektes kann nicht zugeordnet werden.
Die Meldung erscheint bei der Zeile nach dem End With
Ich muss per VBA eine Pivot-Tabelle erstellen. Diese ist relativ Simpel. Eine Beschriftung zu Anzahl der verschiedenen Datums (Mehrzahl von Datum ?, Egal)
Da meine bescheidenen VBA-Kenntnisse nicht bis zu Pivot Tabellen reichen, habe ich meinen Code durch ein Makro kreiert. Leider laufe ich auf einen mir nicht nachvollziehbaren Fehler.
Fehlermeldung: Laufzeitfehler 1004 Pivot Field Eigenschaft des PivotTable Objektes kann nicht zugeordnet werden.
Die Meldung erscheint bei der Zeile nach dem End With
Code:
Sub Dia()
'>>>>>>>>>>>Nummer 8<<<<<<<<<<<<<
Sheets("Diagramm").Select
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"DIA_Roh!R1C1:R1048576C10", Version:=xlPivotTableVersion14).CreatePivotTable _
TableDestination:="Diagramm!R2C2", TableName:="PivotTable2", _
DefaultVersion:=xlPivotTableVersion14
Sheets("Diagramm").Select
Cells(2, 2).Select
With ActiveSheet.PivotTables("PivotTable2").PivotFields("lala")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("PivotTable2").AddDataField ActiveSheet.PivotTables( _
"PivotTable2").PivotFields("02.03.2015"), "Anzahl von 02.03.2015", xlCount
End Sub