ErrorHandler richtig codiert?
27.10.2021 10:31:39
Eisi
mich würde gerne Eure Meinung interessieren, ob man den Code so gestalten kann, wenn man bei einem Fehler im <pre>Sub komplett aussteigen will?
Der Code funktioniert, aber ich möchte den Code so gestalten wie es sich gehört, d. h. muss er optimiert werden?
Danke für das Feedback.
VG Eisi :-)
<pre>Sub BeiFehlerExitSubMitMsgBOX()
On Error GoTo ErrorHandler
'DIM ....
'DIM ....
'DIM ....
Application.ScreenUpdating = False
tbl_AngebotDrucken.Unprotect ("")
'Codezeilen
'.......................
'.......................
'.......................
'.......................
tbl_AngebotDrucken.Protect ("")
Application.Goto tbl_1_Kalkulation.Range("A13")
Application.ScreenUpdating = True
' Anfang: Fehler abfangen ************************************************************************************************************
ErrorHandler: MsgBox "Wenn im Blatt *AngebotDrucken* der Schlusstext bereits eingefügt wurde, so kann keine weitere" _
& " Position mehr hinzugefügt werden." _
& vbLf & vbLf & "Lösung:" & vbLf & vbLf & "Drücke auf den Button: *Neues Angebot erstellen* und fange mit" _
& " den Positionen an." & vbLf & "Erst wenn alle Positionen ausgewählt wurden, kann im *AngebotDrucken* der" _
& " Schlusstext hinzugefügt werden.", , "Fehlermeldung"
Application.CutCopyMode = False
Application.Goto tbl_1_Kalkulation.Range("A13")
Exit Sub
' Ende: Fehler abfangen **************************************************************************************************************
End Sub</pre>