AW: ListBox klick Bild Einfügen
08.08.2021 13:38:49
Nepumuk
Hallo,
teste mal:
Option Explicit
Private Sub Lst_Treffer_Click()
Const FOLDER_PATH As String = "D:\EMDB\HTML\ExcelCovers\"
Dim strFilename As String
strFilename = Dir$(PathName:=FOLDER_PATH & Lst_Treffer.List(Lst_Treffer.ListIndex, 1) & ".*")
If strFilename vbNullString Then
Set Image1.Picture = LoadPicture(Filename:=FOLDER_PATH & strFilename)
Else
Set Image1.Picture = Nothing
End If
End Sub
Private Sub UserForm_Initialize()
StartUpPosition = 0 'manual
Top = 0
Left = 0
'Listbox Treffer Spalten einstellen
With Lst_Treffer
.ColumnCount = 3
.ColumnWidths = "7cm;8cm;2cm"
End With
Call Lst_Treffer_befüllen
End Sub
Private Sub Lst_Treffer_befüllen(Optional ByVal Ftext As String = vbNullString)
'Befüllung der LST_Treffer Listbox
Dim i As Long
Call Lst_Treffer.Clear
With Worksheets("FilmDB")
For i = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
If Ftext = vbNullString Or InStr(1, .Cells(i, 1) & _
.Cells(i, 2) & .Cells(i, 8), Ftext, vbTextCompare) Then
Lst_Treffer.AddItem .Cells(i, 1).Text
Lst_Treffer.List(Lst_Treffer.ListCount - 1, 1) = .Cells(i, 2).Text
Lst_Treffer.List(Lst_Treffer.ListCount - 1, 2) = .Cells(i, 8).Text
End If
Next
End With
End Sub
Gruß
Nepumuk