Ein Doppelklick in der Userform1 auf ein
Bild= Image 24 soll den Wert aus der
Listbox = Lst_Treffer in der
Tabelle=FilmInfo nach dem Hypperlink in
Spalte B
finden und dann den Link öffnen.
Macht aber das Macro nicht es tut sich nichts! Es kommt auch keine Fehlermeldung
Ich Denke der Fehler liegt in dieser Zeile
What:=Lst_Treffer.Value, LookIn:=xlValues, LookAt:=xlPart)
Frage :
Wie kann ich das Ändern damit der Link gefunden wird?
Danke
'Doppelklick auf Bild sucht Hypperlink in Tabelle FilmInfo
Private Sub Image24_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim rngSuche As Range
Worksheets("FilmInfo").Activate
On Error GoTo 0
Exit Sub
Set rngSuche = Worksheets("FilmInfo").Columns(2).Find( _
What:=Lst_Treffer.Value, LookIn:=xlValues, LookAt:=xlPart) 'HIER WIRD DER FEHLER ANGEZEIGT
If Not rngSuche Is Nothing Then
Hide
Application.GoTo Reference:=rngSuche
Worksheets("FilmInfo").Activate
ThisWorkbook.FollowHyperlink rngSuche.Hyperlinks(1).Address
Set rngSuche = Nothing
End If
Cancel = True
End Sub
GrußOraculix