Pivot, Makro Feldnamen - woher kommt das Feld
11.02.2008 09:18:10
Lutz
ich habe diverse Pivottabellen geerbt die aus Access-Tabellen erstellt werden. Die Feldnamen sind auch oft geändert.
Habe mal dieses Makro gefunden bzw. von Luschi bekommen:
Sub pivotFeldnamen()
Dim pT As PivotTable
Dim pF As PivotField
Dim s As String
s = "aktueller Name" & vbTab & "Originalname" & vbCrLf
Set pT = ActiveSheet.PivotTables("PivotTable1")
'Abfragetext, auf der die Pivottabelle beruht
' MsgBox pT.PivotCache.CommandText
For Each pF In pT.PivotFields
s = s & pF.Caption & vbTab & vbTab & pF.SourceName & vbCrLf
Next pF
Set pF = Nothing
Set pT = Nothing
MsgBox s
End Sub
2 Fragen:
Ich bräuchte das als Makro der alle Pivottabellen in dem aktuellen Sheet abfragt
Mir wäre ein neues Blatt als Ausgabe lieber als die Dialogbox die oft schlecht zu lesen ist
Und eine Zusatzfragestellung:
Ich habe in einer Pivottabelle 3 Felder von denen ich nicht weiß wo die herkommen:
Das obige Makro bricht ab wenn ich es über die Tabelle laufen lasse - warum?
Die Spalten und Werte sind in der Basis-Access-Tabelle nicht zu finden und ich finde auch kein berechnetes Feld. Also: wie können diese Felder/Spalten in die Pivottabelle kommen? Ich habe auch schon in MS Query nachgesehen und nichts gefunden.
Vielen Dank für Eure Hilfe
Gruß Lutz