Anzeige
Archiv - Navigation
1612to1616
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 mit VBA erzeugen

Pivot mit VBA erzeugen
19.03.2018 10:18:30
Georg
Liebe Mitglieder
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
ist erledigt
20.03.2018 12:43:30
Georg
Hab einen code gefunden
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige