Linksklick auf Bild mit VBA
10.04.2022 05:55:40
oraculix
In den Zellen A1:IZ1 sind Bilder.
Wenn die Bilder per linksklick geöffnet werden erscheint die Userform.
Weiters habe ich in einer anderen Tabelle eine suche die mich zu einer dieser Zellen A1:IZ1 bringt.
Aber wie kann ich das Bild dann per VBA anklicken?
Dieses Macro bringt mich zur richtigen Zelle.
'Sucht per Doppelklick in Spalte Wert
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim rngSuche As Range
Dim C As Range
If Not Intersect(Target, Range("C4:C300")) Is Nothing Then
Set C = Tabelle2.Range("C4:C300").Find(Target.Value, LookIn:=xlValues, LookAt:=xlPart)
If Not C Is Nothing Then
Set rngSuche = Worksheets("Schauspieler").Columns("A:IZ").Find(Target.Value, LookAt:=xlPart)
Application.Goto Reference:=rngSuche
End If
Cancel = True
End If
'Ein Code fehlt noch ein Linksklick auf das Bild
'Hier müsste noch das klicken auf das Bild in dieser gefundenen Zelle angeklickt werden, also
linksklick auf Bild simulieren per VBA.
End Sub
Oraculix
Anzeige
