Bis vor kurzem hat es noch tadellos funktioniert.
Aber jetzt zeigt er mir in Zelle A1 die Combobox statt dem Bild an.(In der Userform)
Excel erkennt in der Userform1 die Combobox aus der Tabelle als Bild und nicht das das Eigentliche Bild das er anzeigen sollte.
Es ist Ein Bild und eine Combobox in der Tabelle6 Zeile 1
Frage:
Was muß ich an dem Macro ändern das nur das Blid angezeigt wird und nicht die Combobox?
Private Sub ComboBox1_Change()
Dim objCell As Range
Dim lngRow As Long, lngColumn As Long
If ComboBox1.ListIndex >= 0 Then
Set objCell = Tabelle6.Rows(1).Find(What:=ComboBox1.Text, _
LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=True)
If Not objCell Is Nothing Then
lngColumn = objCell.Column
ListBox1.Clear
With Tabelle6
For lngRow = 2 To .Cells(.Rows.Count, lngColumn).End(xlUp).Row
ListBox1.AddItem .Cells(lngRow, lngColumn).Value
Next
End With
Set Image21.Picture = ShowPicture(Tabelle6, lngColumn)
Set objCell = Nothing
End If
End If
End Sub
GrußOraculix