Point til Bak for opslag

reference?

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

sorry...

Tak mugs..

Øhh og bak - fortæl mig lige...

Hvorfor virker det kun hvis jeg placerer matrix på samme ark som funktionen?

Det må have noget at gøre med at funktionen ligger forkert??

hmmmmmmmmmmm...???

Sorry endnu engang... jeg ændre navn på funktionen.. men glemte så lige at rette til sidst i funktionen... den virker aldels perfekt!! hih

Den funktion har jeg manglet i et par år... fedt...!!

Hvorfor har du lige pludselig hævet de 60 point til 200 ?

Selv Tak. Du får lige en lidt forbedret og lidt hurtigere version.
Brug den istedet, for den anden har en mindre fejl hvis du indtaster et tal lavere end din laveste værdi... :-)

Function SpecialOpslag(Area As Range, Højde As Double, Bred As Double)
  Dim dif As Double
  Dim AreaArray
  Dim i As Long, x As Long, y As Long
  AreaArray = Area
  dif = 100000
  For i = 2 To UBound(AreaArray, 1)
    If AreaArray(i, 1) >= Højde And AreaArray(i, 1) - Højde < dif Then
      dif = AreaArray(i, 1) - Højde
      x = i
    End If
  Next
 
  dif = 100000
  For i = 2 To UBound(AreaArray, 2)
    If AreaArray(1, i) >= Bred And AreaArray(1, i) - Bred < dif Then
      dif = AreaArray(1, i) - Bred
      y = i
    End If
  Next
  SpecialOpslag = AreaArray(x, y)
  Set AreaArray = Nothing
End Function

>> jakob... fordi funktionen er perfekt til mit formål - og jeg har manglet den længe.......!!! okay?