Søge i rulleliste

"Da mit ark henter data fra forskellige ark, er det ikke muligt at lave en ComboBo boks.. " Skulle nok være muligt ved hjælp af VBA.

Nu er jeg ikke den store haj til VBA, så...

Har du mulighed for at sende eller uploade filen?
@-adresse under min profil.

Sendt..

Denne projektmappe:
Private Sub Workbook_Open()
    UserForm1.ComboBox1.Clear

    Load UserForm1
End Sub

Under arket ødeliste
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 1 Then
        If (Target.Row >= 16 And Target.Row <= 41) Or _
            (Target.Row >= 62 And Target.Row <= 87) Then
            UserForm1.Show 0
        Else
            UserForm1.Hide
        End If
    End If
End Sub

Userform1:
Private Sub CommandButton1_Click()
    If UserForm1.ComboBox1 <> "" Then
        ActiveCell = UserForm1.ComboBox1
        Me.ComboBox1 = ""
       
        Me.ComboBox1.SetFocus
        Me.ComboBox1.DropDown
    End If
End Sub

Private Sub UserForm_activate()
    Application.ScreenUpdating = False
   
    indsætNavne "Navne"
    indsætNavne "Ark2"      '"Instruktører"
   
    ActiveWorkbook.Sheets("Mødeliste").Select
   
    Me.ComboBox1.DropDown
End Sub
Private Sub indsætNavne(arkNavn)
Dim antalRæk
    ActiveWorkbook.Sheets(arkNavn).Select
    antalRæk = ActiveCell.SpecialCells(xlLastCell).Row

    For ræk = 1 To antalRæk
        If ActiveSheet.Range("A" & ræk) <> "" Then
            Me.ComboBox1.AddItem ActiveSheet.Range("A" & ræk)
        End If
    Next ræk
End Sub