Opslag i excel med flere resultater

Her er en idé til hvordan man kunne gøre det.
Det med link ved at trykke på aa og ff, det tror jeg ikke kan lade sig gøre når de står som aa;ff - da hyperlink er på hele cellen. Hvis de havde en celle hver kunne det lade sig gøre.

Håber det kan give nogen idér :)

Sub HentVare()

Dim ProjektArk As Worksheet
Dim VareArk As Worksheet
Dim ResultatArk As Worksheet

Set ProjektArk = Sheets("Ark1")
Set VareArk = Sheets("Ark2")
Set ResultatArk = Sheets("Ark3")

ResultatRække = 2
ResultatKolonne = 1

ProjektRække = 1
ProjektKolonne = 1



Do Until ProjektArk.Cells(ProjektRække, ProjektKolonne).Text = ""
    VareRække = 1
    VareKolonne = 1
    ResultatString = ""
   
    ProjectNr = ProjektArk.Cells(ProjektRække, ProjektKolonne).Text
       
    Do Until VareArk.Cells(VareRække, VareKolonne).Text = ""
        If VareArk.Cells(VareRække, VareKolonne).Text = ProjectNr Then
            If Len(ResultatString) = 0 Then
                ResultatString = VareArk.Cells(VareRække, VareKolonne + 1).Text
            Else
                ResultatString = ResultatString & ";" & VareArk.Cells(VareRække, VareKolonne + 1).Text
            End If
        End If
        VareRække = VareRække + 1
    Loop
   
    If Len(ResultatString) > 0 Then
        ResultatArk.Cells(ResultatRække, ResultatKolonne) = ProjectNr
        ResultatArk.Cells(ResultatRække, ResultatKolonne + 1) = ResultatString
        ResultatRække = ResultatRække + 1
    End If
   
    ProjektRække = ProjektRække + 1
Loop

End Sub