Probleme mit Errorhandler: On Error Goto Ende
26.10.2005 15:20:09
Markus
ich habe in meinem Skript (das Daten aus vielen verschiedenen Sheets zusammenträgt) folgenden Befehl am Anfang eingefügt:
Sub Test()
On Error Goto Ende
Skript
Ende:
(hier werden noch einigie Formatierungen für das Sheet durchgeführt[dabei können keine weiteren Fehler auftreten]).
End Sub
Soweit klappt das auch gut und mein Ziel, dass die Formatierungen durchgeführt werden egal ob das Skript richtig durchgelaufen ist, oder ein Fehler aufgetreten ist, ist damit auch erreicht.
Allerdings kann ich mit dieser Variante keine MsgBox mit "Es ist ein Fehler aufgetreten" mehr einbauen, weil die ja dann auch hochkommen würde, wenn das Skript ohne Probleme durchgelaufen ist.
Deshalb meine Frage: ist es möglich soetwas wie z.B. If Error=True Then MsgBox "Fehler aufgetreten" einzubauen, oder müsste ich für den Fall dass ein Fehler aufgetreten ist ein Extra Ende für das Skript einbauen (mit den ganzen Formartierungen usw.)?
Hoffe ich habe mich nicht zu umständlich ausgedrückt! Danke für jede Antwort im voraus!!
Gruß
Markus