Søge og returnere flere værdier i én celle

Skulle nok kunne lade sig gøre - vender tilbage lidt senere..

Rem Skriv landets navn i en celle
Rem DobbeltKlik herefter - nr. indsættes i samme celle
Rem Der søg i kolonne A

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim søgEfter As String, antalRækker As Integer, ræk As Integer, p As Integer, nr As String
    antalRækker = ActiveCell.SpecialCells(xlLastCell).Row
    søgEfter = LCase(Target)
    If søgEfter <> "" Then
        For ræk = 1 To antalRækker
            If InStr(LCase(Range("A" & ræk)), søgEfter) > 0 Then
                p = InStr(Range("A" & ræk), " ")
                If p > 0 Then
                    nr = Mid(Range("A" & ræk), p + 1)
                    Target = Target & ", " & nr
                End If
            End If
        Next ræk
    End If
End Sub

Noget nyt?