CommandButton, чтобы добавить из списка на лист

Question

привет, я ищу много информации в Интернете, но я не могу заставить его работать. Я лоток, чтобы добавить результаты поиска из списка в листе, имя листа (Tabelle1), имя списка (lsbWarenausgang) и имя CommandButton является (CommandButton3)

Answer 1

Предполагая, что вы хотите передать значение в ячейке C1:

Private Sub CommandButton3_Click() 

    Worksheets("Tabelle1").Range("C1").Value = lsbWarenausgang.Value 

End Sub 

для мульти-колонка ListBox:

Private Sub CommandButton3_Click() 
Dim i As Integer 
Dim k As Integer 
With Me.lsbWarenausgang 
    For k = 0 To .ListCount - 1 
     If .Selected(k) = True Then 
     For i = 1 To 5 
     Worksheets("Tabelle1").Cells(i, 1) = Me.lsbWarenausgang.List(k, i - 1) 
     Next i 
     End If 
    Next k 
End With 
End Sub