Lopslag

http://www.eksperten.dk/spm/601231

Prøv evt. at de på denne løsning:

www.kronsell.net/flerforekomstopslag.htm

Hej Jkrons

jeg prøvet din løsning,jeg tror jeg gøre noget forkert.
kan ikke finde ud af det har også hent Jans Udvidelser.
brugt din eksampler også se her

formular i E1 =FLOPSLAG(D1;2;A1:C5;3)

Jan    1    Køer    jan    #NAVN?
Bent    2    Heste       
Jan    3    Høns       
Kaj    4    Køer       
Jan    5    Får       

i visual Basic findes denne kode.

Function MULVLOOKUP(ops As Variant, num As Long, 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 i < num Then
        MULVLOOKUP = 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
                MULVLOOKUP = c.Offset(0, ofs - 1).Value
                Exit Function
            End If
        End If
    Next c
End Function

Hvis du har hentet eksemplet, skal du bruge MULVLOOKUP i stedet FLOPSLAG.

har du et forslag til formular.
=MULVLOOKUP(D1;2;A1:C5;3)

Jan    1    Køer    jan
Bent    2    Heste   
Jan    3    Høns   
Kaj    4    Køer   
Jan    5    Får

Med data i A1½ til C5. Skriv Jan i D1. I E1 - E5 skriver du 1, 2, 3, 4, 5.

Indsæt denne i F1

og kopier nedad:

=mulvlookup($D$1;E1;$A$1:$C$5;3)

Når den giver #I/T! er det frodi, der ikke er flere forekomster af det, der står i D1.

Tak Jkrons

den virker som den skal. et svar tak

Et svar.