Probleme bei Aktualisierung von Pivot T über Makro
01.05.2005 23:46:54
Pivot
Ich habe folgendes Problem: Ich habe ein Excel File mit mehreren Datenblätter in denen sich die Datensätze befinden. Im ersten Tabellenblatt habe ich sämtliche Auswertungen gemacht darunter auch einige Pivtotabellen (dessen Datten befinden sich auf den anderen sheets, im selben File). Nun wollte ich eine Befehlsschaltfläche machen über die alle Daten aktualisiert werden (ich habe auch einige Abfragen im File) auch die Pivottabellen. Ich hab es mit folgenden Code versucht. Dieser löst aber nur eine endlose Berechnung aus. Kann mir jemand weiter helfen?
Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Intersect(Target, Range("A:A"))
If Target Is Nothing Then Exit Sub
Dim pT As PivotTable
For Each pT In ActiveSheet.PivotTables
pT.RefreshTable
Next pT
End Sub
Gruss
Alfred