Bildklick sucht Link in Tabelle
30.08.2021 12:17:46
oraculix
Ich brauche dringend einen VBA Code der folgendes machen sollte.
Bei Linksklick in Userform1 auf "Image24" soll der Text der in (Textfeld) "Txt_Eingabe" steht gesucht werden in der Tabelle "FilmInfo" Spalte B
und der Hyperlink geöffnet werden.
Könnte sich ein Experte diesen Code mal ansehen und richtig zusammen stellen
Danke
Bitte nicht lachen Anfägercode zusammengeschraubt
1.Nach klick auf image24
2.Txt_Eingabe suchen in Tabelle FilmInfo Spalte B
3.Hyperlink folgen
Private Sub image24_DblClick (ByVal Cancel As MSForms.ReturnBoolean)
Dim rngSuche As Range
Dim C As Range
Set rngSuche = Worksheets("FilmInfo").Columns(2).FindTxt_Eingabe.Value, lookat:=xlWhole)
If Not rngSuche Is Nothing Then
Me.Hide
Application.Goto Reference:=rngSuche
If Not Intersect(Target, Range("B:B")) Is Nothing Then
Set C = FilmInfo.Range("B:B").Find(Target.Value, LookIn:=xlValues, lookat:=xlPart)
If Not C Is Nothing Then
ThisWorkbook.FollowHyperlink C.Hyperlinks(1).Address
End If
Cancel = True
End If
End Sub
Oraculix
