Vba CommandButton从列表框添加到工作表

您好，我在internet上搜索了很多信息，但无法使其正常工作。我使用托盘将列表框中的搜索结果添加到工作表编号中，工作表名称为（Tabelle1），列表框名称为（lsbWarnausgang），命令按钮名称为（CommandButton3）

假设您要将值传递到单元格C1：

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

---

请在MEPTS上共享您的代码。它的工作方式是，只添加一列，其中包含多列，您必须迭代de List检查

.Selected

属性，如果为True，则获取.List（nRow，nCol）元素。@d00nn12345在StackOverflow中，如果答案解决了您的问题，则单击检查simbol是一种礼仪规范。thx很多次我都在检查它是否有效，我需要将其更改为水平负载。因为数据将所有内容加载到垂直