Hej Jörgen!

Undantagshantering i VBA sköter du med hjälp av "On Error Goto" eller "On Error Resume Next" statements.

"On Error Goto" ska efterföljas av en etikett (på en ensam rad skriver du ett valfritt namn på etiketten fölljt av ":" exempelvis ErrHandler1:). Ifall ett körfel uppstår på kod som exekveras efter "On Error Goto" flyttas exekveringen till första raden efter etiketten.

Det andra alternativet "On Error Resume Next" fortsätter exekvera nästa rad ifall ett körfel uppstår.

Generellt är "On Error Goto" att föredra. Det är troligen allra viktigast att vara restriktiv med "On Error Resume Next" som nybörjare. Som du säkert förstår kan "On Error Resume Next" användas på ett sätt som gör att du helt tappar kontroll över din kod. Det finns dock ett par tillfällen där "On Error Resume Next" är det enda tillgänliga alternativet. Det märker du genom att du får ett meddelande om körfel trots att du redan kapslat in kod under ett "On Error Goto" statement.
Då "On Error Resume Next" används ansvarsfullt ligger det i ett väldigt begränsat stycke kod och åtföljs av ett villkor där det kontrolleras ifall det uppstått ett fel ex:
If Err.Number <> 0 then
Msgbox("Ett körfel har uppstått avbryter bearbetningen")
Exit Sub
End if

Du kan återställa felhanteringen genom att använda "On Error Goto 0", då kommer ett meddelande om körfel ifall det uppstår där du också kan välja att felsöka eller avsluta.

Man bör försöka undvika undantagshantering. Det är oftast bättre att själv validera data innan den används genom villkor ex:
If Isnumeric(strTestStringVal) = False Then
Msgbox("Felaktig indata avbryter bearbetningen")
Exit Sub
End if
Man bör också försöka undvika att ha många villkor i sin kod. Det är bättre att ha en tydlig och väl genomtänkt ide. Men det är möjligen lite mycket att kräva av nybörjare.


För att lösa ditt exempel på enklaste sätt kan du lägga tilll mina ändringar nedan:

On Error Goto ErrHandler1: ' TILLAGT
Selection.Find(What:=Finn_Txt, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
On Error Goto 0 ' TILLAGT

Do
If ActiveCell.Offset(0, 8) = "" Then
ActiveCell.Offset(0, 8) = Finn_Txt
Selection.FindNext(After:=ActiveCell).Activate
End If
Loop Until ActiveCell.Offset(0, 8) <> ""
ErrHandler1: ' TILLAGT
On Error Goto 0 ' TILLAGT
Next Txt_nr