Clever-Excel-Forum

Normale Version: Doppelklick Wert aus Listbox in die ComboBox kopieren
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
Code:
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    UserForm1.ComboBox1.Column(0) = UserForm1.ListBox1.List(ListBox1.ListIndex, 1)
End Sub

In der Listbox steht in der 2. Spalte der Name des Kunden.
In der ComboBox ist die 1. Spalte der Name des Kunden.

Egal, welche Zahlen ich in den Klammern eingebe, es kommt immer ein Fehler 70, Zugriff verweigert.
"Eigenschaft Column konnte nicht gesetzt werden".

Was muss ich ändern, damit der Name des Kunden aus der Listbox per Doppelklick in die ComboBox kopiert wird?
Hallo Achim,

der Wert steht da noch nicht in der Combobox? Wenn es so ist, versuche es so

Code:
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    UserForm1.ComboBox1.AddItem UserForm1.ListBox1.List(ListBox1.ListIndex, 1)
End Sub
Hallo Stefan,
scheint nicht so einfach zu sein den Wert der Listbox in die Combo zu bringen......

Code:
UserForm1.ComboBox1.AddItem UserForm1.ListBox1.List(ListBox1.ListIndex, 1)
Bringt den Fehler 70. Zugriff verweigert.

Code:
UserForm1.ComboBox1.Column(0).AddItem UserForm1.ListBox1.List(ListBox1.ListIndex, 1)
Bringt den Fehler 424. Objekt erforderlich.
Hallo Achim,

ich habe mal versucht, das bei mir nachzubauen. Da hat es funktioniert. Der angeklickte Wert aus der zweiten (sichtbaren) Spalte der Listbox wurde in die erste Spalte der Combobox eingetragen.