Fixet celle om til opslag i vb

Fixed dato /række = P
www.splokit.com/excel/1.xls
www.splokit.com/excel/2.xls
på 2.xls A:A har jeg datoer, og på 1.xls/D1 en dato ud for den dato som er på 1.xls/di skal den finde den dato på 2.xls/A:A for at angive hvilken række Fixed er

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


Sub Opslag3()
'brynil værk
Dim arr(21, 1)
Dim arr2(9)
Dim i, o, p As Integer
p = 18 ' fixed dato

'------------------------------------
'indlæs værdier fra 2.xls for given dato (p)
Workbooks("2.xls").Activate
Sheets("Ark1").Activate

For i = 1 To 21
    arr(i - 1, 0) = Cells(p, i).Value
    arr(i - 1, 1) = Cells(1, i).Value
Next i

'------------------------------------

'indlæs opslagsværdier
Workbooks("1.xls").Activate
Sheets("Ark1").Activate
For i = 0 To 9
Cells(i + 4, 1).Select
    arr2(i) = Cells(i + 4, 1).Value
Next i

'------------------------------------

'søg i arr efter arr2-værdier
'når der kommer et hit, skriv værdien fra næste kolonne [= arr(o+1,0)]
'samt kolonnenavnet fra række 1 [arr(o,1)]

Sheets("Sheet1").Activate

For i = 0 To 9
p = i + 14 ' hvor skal der skrives på ark
    For o = 1 To 21
        If arr(o, 0) = arr2(i) Then
            Cells(p, 5).Value = arr(o + 1, 0)
            Cells(p, 4).Value = arr(o, 1)
            Exit For
      End If
    Next o
Next i

End Sub