Undgå besked om run-time error '91'

har du set her http://support.microsoft.com/kb/282153

Den påstår at det er denne linje der giver problemet:

Target.Offset(0, -1).Value = Sheets("Formål").Range("Formal").Find(Target.Value, LookIn:=xlValues).Offset(0, -1)

Jeg kan ikke se, at den her skulle søger efter det der er omtalt i artiklen. Hvad kan problemet så være?

Er det i VBA?

Så læs eventuelt dette link( http://clausoncode.dk/wp/?p=106 ), for hvordan du laver error handling i VBA.

Jeg har denne funktion:

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("A9:A100,B9:B100")) Is Nothing Then Exit Sub

    If Target.Column = 1 Then
        Target.Offset(0, 1).Value = Sheets("Formål").Range("F").Find(Target.Value, LookIn:=xlValues).Offset(0, 1)
    End If
 
    If Target.Column = 2 Then
        Target.Offset(0, -1).Value = Sheets("Formål").Range("Formal").Find(Target.Value, LookIn:=xlValues).Offset(0, -1)
    End If

End Sub

Funktionen er en dobbelt opslagsfunktion http://www.eksperten.dk/spm/861696#reply_7314259 og problemet opstår når jeg sletter de værdier der står i området opslagsfunktionen arbejder i. Den bliver påvirket af min sletning med ved ikke hvad den skal gøre. Hvad kan jeg indsætte så den ikke kommer med fejlen?

Prøv lige at indsætte denne som linie 3
hvis du trykker på delete tast stopper koden

If Target = "" Then Exit Sub

Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo ErrHandler:

If Intersect(Target, Range("A9:A100,B9:B100")) Is Nothing Then Exit Sub

    If Target.Column = 1 Then
        Target.Offset(0, 1).Value = Sheets("Formål").Range("F").Find(Target.Value, LookIn:=xlValues).Offset(0, 1)
    End If
 
    If Target.Column = 2 Then
        Target.Offset(0, -1).Value = Sheets("Formål").Range("Formal").Find(Target.Value, LookIn:=xlValues).Offset(0, -1)
    End If
ErrHandler:
  Resume Next

End Sub

denne er måske bedre

On Error Resume Next

Jeg beklager det sene svar. Jeg fik ikke brug for ovenstående, da jeg kom til at spørge om det samme igen og kabbak har svaret på dette.

clausoncode.dk og excelent kan I ikke lægge et svar hver så deler jeg points mellem jer som tak for jeres bidrag?

ok

ok