Stykliste

Jeg vil gerne have lavet en stykliste, hvor du hvis du taster et varenummer, der består af flere dele tager det hele med over.

F.eks

101020 Beslag består af
101021 10 vinkelsbeslag
101022 40 skruer

Jeg har en formel - som jeg har fundet på nettet:

Function FLOPSLAG(ops As Variant, num As Single, rn As Range, ofs As Byte)
    Dim Taeller As Long
    Dim i As Long
    i = 0
    For Each c In rn.Columns(1).Cells
        If c.Value = ops Then
            i = i + 1
        End If
    Next c
    If num - CInt(num) <> 0 Or num < 1 Then
        FLOPSLAG = CVErr(xlErrNum)
        Exit Function
    End If
    If i < num Then
        FLOPSLAG = CVErr(xlErrNA)
        Exit Function
    End If
    Taeller = 0
    For Each c In rn.Columns(1).Cells
        If c.Value = ops.Value Then
            Taeller = Taeller + 1
            If Taeller = num Then
                FLOPSLAG = c.Offset(0, ofs - 1).Value
                Exit Function
            End If
        End If
    Next c
End Function

- og den fungerer sådan set ok - den er bare mega langsom

Nogen der har et forslag ?