Supportnet Computer
Planet of Tech

Supportnet / Forum / Tabellenkalkulation

On Error GoTo fehler - obwohl kein fehler auftritt, wird fehler-Anweisung ausgeführt





Frage

Hallo Profis, ich habe ein Problem mit der ON ERROR GOTO Anweisung. Mein Code: [code]Sub Löschen() Dim hinweis As Integer Dim leer As String On Error GoTo fehler Sheets("Tabelle1").Range("A1:C20").Value = leer Sheets("DiagrammXY").Delete Exit Sub fehler: hinweis = MsgBox("Es gibt keine Werte zum löschen") End Sub[/code] Mein Beispiel: Ich habe ein Tabellenblatt und ein Diagramm welches per Knopfdruck gelöscht werden. Wenn der User zweimal "Löschen" drückt, findet VBA natürlich kein Blatt zum Löschen und soll mittels On Error GoTo fehler springen und einen Hinweis bringen. Das klappt auch wunderbar, aber wenn Blätter zum löschen vorhanden sind (also kein Fehler im Programm auftritt), führt VBA trotzdem die fehler Anweisung durch, obwohl das Programm mit Exit Sub vorher beendet werden sollte und der Hinweis "Es gibt keine Werte zum löschen" erscheint somit. Wo liegt mein Fehler? Für Hilfe wäre ich wirklich dankbar!

Antwort 1 von Hajo_Zi

Hallo Asperitas,

Ist das Diagramm "DiagrammXY" vorhanden?

Gruß Hajo

Antwort 2 von Asperitas

Hallo Hajo,

ja, das Diagramm ist vorhanden. Nur, wenn es nicht vorhanden ist, soll die Fehlermeldung erscheinen, aber sie erscheint leider auch, wenn das Diagramm vorhanden ist.

Ich habe das Programm mit F8 Schritt für Schritt durchlaufen lassen und es läuft auch durch, nur ignoriert es die Anweisung EXIT SUB und führt auch die Fehleranweisung aus.

Gruß, Asperitas

Antwort 3 von Sulaiman

Lass Dir doch den Fehlercode anzeigen:
msgbox Err

Dann weisst Du mehr (siehe Tabelle 17.1)

Antwort 4 von Asperitas

Hallo Sulaiman,

ich habe Dank Deiner Übersicht der Fehlerbehandlung, mein Modul nochmal umgeschrieben und nun funktioniert es.

Vielen Dank für Deine und die Hilfe der anderen Profis, die mir schon öfters geholfen haben!

Liebe Grüße, Asperitas

Antwort 5 von Hajo_Zi

Hallo Asperitas,

ich vermute mal Du hast mein Frage nicht korrekt beantwortet. Ich habe nicht gefragt ob ein Diagrammm vorhanden ist sondern mit dem Namen.

Gruß Hajo

Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: