Private Sub Command1_Click
 
On error goto err1
dim a as integer
 
a = 6 / 0 'ein Fehler wird provoziert
 
exit sub
 
err1:
msgbox "In der Prozedur Command1_Click ist folgender Fehler aufgetreten:" _
  & _
    vbcrlf & err.number & ": " & err.description
end sub

LG,Robert

Beitrag wurde zuletzt am 02.01.09 um 23:00:45 editiert.