ich steuere ueber einen Optionbutton die Eintraege in einer zweizeiligen Listbox (Auszug fuer eine Zeile;)
Private Sub OptionButton1123_Click()
UserForm1.ListBoxMachine.Clear
With ListBoxMachine
.ColumnCount = 2
.ColumnWidths = "40;60"
.AddItem
.Column(0, 0) = "Test"
.Column(1, 0) = "THIS IS A TEST"
End With
End Sub
Nun moechte ich gerne bei Auswahl eines Wertes und click auf einen CommandButton die ganze Zeile (Spalte 1 und 2) in EINE Zelle schreiben (die erste unbeschriebene).
Bislang hatte ich nur eine einzeilige Listbox. Da hat das mit
Cells(last, 3).Value = UserForm1.ListBoxMachine.Value geklappt. Funktioniert zwar immernoch, aber leider bekomme ich immer nur den Wert aus Spalte 1 wiedergegeben. Die detaillierte Beschreibung die in Zeile 2 steht fehlt.
Habe schon etwas im Forum und auf google gesucht. Leider sprechen die dort immer zwei Zellen an. Ich moechte 'einfach' alles was in der Zeile steht beim Klick auf den CommanButton in eine Zelle schreiben.
Vielen Dank fuer Eure Bemuehungen und hoffentlich hilfreichen Input.
Danke :)
Henny