Opslag

Function MyLopslag(OpslagsVærdi As Range, OpslagsMatrix As Range) As Variant
    Dim rVærdi As Range
    Dim Arr() As Variant
    Dim iCount As Integer, T As Integer
    ReDim Arr(1 To OpslagsMatrix.Rows.Count, 1 To OpslagsMatrix.Columns.Count)
    Arr = OpslagsMatrix
    Set rVærdi = OpslagsVærdi
    For iCount = 1 To UBound(Arr, 1)
        If Arr(iCount, 1) = rVærdi.Value Then
            If Not Arr(iCount, 3) = "" Then
                MyLopslag = Arr(iCount, 3)
                GoTo Slut
            Else
                If Not Arr(iCount, 2) = "" Then
                    MyLopslag = Arr(iCount, 2)
                    GoTo Slut
                Else
                    For T = iCount To 1 Step -1
                        If Not Arr(T, 2) = "" Then
                            MyLopslag = Arr(T, 2)
                            GoTo Slut
                        End If
                    Next
                End If
            End If
        End If
    Next
Slut:
Erase Arr
End Function