Office: Zugriff auf bestimmte interne Pivottabellen-Nr.

Hallo allerseits,

beim Generieren einer Pivottabelle zählt Excel die jeweilige Tabellen-Version automatisch nach oben. („PivotTable1“ bis „PivotTableX“).

Mein Problem ist nun, dass ich in einem Makro immer wieder auf die selbe Tabelle zugreifen muss. Somit brauche ich den gleichen internen Tabellen-Name.

Mit

ActiveSheet.PivotTables("PivotTable5").Name = "PivotTable1"

benenne ich eine bestimmte Tabelle um. Wie kann ich aber auf einen variierenden Tabellen-Namen zugreifen, um ihn umzubenennen???

Also sinngemäß

ActiveSheet.PivotTables("PivotTable[X]").Name = "PivotTable1"

Hat jemand eine Idee?

 

Hi,

ehrlich gesagt weiß ich nicht genau wie Du das meinst. Aber wenn Du eine Variable einbauen willst geht das ganz einfach so:

Code:

Dim Var As String

Var = "4"
ActiveSheet.PivotTables("PivotTable" & Var).Name = "PivotTable1"

Du musst nur daran denken, dass "Var" ein String ist....

 

Ich glaub, dass bringt mich noch nicht zum Ziel. Ich versuch es mal mit einer neuen Erklärung:

Generiere Dir mal eine einfache Pivottabelle. Wenn Du dann auf „Tabellenoptionen“ gehst, findest Du in dem sich öffnenden Fenster einen Namen („PivotTable“ & Zahl) für die Tabelle. Lösche die Tabelle und baue eine neue. Für jede neue Tabelle erhöht Excel automatisch den Zähler im internen Tabellennamen.

Nun folgendes Problem:

Ich will mir aus einer Tabelle eine Pivottabelle auf einem definierten Tabellenblatt [„Pivottabelle“] bauen lassen. Die auf dieser Seite zuvor stehenden Daten [alte Pivottabelle] lösche ich am Anfang meines Makros komplett.

Code:

[…]
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
    "Hilfstabelle2!C1:C4").CreatePivotTable TableDestination:= _
    "[Planung_Ansatz_DST_PHASE2_new_intern_2.xls]Pivottabelle!R1C1", TableName:= _
    "PivotTable1", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTables("PivotTable1").AddFields RowFields:="Geschäftszeiten", _
        ColumnFields:="Mitarbeiter"
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("Anwesenheit")
        .Orientation = xlDataField
        .Caption = "Summe von Anwesenheit"
        .Function = xlSum
        .NumberFormat = "0,0"
    End With
[…]

Lasse ich das Makro nun mehrfach wegen geänderter Quell-Daten laufen, zählt Excel den Tabellennamen intern hoch [im obigen Code beim 1. Versuch "PivotTable1"]. Da das Script auf diesen festen internen Namen zugreift, ist ab dem 2. Versuch kein Zugriff mehr möglich. Das Script bringt einen Fehler:

Laufzeitfehler ’1004’
Die PivotTables-Eigenschaft des Woksheet-Objektes kann nicht zugeordnet werden.

Da ich nicht über „Daten aktualisieren“ gehen will, brauche ich also irgendwie einen variablen Namen bzw. einen Code, der diesen Fehler nicht bringt…

 

Hi,

warum stellst Du nciht fest, wieviele "PivotTables" Du schon hast (mit "ActiveSheet.PivotTables.Count"). Und nimmst dann den nächsten Zähler. Wobei - ich weiß nicht woraus der Makroteil aufgerufen wird, den Du dort geschrieben hast - aber Du könntest doch einen festen Namen vergeben - ohen den Zähler?! Dann hast Du diese Probleme nicht...