Das letzte Clever-Excel-Forum.de - Treffen
fand vom 15. - 17. September 2017 in Friedrichroda /
Thüringen / Region Großer Inselsberg statt.

Pivot-Tabellen mit VBA
#1
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
to top
#2
Hallo Mike,

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

Plural: Daten
Gruß Günter
Misserfolg ist eine Chance, es beim nächsten Mal besser zu machen.
(Henry Ford) http://www.sprueche-zum-nachdenken.eu
to top
#3
...wenigstens ein Punkt ist schon gelöst Blush
to top
#4
Hallo,

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

DateValue("02.03.2015")
Gruß Atilla
to top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste