Wert aus Listbox in Zelle eintragn

[Seeqi]

Hallo zusammen,

ich würde gerne aus meiner Listbox den wert aus der ersten Spalte (die listbox hat 3) in eine Zelle schreiben lassen.

Wie es bei einer Spalte geht weiß ich, daher war mein ansatz folgender:

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

Tabelle2.Range("U5").Value = ListBox1.List(ListBox1.ListIndex, 0).Value

End Sub

Was habe ich falsch gemacht??? 
Danke schonmal für die Hilfe :)

[Kuwer]

Hallo Seeqi,

die List-Eigenschaft der Listbox kommt ohne Eigenschaften. Also entferne das ".Value" am Ende.

Gruß, Uwe

[Klaus-Dieter]

Hallo,

sieht richtig aus. Kann leider ohne Datei nicht testen, ein Nachbau kann das Ergebnis verfälschen.

[Seeqi]

Ohne .Value klappt es super :D Danke, daran hat wohl gelegen :)

[Kuwer]

Hallo Seeqi,

Alternative:

Mit der BoundColumn-Eigenschaft wird die Spalte festgelegt, aus welcher der zurückgebende Wert kommen soll.
Dies kann man fest in den Eigenschaften der ListBox oder auch per Code festlegen.

Code:

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
  ListBox1.BoundColumn = 1  'legt die Spalte für die Wertrückgabe fest (beginnt hier aber mit 1 statt 0)
  Tabelle1.Range("U5").Value = ListBox1.Value
End Sub

Gruß, Uwe