VBA - Fehler in Unterprogramm abfangen
11.07.2013 08:47:18
Max
ich habe ein kleines VBA - Problem.
Über einen Button lasse ich verschiedene Programm nacheinander ablaufen.
Private Sub Aktualisieren_Click()
Call Copytest
Call TextAendern
Call DatenKopierenIgnorNeu
Call TextAendernIgnorMeld
Call DatenKopierenSperrNeu
Call DiagrammeAktualisieren
Worksheets("Fehleranalysen").Activate
End Sub
In den einzelnen Programmen kann ich die Fehler bereits mit "On Error goto ..." abfangen. Mit "Exit Sub" kann ich die Unterprogramme dann auch vorzeitig beenden und eine Fehlermeldung ausgeben, aber dann wird ja das Programm Sub Aktualisieren_Click wieder fortgesetzt und das nächste Unterprogramm wird aufgerufen. Auch hier kann es dann wieder zu Fehlern kommen und das heißt, dass es sein kann, dass man nach einer Fehlermeldung noch mehrere weitere Fehlermeldungen wegklicken muss, bevor das Programm beendet wird.
Ich würde es gerne so haben, dass sobald der erste Fehler auftritt sowohl das betreffende Unterprogramm als auch das "Hauptprogramm" beendet werden und am besten dabei noch ausgegeben wird, bei welchem Unterprogramm der Fehler aufgetreten ist.
Wenn ich versuche mit "On Error goto..." im Hauptprogramm Sub Aktualisieren_Click zu arbeiten, hilft das leider nicht. Aber das macht ja auch Sinn, weil die Fehler in den Unterprogrammen auftreten...
Habt ihr vielleicht eine Idee oder einen Lösungsansatz/ - vorschlag?
Mit freundlichen Grüßen
Max