Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Wert aus Zeile1 in Combobox

Wert aus Zeile1 in Combobox
14.08.2021 11:04:08
oraculix
Hallo
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
Gruß
Oraculix
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wert aus Zeile1 in Combobox
14.08.2021 11:33:57
Nepumuk
Hallo,
so:

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
.ComboBox1.Text = Cells(1, objShape.TopLeftCell.Column).Text
Call .Show
End With
Set objShape = Nothing
End Sub
Gruß
Nepumuk
Anzeige
AW: Danke Genial wie immer
14.08.2021 11:50:53
oraculix
Danke genau so wollte ich das.
Übrigens das mit dem Absturz Problem habe ich gelöst.
Statt mühsam in die Zwischenablage kopieren einfach
Txt_Eingabe = ListBox1
Gruß
Oraculix
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige