Listeopslag

Hejsa.

Jeg har et resultatark for 2 hold (hjemmehold og udehold) som møder hinanden i en dyst og hvori bla, indgår felterne Licens samt navn som er det min spørgsmål handler om.

Resultatarken indeholder 2 ark med hovedarket hvor oplysninger indtastes samt et ark som man bruger som opslag.

I navnefeltet i hovedarket kan man vælge navn udfra en liste hvorved der så automatisk udfyldes licens feltet. Dette fungere helt fint for hjemmeholdet, men for udeholdet hvor der ligeledes skal indtastes navn og licensnr kan jeg kun frå den til at vise listevisning og vælge navn. Men jeg kan ikke få den til selv at udfylde licensfeltet som jeg kan for hjemmeholdet.

Jeg vedlægger min kode i VB og håber der er et lyst hovede der kan hjælpe :-)

Sub Licens()
Dim i, o, p As Integer
Dim Arr(2 To 100, 1) As Variant

Application.ScreenUpdating = False

On Error Resume Next

For i = 2 To 100
    Arr(i, 0) = Sheets("Spillerliste").Cells(i, 2).Value 'Navn
    Arr(i, 1) = Sheets("Spillerliste").Cells(i, 1).Value 'Licens
   
Next i


For o = 10 To 13
    For p = 2 To 100
        If Sheets("Holdkampskema").Cells(o, 2).Value = Arr(p, 0) Then
            Sheets("Holdkampskema").Cells(o, 1) = Arr(p, 1) 'Licens
            Exit For
        End If
    Next p
Next o
   
Application.ScreenUpdating = True
End Sub