VBA Excel 2007 On error goto problem
Jeg førsøger at lave en funktion hvor det undersøges om et stykke tekst findes i en celle.I Excel arket står der f.eks. = Arbssf(A2)
Problemet er bare at hvis find kommandoen ikke finder teksten ... så kommer den ud med en error ... det har jeg forsøgt at løse ved at benytte "on error goto" ... men det virker ikke funktionen går ned når den første gang ikke finder den tekst som den søger.
Nogen som har en ide til hvordan jeg kan løse det / hvad jeg gør galt?
Function Arbssf(Tekst)
Dim aa As Integer
On Error GoTo nextend1
aa = Application.WorksheetFunction.Find("tikkad", Tekst, 1)
nextend1:
On Error GoTo nextend2
aa = aa + Application.WorksheetFunction.Find("andskade", Tekst, 1)
nextend2:
On Error GoTo nextend3
aa = aa + Application.WorksheetFunction.Find("rilleskade", Tekst, 1)
nextend3:
On Error GoTo nextend4
aa = aa + Application.WorksheetFunction.Find("ehandlingsudgifter", Tekst, 1)
nextend4:
On Error GoTo nextend5
aa = aa + Application.WorksheetFunction.Find("ransportudgifter", Tekst, 1)
nextend5:
On Error GoTo nextend6
aa = aa + Application.WorksheetFunction.Find("edicinudgifter", Tekst, 1)
nextend6:
If aa > 0 Then
Arbssf = "ASL"
End If
End Function
