Wert aus Zeile1 in Combobox
14.08.2021 11:04:08
oraculix
In der Tabelle klicke ich ein Beliebiges Bild in Zeile 1 an (unter dem Bild steht der Schauspielername Zeile1)
dann wird die Userform1 angezeigt und die werte aus der Tabelle werden in Listbox1 angezeigt.
Aber in Zeile 1 Steht der Name des Schauspielers dieser soll in ComboBox1 auch eingetragen werden.
Frage
Wie kann ich den beliebigen Wert aus Zeile 1 der Tabelle in die ComboBox1 eintragen?
Danke
'Klick auf beliebige Zeile 1 Schauspielerbild öffnet Userform1 und zeigt Bild an
Public Sub ImageClick()
Dim objShape As Shape
Set objShape = ActiveSheet.Shapes(Application.Caller)
With UserForm1
Set .Image21.Picture = GetPicture(objShape)
.ListBox1.List = Range(Cells(2, objShape.TopLeftCell.Column), _
Cells(Rows.Count, objShape.TopLeftCell.Column).End(xlUp)).Value
Call .Show
End With
Set objShape = Nothing
End Sub
Oraculix
Anzeige