Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema "PivotTabellenNamen ermitteln"
Letzte nichtleere Zelle ermitteln Blattname ermitteln
Kopfzeile der Zelle mit dem höchsten Wert ermitteln. Ermitteln von Datei- und Pfadnamen
Zellinhalt in zweitem Blatt ermitteln Zustand von Tabellenblatt-Checkboxes ermitteln
Wert in der Zelle neben dem Maximalwert ermitteln Summe einzelner Zellwerte ermitteln
Seitenumbruch ermitteln und Übertrag erstellen Anzahl von CheckBoxes in einer UserForm ermitteln