Sub Speichern
On Error goto Err_Speichern
 
 
'Dein Code zum Speichern
'--------------------------------------
 
 
Exit_Speichern:
Exit Sub
 
Err_Speichern:
    msgbox "Fehler in Funktion Speichern: " & Err.Number & " " & Err.Description
    Resume Exit_Speichern
 
End Sub