Wert aus Listbox1 in Listbox2 einfügen
18.10.2020 12:22:45
Bernd
ich habe eine Userform auf der sich 2 Listboxen befinden. In Listbox1 gibt es eine Spalte mit Werten, in Listbox2 gibt es zwei Spalten mit Werten. In beiden Listboxen habe ich jeweils eine Zeile mit Werten markiert.
Der markierte Wert aus Listbox1 soll nach Klick auf den Command-Button in die Listbox2 in Spalte 2 der markierten Zeile geschrieben und aus Listbox1 gelöscht werden.
Mit dem u. a. Code wird der markierte Wert aus Listbox1 lediglich über die markierte Zeile in Listbox2 eingefügt. Der Wert sollte aber in die Listbox2 direkt in die markierte Zeile in die zweite Spalte geschrieben werden.
Hat jemand eine Idee, wie ich das hinbekomme?
Private Sub CommandButton1_Click()
Dim z As Integer
ListBox2.ColumnCount = 2
z = ListBox2.ListIndex
If ListBox1.ListIndex > -1 Then
ListBox2.AddItem ListBox1.Value, [z]
ListBox2.List(ListBox2.ListCount - 1, 1) = ListBox1.ListIndex
ListBox1.RemoveItem ListBox1.ListIndex
End If
End Sub
Gruß
Bernd
Anzeige