Pivot-Tabellen mit VBA

[mikeho]

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

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

[WillWissen]

Hallo Mike,

Anzahl der verschiedenen Datums (Mehrzahl von Datum ?, Egal)

Plural: Daten

[mikeho]

...wenigstens ein Punkt ist schon gelöst

[atilla]

Hallo,

der nächste Punkt hängt wahrscheinlich mit diesem Punkt zusammen.
Gib die Datumsangabe mal so ein:

DateValue("02.03.2015")