PivotTabellenNamen ermitteln

Bild

Betrifft: PivotTabellenNamen ermitteln
von: harry
Geschrieben am: 26.04.2005 11:32:22
Hi leute,
stehe vor einem neuen Problem.
Ich will in meinem Workbook alle PivotTabellenNamen
in einem Array speichern. Habe folgendes bis jetzt:
-----------------------------------------------------
Option Base 1
-----------------------------------------------------


Sub PivottabelleVerlinken()
Dim Tabelle As Worksheet
Dim pt As PivotTable
Dim PivotTabellenName As String
Dim anzPT As Integer
Dim arrPT()
anzPT = 100
On Error GoTo ErrorMessage
Application.DisplayAlerts = False
Application.EnableEvents = False
For Each Tabelle In ActiveWorkbook.Worksheets
 Tabelle.Activate
 Tabelle.Unprotect ("")
  For Each pt In ActiveSheet.PivotTables
   ReDim arrPT(anzPT) ' Neue Größe des Arrays wird zugeteilt
   PivotTabellenName = TableName  ' Hier wird leider nichts gespeichert !!!
  Next pt
Next Tabelle
Application.DisplayAlerts = True
Application.EnableEvents = True
ErrorMessage:
    
Ende:
End Sub

-----------------------------------------------------
Der code ist zwar noch Lückenhaft, aber wollte fragen
wie der genaue Befehl für den TabellenNamen lautet.
Außerdem vergebe ich hier statisch die ArrayGröße.
Kann ich da nicht irgendwie die Anzahl der PT ermitteln und
dan dem Array übergeben?
Gruß
Harry
Bild

Betrifft: AW: PivotTabellenNamen ermitteln
von: harry
Geschrieben am: 26.04.2005 11:44:42
Problem fast gelöst :)
Hier der Code
For Each Tabelle In ActiveWorkbook.Worksheets
Tabelle.Activate
Tabelle.Unprotect ("")
For Each pt In ActiveSheet.PivotTables
ReDim arrPT(anzPT) ' Neue Größe des Arrays wird zugeteilt
For x = 1 To anzPT ' Die Groupe wird durchlaufen
arrPT(x) = ActiveSheet.PivotTables(x).Name ' und die Items.Namen gespeichert
Next x
Next pt
Next Tabelle
Nun will ich noch das die Vergabe der Array Größe dynamisch passiert ...
Irgendeiner eine Ideee?
Bild

Betrifft: AW: PivotTabellenNamen ermitteln
von: harry
Geschrieben am: 26.04.2005 11:48:04
Auch gefunden :)
lol
Also die Anzahl der PivotTabellen ermitteln mit dem Befehl :
anzPT = ActiveSheet.PivotTables().Count 'Speichere Anzahl der PivotTabellen
Thx :)
 Bild

Beiträge aus den Excel-Beispielen zum Thema "PivotTabellenNamen ermitteln"