Inhalt der List und leere Zellen ignorieren

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, 0) & ";" & ListBox1.List(i, 1)
Else
strAuswahl = strAuswahl & ";" & ListBox1.List(i, 0)
strAuswahl = strAuswahl & ";" & ListBox1.List(i, 1)
End If
End If
Next i
ActiveCell = strAuswahl
End Sub

Private Sub TextBox1_Change()
End Sub

Private Sub UserForm_Initialize()
Me.Calendar1 = Date
With ListBox1
.ColumnCount = 4
.ColumnWidths = "3cm;7cm;3cm;3cm"
.ColumnHeads = True
ListBox1.RowSource = "data!B2:E4609"
End With
End Sub