Schlagwort: Address

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.

Excel-Objekte, Makrorekorder

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
Kommentar hinterlassen