Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1600to1604
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Pivot via VBA erstellen

Pivot via VBA erstellen
21.01.2018 18:39:49
Falcosn
Hallo zusammen,
gerne würde ich einen VBA-Code erstellen, der er mir ermöglicht, per Makro eine Pivot-Tabelle in einem neuen Arbeitsblatt zu erstellen:
Soweit bin ich bis dato gekommen:

Sub PivoterstellenTest()
Dim Bereich As Range
Bereich = Worksheets("Bielefeld").Range(Worksheets("Bielefeld").Cells(4, 1), _
Worksheets("Bielefeld").Cells(10, 10))
Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, _
SourceData:=Bereich, Version:=xlPivotTableVersion14).CreatePivotTable _
TableDestination:="Tabelle5!R3C1", TableName:="PivotTable2", _
DefaultVersion:=xlPivotTableVersion14
End Sub

Könnt Ihr mir eventuell weiterhelfen?
Tausend Dank vorab!
Beste Grüße
Falcosn

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Pivot via VBA erstellen
22.01.2018 02:25:36
fcs
Hallo Falcosn,
hier ein Grundgerüst.
Für Ergänzungen zeichnest die Aktionen ambesten mit dem Makro-Rekorder auf und baust es dann passend in mein Makro ein.
Gruß
Franz
Sub PivoterstellenTest()
Dim Bereich As Range
Dim wksData As Worksheet, wksPivot As Worksheet
Dim wkb As Workbook
Dim pvTab As PivotTable, pvField As PivotField
Set wkb = ActiveWorkbook
Set wksData = wkb.Worksheets("Bielefeld")
With wksData
Set Bereich = .Range(.Cells(4, 1), .Cells(10, 10))
End With
'leeres Tabellenblatteinfügen
Set wksPivot = wkb.Worksheets.Add(After:=wksData)
'Pivotberiht nlegen
Set pvTab = wkb.PivotCaches.Create(SourceType:=xlDatabase, _
SourceData:=Bereich).CreatePivotTable _
(TableDestination:="'" & wksPivot.Name & "'!R3C1")
With pvTab
'Berichtslayout in Tabellenformat anzeigen
.RowAxisLayout xlTabularRow
'Berichtsfeld einfügen
Set pvField = .PivotFields("SPa 02")
With pvField
.Orientation = xlPageField
.Position = 1
End With
'Zeilenfeld einfügen
Set pvField = .PivotFields("SPa 01")
With pvField
.Orientation = xlRowField
.Position = 1
End With
Set pvField = .PivotFields("SPa 04")
With pvField
.Orientation = xlRowField
.Position = 2
End With
'Spaltenfeld einfügen
Set pvField = .PivotFields("SPa 03")
With pvField
.Orientation = xlColumnField
.Position = 1
End With
'Feld im Datenbereih einfügen
Set pvField = .PivotFields("SPa 10")
.AddDataField pvField, "Summe von SPa 10", xlSum
Set pvField = .DataFields("Summe von SPa 10")
pvField.NumberFormat = "#,##0.0;-#,##0.0;0.0"
End With
End Sub

Anzeige
AW: Pivot via VBA erstellen
22.01.2018 10:39:20
Falcosn
Hallo lieber Franz,
vielen lieben Dank für die sensationelle Hilfe!
Hab viel gelernt!
Hat alles geklappt!
Beste Grüße
Falcosn

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige