CommandButton zum Hinzufügen von Listbox zu Blatt

Question

Hallo Ich suche eine Menge Informationen im Internet, aber ich kann es nicht funktionieren. Ich Tray, um die Suchergebnisse aus Listbox in einer Blattnummer den Blattnamen ist (Tabelle1) Listbox Name ist (lsbWarenausgang) und der Befehlsname ist (CommandButton3)

Answer 1

Angenommen, Sie den Wert auf die Zelle C1 geben wollen:

Private Sub CommandButton3_Click() 

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

End Sub 

Für Mehr Spalten 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