In der Cheopspyramide wurde eine unbekannte zwei Meter hohe und neun Meter lange Kammer entdeckt. In Ägypten eine Sensation, in München 1.800 Euro kalt.

Eigentlich weiß ich es. Bin aber trotzdem (mal wieder) reingefallen.

Ich erstelle per VBA eine Liste in Excel (aus einer Visio-Zeichnung).

Auf Basis dieser Liste erstelle ich eine Pivottabelle.

Ich benötige den VBA-Code: erstelle Pivottabelle. Ich könnte copilot fragen – nein – ich entscheide mich für den Makrorekorder:

Sub PivotErstellen()
'
' PivotErstellen Makro
'

'
    Application.CutCopyMode = False
    Sheets.Add
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Tabelle1!R1C1:R76C6", Version:=8).CreatePivotTable TableDestination:= _
        "Tabelle2!R3C1", TableName:="PivotTable1", DefaultVersion:=8
    Sheets("Tabelle2").Select
    Cells(3, 1).Select
    With ActiveSheet.PivotTables("PivotTable1")
        .ColumnGrand = True
        .HasAutoFormat = True
        .DisplayErrorString = False
        .DisplayNullString = True
        .EnableDrilldown = True
        .ErrorString = ""
        .MergeLabels = False

Ich ändere den Code.

Und nein: die Parameter SourceData und TableDestination verlangen keinen Text, also nicht

wdQuellblatt.Range("A1").CurrentRegion.Address

sondern ein Objekt!

wdQuellblatt.Range("A1").CurrentRegion