Pivot mit VBA erzeugen
19.03.2018 11:18:30
Georg
folgenden Code habe ich mit dem MacroRecorder aufzeichnen lassen, da ich keine Ahnung habe, wie man mit VBA eine Pivot erzeugt.
Was ich mit dem Code nicht hinkriege bzw. ändern möchte: Die SourceDate (also das Blatt Gesamt) ist immer unterschiedlich lang, d. h. ich müsste hier eine Zeilenzählenfunktion einbauen, weiß aber nicht wie? Um sie dann in dem Code zu verwenden.
DAnke für einen Tipp oder Hilfe
Sub PivotErzeugen()
' PivotErzeugen Makro
Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Gesamt!R1C1:R75C12", Version:=xlPivotTableVersion15).CreatePivotTable _
TableDestination:="Tabelle1!R3C1", TableName:="PivotTable1", _
DefaultVersion:=xlPivotTableVersion15
Sheets("Tabelle1").Select
Cells(3, 1).Select
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Kostenstelle")
.Orientation = xlPageField
.Position = 1
End With
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Konto ")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables( _
"PivotTable1").PivotFields("Betrag "), "Summe von Betrag ", xlSum
Range("B4:B31").Select
Selection.Style = "Currency"
End Sub
Anzeige