Definierter Pivotaufbau per VBA - Fehlerroutine
26.05.2008 19:33:00
Andreas
ich hatte heute die Idee, einer Pivot Tabelle eine Art Gedächtnis an ihr ursprüngliches Layout zu geben. Also habe ich einmal alle PivotFields mit ihren jeweiligen Positionen ausgelesen und in zwei Listen hinterlegt. RowFields und PageFields. Auf diese Listen greife ich nun mit einem Makro und einer For Schleife zu. Es funktioniert wunderbar wie aus dem nichts baut sich die PivotTabelle auf. Aber zwei Probleme konnte ich noch nicht lösen:
1. Wie kann ich eine Fehlermeldung abfangen. In der Liste sind die Pivotfeld- Bezeichnungen fix hinterlegt. Wenn sich nun bpsw. Material in den Pivotquelldaten auf Material_TEST geändert wurde, so springt der Debugger an. Über On Error Resume Next konnte ich das abfangen bzw. übergehen. Aber mir wäre lieber, wenn eine Msgbox käme, die mitteilt: Pivotfeld & Range(Zeilenfelder)(i,2) & konnte nicht gefunden werden!
Ich wollte dies über IfError(Objekt) realisieren, aber das hat nicht funktioniert. Wie kann das gehen?
2. Sinn macht dieses Vorgehen von hinterlegten PivotLayouts ja nur, wenn ich sie immer dabei habe. Erog muß ich diese in die Person.xls packen. Wenn ich dann andere Pivots aufbauen möchte, bekomm ich aber leider den Fehler, daß er den Range nicht findet. Kann er ja auch nicht, denn die sind in der Person.xls hinterlegt. Wie läßt sich dies lösen?
Im Forum war ich schon mit dem VBA Befehl in der Suche zu Gange, habe aber keinen Ansatz gefunden, der mich weitergebracht hat.
Vielen Dank und Grüße für Eure Ideen und Hinweise.
https://www.herber.de/bbs/user/52635.xls
Grüße, Andreas Hanisch