Beim Klick auf ein Bild öffnet sich die Userform, hier sollte das angeklickte Bild geladen werden was aber nicht funktioniert.
Hier ist der Fehler Show Pictures wird Markiert
Set Image21.Picture = ShowPicture(Tabelle1, lngColumn)
Frage:
Was muss ich Ändern damit das Bild in die Userform eingefügt wird und wenn ich die Combobox betätige und einen anderen Eintrag wähle sollte das dazugehörige Bild in der Userform angezeigt werden.
Hoffe jemand kann mir helfen!
Danke
https://www.herber.de/bbs/user/147906.xlsm
Private Sub ComboBox1_Change()
Dim objCell As Range
Dim lngRow As Long, lngColumn As Long
If ComboBox1.ListIndex >= 0 Then
Set objCell = Tabelle1.Rows(1).Find(What:=ComboBox1.Text, _
LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=True)
If Not objCell Is Nothing Then
lngColumn = objCell.Column
ListBox1.Clear
With Tabelle1
For lngRow = 2 To .Cells(.Rows.Count, lngColumn).End(xlUp).Row
ListBox1.AddItem .Cells(lngRow, lngColumn).Value
Next
End With
'Set Image21.Picture = ShowPicture(Tabelle1, lngColumn) 'Hier ist der Fehler Show Pictures wird Markiert
Set objCell = Nothing
End If
End If
End Sub
GrußOraculix