On Error go to .... aber wie ?
heidi
da bin ich mal wieder und weiß nicht weiter.
Mein Programm soll aus einer sehr großen Datei heraus viele kleinere erstellen und
um ein paar Tabellenblätter mit Pivot-Tabellen ergänzen.
Nur bleibt dieses verflixte Makro immer hängen, wenn in der Pivot-Tabelle der Seiten-Filter für die Neukunden auf "1" gesetzt werden soll und es in der entsprechenden Tabelle jedoch keine Datensätze mit dem Wert "1" gibt. Es gibt außschließlich Werte mit 0 oder 1.
Wie kann ich nun abfragen, ob es Werte gibt mit 1 und nur dann den Filter auf Wert 1 setzen,
ansonsten den Filter (wie automatisch für Pivot-Tabellen vorgegeben) auf ALLE stehen lassen?
In folgender Zeile bleibt das Makro hängen.
ActiveSheet.PivotTables("Neukunden nicht besucht").PivotFields( _
"Neukunde/Neuer Int.").CurrentPage = "1"
Hier auch noch ein Beispiel:
https://www.herber.de/bbs/user/74166.xls
Datei wurde automatisch erzeugt, doch weil es keine Neukunden (Spalte T) gibt, wird der Filter nicht gesetzt, das Makro bleibt stehen und es werden keine weiteren Dateien mehr erzeugt.
Danke bereits im Voraus für Eure Hilfe. Wenn Ihr mir schreibt, dann bitte gleich mit einem Vorschlag,
wie der Code aussehen könnte, denn ich bin in VBA immer noch ein blutiger Anfänger.
Viele Grüße,
Heidi