VBA Lookup

Dim i, o, p As Integer
Dim arr(4 To 300, 1) As Variant

Application.ScreenUpdating = False

On Error Resume Next
Workbooks("mappe2.xls").Activate
If Err.Number <> 0 Then Workbooks.Open "C:\Mappe2.xls"

For i = 4 To 300
    arr(i, 0) = Sheets("Ark2").Cells(i, 1).Value
    arr(i, 1) = Sheets("Ark2").Cells(i, 11).Value
Next i
   
ActiveWorkbook.Close

Windows("Mappe1.xls").Activate

For o = 3 To 76
    For p = 4 To 300
        If Sheets("Ark1").Cells(o, 3).Value = arr(p, 0) Then
            Sheets("Ark1").Cells(o, 5) = arr(p, 1)
            Exit For
        End If
    Next p
Next o
   
Application.ScreenUpdating = True

ikke mit værk...

Private Sub CommandButton1_Click()
Dim i, o, p As Integer
Dim arr(1 To 10, 1) As Variant 'celler 1:10 i række A

Application.ScreenUpdating = False

On Error Resume Next
Workbooks("mappe2.xls").Activate
If Err.Number <> 0 Then Workbooks.Open "C:\Mappe2.xls"

For i = 1 To 10 'celler 1:10
    arr(i, 0) = Sheets("Ark2").Cells(i, 1).Value 'Ark & Række A Værdi den skal søge
    arr(i, 1) = Sheets("Ark2").Cells(i, 11).Value 'Ark & Række k hvor returværdien skal hend
Next i
   
ActiveWorkbook.Close

Windows("Mappe1.xls").Activate

For o = 1 To 10
    For p = 1 To 10
        If Sheets("Ark1").Cells(o, 3).Value = arr(p, 0) Then 'Hvor den skal finde den ønsket værdi
            Sheets("Ark1").Cells(o, 5) = arr(p, 1) 'værdi som skal retuneres
            Exit For
        End If
    Next p
Next o
   
Application.ScreenUpdating = True
End Sub

humm