Office: Diagramm löschen wenn vorhanden

Hallo!

Ich habe eine Frage:

Wie lautet der Code, um ein Diagrammblatt zu löschen, welches nicht immer in der Arbeitsmappe existiert? Der Name des Blatts ist jedoch immer gleich wenn es denn da ist: "Testdiagramm".


Danke für eure Hilfe!

:)

 

Hallo brezelmann01,

mit er On Error-Anweisung:
Code:

Die Delete-Anweisung erzeugt normalerweise einen Laufzeitfehler, wenn das Diagrammblatt nicht existiert. Die On Error Resume Next-Anweisung unterdrückt diesen Laufzeitfehler und sorgt dafür, dass der Programmcode mit der nächsten Programmzeile fortgeführt wird. Die Anweisung On Error GoTo 0 schaltet die Unterdrückung von Laufzeitfehlern wieder ab.

Gruß Ingolf

 

Hallo Brezelmann,

hier der Code :

VBA-Code:

Sub TestdiagrammLoeschen()     'Blatt "Testdiagramm" in der aktuellen Mappe ohne Nachfragen löschen :     On Error Resume Next                'Fehler bei Codeausführung ignorieren     Application.DisplayAlerts = False   'Warnmeldungen abschalten     Sheets("Testdiagramm").Delete       'Blatt "Testdiagramm" löschen     Application.DisplayAlerts = True    'Warnmeldungen wieder anzeigen     On Error GoTo 0                     'Fehler wieder anzeigen End Sub

Code eingefügt mit Syntaxhighlighter 4.15

 

oh. das ist ja super!! Vielen Dank euch beiden. Werde es gleich mal probieren! Klasse!!