[Excel 2003] Fehler im Makro ausschließen

[Lasersword]

Hallo Leute,

ich hab mal wieder ein kleines VBA-Problem:

Das Makro soll eine Pivot-Tabelle erstellen,
in dieser Pivot-Tabelle sollen leere Zellen und Zellen mit blanks
ausgeblendet werden:

        With ActiveSheet.PivotTables("PivotTable3").PivotFields("Bezeichnung")
        .PivotItems("").Visible = False
        .PivotItems("(Leer)").Visible = False

Jetzt kommt es aber schon mal vor, dass eins von beiden nicht vorhanden
ist.

Wie muss ich den Befehl jetzt anpassen, dass er bei nichtvorhanden sein
einfach einen Schritt weitergeht? (ohne Umweg über den Debugger)

Sprich: "Wenn hier ein Fehler auftreten sollte, dann nimm einfach das nächste"

Vielen Dank im Voraus.

Gruß,

Lasersword

 

[chrisiiiii_cs]

On Error Resume Next

das ist der Richtige Befehl, um Fehlermeldungen zu überspringen

 

[Lasersword]

Hallo chrisiiiiii_cs,

danke für die schnelle Antwort, aber wo muss ich den Befehl platzieren?

Soll der Befehl etwa so aussehen:

1. On Error Resume Next       
2. With ActiveSheet.PivotTables("PivotTable3").PivotFields("Bezeichnung")
3. .PivotItems("").Visible = False
4. .PivotItems("(Leer)").Visible = False

Wenn also in Zeile 3 ein Fehler auftritt, geht er dann zu Zeile 4?

 

[chrisiiiii_cs]

genau

 

[Lasersword]

Hab es gerade getestet.

Funktioniert einwandfrei.

Nochmals vielen Dank.

Gruß,

Lasersword

 

[chrisiiiii_cs]

bitte gern...

achte aber darauf, das ab da an, bei allen Fehlern mit dem nächsten Schritt weitergemacht wird!

Daher besser nen:

On Error GoTo 0

noch danach.

 

[Lasersword]

Danke für den Tip,

aber bei der Auswertung die ich hier mache, kann ein Fehler
nur bei der Erstellung der Pivot-Tabellen auftauchen und da
soll er einfach drüber hinweg gehen.