Hallo Alle!
In der Tabelle Schauspieler befindet sich eine kleine Userform in der man suchen kann.
Das Problem ist aber das ein VBA Code die suche zum Absturz bringt.
Hier der Code (wenn er auskommentiert wird funktioniert die Suche gut)
Frage: Wo ist der Fehler in diesem Code?
'#######################################################################
'Fügt immer ein Bild ein bei linksklick in beliebige Spalte
'#################################################################################
Application.ScreenUpdating = False
Const FOLDER_PATH As String = "D:\EMDB\HTML\ExcelUserform1\" '"D:\EMDB\HTML\ExcelCovers\"
Dim strFilename As String
Dim objCell As Range
Set objCell = Target.Cells(1, 1)
If Not Intersect(objCell, Range("A:IZ")) Is Nothing Then
strFilename = Dir$(FOLDER_PATH & objCell.Text & ".*")
If strFilename vbNullString Then
With OLEObjects("Image1")
.Top = objCell.Top
.Left = objCell.Left + objCell.Width
'
.Visible = True
' Set .Object.Picture = LoadPicture(Filename:=FOLDER_PATH & strFilename)
End With
Else
OLEObjects("Image1").Visible = False
End If
Else
OLEObjects("Image1").Visible = False
End If
Set objCell = Nothing
'Spring mit Linksklick immer nach oben
Application.DisplayCommentIndicator = xlNoIndicator
If TypeOf Selection Is Range Then
For Each objCell In Selection
With objCell
If Not .Comment Is Nothing Then .Comment.Visible = True
End With
Next
End If
ActiveWindow.ScrollRow = ActiveCell.Row
'Springt immer zum Anfang der Tabelle
ActiveWindow.ScrollColumn = Target.Column
End Sub
Hier eine Beispielmappe ohne Bilder
https://www.herber.de/bbs/user/151835.xlsm
Gruß
Oraculix