Pivot per VBA erstellen
18.12.2015 23:33:36
EasyD
ich freu mich jetzt schon wieder auf die super Lösung hier im Forum, bin gespannt
ich möchte eine Pivot erstellen
gemeldeter Fehler "Bezug ungültig"
Code:
Sub Kontoerstellen ()
Set ptCache = ActiveWorkbook.PivotCaches.Add _
(SourceType:=xlDatabase, _
SourceData:="Buchungsliste!R1C1:R65536C6" & _
ActiveSheet.UsedRange.Rows.Count)
Set ptTable = ptCache.CreatePivotTable _
(TableDestination:=ActiveSheet.Range("A1"), _
TableName:="PivotKasse")
With ptTable
.PivotFields("Konto").Orientation = xlPageField
.PivotFields("Datum").Orientation = xlRowField
.PivotFields("Einnahmen").Orientation = xlSum
.PivotFields("Ausgaben").Orientation = xlSum
.PivotFields("RgNr").Orientation = xlCount
End With
'Spaltenbreite automatisch anpassen
Columns("A:D").AutoFit
Set ptCache = Nothing
Set ptTable = Nothing
End Sub
hab den Code eigentlich so aus meinen Seminarunterlagen raus geschrieben und auf meine Bedürfnisse angepasst. schon gefühlte 100x Kontrolle gelesen, aber einen Fehler kann ich nicht erkennen.
bitte Hilfe....