Listbox Wert in Zelle Schreiben
16.08.2016 23:00:27
Ben
Bekomm nur Auftrags.Nr , will aber noch den Text dazu.
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim i As Integer
Dim strAuswahl As String
For i = 0 To ListBox1.ListIndex
If ListBox1.Selected(i) Then
If strAuswahl = "" Then
strAuswahl = ListBox1.List(i)
Else
strAuswahl = strAuswahl & ";" & ListBox1.List(i)
End If
End If
Next i
ActiveCell = strAuswahl
Unload Me
End Sub
Private Sub UserForm_Initialize()
With ListBox1
.ColumnCount = 4
.ColumnWidths = "7cm;3cm;3cm;3cm"
.ColumnHeads = True
ListBox1.RowSource = "Aufträge!A2:D9999"
End With
End Sub