リストボックスからシートに追加するCommandButton

Question

こんにちは私はインターネットで多くの情報を検索しますが、仕事を得ることはできません。リストボックスの検索結果をシート番号に追加するにはシート名は（Tabelle1）です。 （lsbWarenausgang）とコマンドボタンの名前がある（CommandButton3を）あなたは、セルC1に値を渡したいと仮定

Answer 1

：マルチカラムのリストボックスの場合

Private Sub CommandButton3_Click() 

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

End Sub 

：

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