Pivot Tabelle beim starten mit Vorlage erstellen

[peter.muss]

Hallo zusammen!

Ich bin echter Anfänger mit EXCEL, hab nur die ganz einfachen Grundkenntnisse wie Summe, wenn und ein paar einfache Formeln.

Jetzt möchte ich beim öffnen einer EXCEL (2019) Datei automatische eine Pivot Tabelle erstellen lassen.
Ich habe nichts gefunden, wie ich diese immer gleichen Arbeitsschritte in einer Vorlage (oder ähnliches) abspeichern kann.

Er Aufbau der Excel-Quell-Datei für die Pivot Tabelle ist immer gleich.

Das "Kochrezept" für die Pivot Tabelle habe ich als PDF mit angehängt.

Wer kann mir an der Stelle helfen?

Vielen Dank und einen sonnigen Gruß aus Hagen!

Peter Muß

[WillWissen]

Moin Peter,

mMn ist das, zumindest mit Bordmitteln, nicht möglich. Ob eventuell mit einem Makro dein Problem gelöst werden kann, weiß ich nicht - das müssen dir dann die VBA-Spezies sagen.

[ruppy]

Du kannst mit dem Makro-Recorder ein Makro aufzeichnen.
Dann brauchst du nur noch VBA-Code, der dafür sorgt dass das Makro beim Öffnen der Datei ausgeführt wird.

Ggf. musst du zunächst unter Optionen die Entwicklertools aktivieren, damit die Makro-Aufzeichnung über das Menüband verfügbar ist.

BG ruppy

[WillWissen]

Hallo ruppy,

hast du das getestet? Mir zumindest ist eine solche Aufzeichnung nicht gelungen. Es entstand ein leeres Gerüst.

   

[ruppy]

Hi WillWissen,

erst nach deiner Nachfrage.
Nutze so gut wie nie Makros (zwar nicht aber verboten aber auch nicht gern gesehen in meinem Unternehmen).
Daher habe ich von VBA nicht viel Ahnung, aber bei mir entsteht viel Code:

Sub Makro1()
'
' Makro1 Makro
'

'
    Range("K18").Select
    Application.CutCopyMode = False
    ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$BC$609"), , xlYes).Name = _
        "Tabelle1"
    Range("Tabelle1[#All]").Select
    Application.CutCopyMode = False
    Sheets.Add
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Tabelle1", Version:=6).CreatePivotTable TableDestination:="Tabelle2!R3C1" _
        , TableName:="PivotTable1", DefaultVersion:=6
    Sheets("Tabelle2").Select
    Cells(3, 1).Select
    With ActiveSheet.PivotTables("PivotTable1")
        .ColumnGrand = False
        .HasAutoFormat = True
        .DisplayErrorString = False
        .DisplayNullString = True
        .EnableDrilldown = True
        .ErrorString = ""
        .MergeLabels = False
        .NullString = ""
        .PageFieldOrder = 2
        .PageFieldWrapCount = 0
        .PreserveFormatting = True
        .RowGrand = False
        .SaveData = True
        .PrintTitles = False
        .RepeatItemsOnEachPrintedPage = True
        .TotalsAnnotation = False
        .CompactRowIndent = 1
        .InGridDropZones = False
        .DisplayFieldCaptions = True
        .DisplayMemberPropertyTooltips = False
        .DisplayContextTooltips = True
        .ShowDrillIndicators = True
        .PrintDrillIndicators = False
        .AllowMultipleFilters = False
        .SortUsingCustomLists = True
        .FieldListSortAscending = False
        .ShowValuesRow = False
        .CalculatedMembersInFilters = False
        .RowAxisLayout xlOutlineRow
    End With
    With ActiveSheet.PivotTables("PivotTable1").PivotCache
        .RefreshOnFileOpen = False
        .MissingItemsLimit = xlMissingItemsDefault
    End With
    ActiveSheet.PivotTables("PivotTable1").RepeatAllLabels xlRepeatLabels
End Sub


BG ruppy

[peter.muss]

Vielen Dank an alle!

Habe die Makro-Lösung hinbekommen!

Peter