Option Explicit
'Ort: Klassenmodul der Arbeitsmappe (in der geklickt wird)
'benötigt: UserForm1 (passende Größe zum Bild)
' Bilder müssen wie der Filmtitel in der Zelle heisen
'###############Anpassen####################
Const strFilter As String = ".jpg"
'###########################################
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim strFile As String, strPath As String
'##############Anpassen#####################
If Intersect(Range("A1:A10"), Target) Is Nothing Then
Cancel = True: Exit Sub: End If
strPath = ThisWorkbook.Path & "\"
'###########################################
strFile = strPath & Target.Value & strFilter
If Dir(strFile) = "" Then Cancel = True: Exit Sub
With UserForm1
.Picture = LoadPicture(strFile)
.Caption = Target.Value
.Show
End With
End Sub
"Man muß Gott für alles danken, sogar für Ober- ,Mittel- und Unterfranken"