On Error GoTo

Hej.

Inden din label fejlmed:  skal du skrive 'exit sub'

I øvrigt kan du afstille en fejlhåndtering med 'On error goto 0' (nul)  Ellers kan det forekomme at fejl senere i subrutinen bringer en misvisende meddelelse om fejlårsag.  Du kan have flere error-handlings i samme subrutine.

Under fejlmed:  bør du tilføje:

exit sub
Resume Next

dette for hver fejlmeddelelse.

M.v.h. Jørn

Dim i As Integer
   
    On Error GoTo fejlmed


  kode..kode .. kode
  kode..kode .. kode
  kode..kode .. kode
exit sub
fejlmed:
filer(hvorlangerror) = svalgt
List2.AddItem filer(hvorlangerror), hvorlangerror
MsgBox Err.Description

End Sub