Exel m

Du kan kun styre det når fejlen opstår i dine egne VBA-funktioner.

Det gør du ved at benytte fejlhåndtering.

Private Sub DinProcedure
  On Error Goto HåndterFejl
  '...
  '...
  '...
  Exit sub
HåndterFejl:
  Msgbox Err.Description & vbnewline & vbnewline & "fejlkode: " & Err, vbcritical, "Der opstod en fejl!"
  Resume next
  'eller
  'Exit sub
End Sub

Private sub subNavn
  On Error Goto hell

  'din kode her

  exit sub

hell:
  select case Err
    case 701
      MsgBox "Du har tastet datoen forkert"
    case else
      MsgBox "Der opstod en 'ukendt' fejl:" & VbNewLine & Err.Description & " (" & Err.Number & ")"
  end select
end Sub

Takker for hjælpen :D