Excel - Listbox mit 2 Spalten auslesen

Computer: Software & Programmierung Visual Basic
#1

Hallo,

habe eine Listbox, die mit 2 Spalten gefüllt ist. Nun möchte ich, dass jeweils die beiden Werte bei Click auf die entsprechende Zeile ausgelesen werden. (Wert 1 soll in Zelle A1, Wert 2 in Zelle A2) kopiert werden.

Bisher habe ich folgendes:
…
Private Sub ListBox1_Click()
BoundColumn = 1
Cells (1, 1) = ListBox1.Value
BoundColumn = 2
Cells (2, 1) = ListBox1.Value
End Sub
…

Wenn ich nun auf die Listbox klicke, dann hört Excel nicht mehr auf irgendwelche Werte in die Zellen zu schreiben. Was mache ich falsch?
Ist BounColumn nicht die richtige Lösung?
Beste Dank für eure Hilfe
Peter

#2

Hallo, Peter!

Bisher habe ich folgendes:
…
Private Sub ListBox1_Click()
BoundColumn = 1
Cells (1, 1) = ListBox1.Value
BoundColumn = 2
Cells (2, 1) = ListBox1.Value
End Sub
…

Wenn ich nun auf die Listbox klicke, dann hört Excel nicht
mehr auf irgendwelche Werte in die Zellen zu schreiben. Was
mache ich falsch?

Mit dem Umsetzen von BoundColumn änderst Du gleichermaßen den Wert der ListBox. Bei der Ereignissteuerung wird das vermutlich als Click ausgewertet, weshalb Du in die Endlosschleife kommst.

Die richtige Lösung ist, über .Column auf die Spaltenwerte zuzugreifen:

 Tabelle1.Cells(1, 1) = ListBox1 ' Wert aus gebundener Spalte
 Tabelle1.Cells(1, 2) = ListBox1.Column(1) ' Wert aus zweiter Spalte
 ' Spaltenindex ist 0-basiert

Gruß, Manfred

#3

Super, hat funktioniert.
Danke

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]