PivotTabellenNamen ermitteln
26.04.2005 11:32:22
harry
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