Dag Arnold,
Je kwam behoorlijk in de buurt, hoor. Ik heb enkel het activeren van 'Records' moeten uitschakelen (dat change-event hoort namelijk exclusief bij blad 'Start'), en er dan voor gezorgd dat er effectief op het juiste blad wordt gezocht (With Sheets("Records")).
Ook de lus met 'teller' mocht weg, dat was nog een overblijfsel van toen we het rijnummer in je resultaten zetten.
Dat brengt mij tot deze code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$2" Then
Application.EnableEvents = False
Range("B4:B18").ClearContents
If Target <> "" Then
tezoekentitel = Cells(2, 2)
With Sheets("Records")
nummers = Filter(Application.Transpose(.Range("a1:a" & .Cells(Rows.Count, 1).End(xlUp).Row)), tezoekentitel, True, vbTextCompare)
Select Case UBound(nummers)
Case -1
MsgBox "er zijn geen titels met deze tekst", vbInformation, "Belangrijke info"
Case Is > 14
MsgBox "er zijn " & UBound(nummers) & " titels met dezelfde tekst gevonden" + (Chr(13)) + (Chr(13)) + " verfijn Uw zoekopdracht", vbInformation, "Belangrijke info"
Case Else
Cells(4, 2).Resize(UBound(nummers) + 1) = Application.Transpose(nummers)
For I = 0 To UBound(nummers)
Cells(I + 4, 2).Hyperlinks.Add Anchor:=Cells(I + 4, 2), Address:=Cells(I + 4, 2)
Next I
End Select
End With
End If
Application.EnableEvents = True
Cells(2, 2).Font.Underline = xlUnderlineStyleNone
Range("B4:B18").Font.Underline = xlUnderlineStyleNone
End If
Range("B2").Select
End Sub
We horen het wel als iets nog niet duidelijk is?
Mvg,
Molly