Listboxeinträge per Doppelklick in Userform laden

Private Sub Suche(suchbegriff_1 As String, suchbegriff_2 As String)
Dim i As Long, k As Integer
Dim n As Long
On Error Resume Next
Dim arrTMP As Variant
ReDim arrTMP(1 To UBound(arrDaten, 2), 1 To UBound(arrDaten))
For i = 1 To UBound(arrDaten)
If LCase$(arrDaten(i, 1)) Like suchbegriff_1 & "*" Then
If LCase$(arrDaten(i, 2)) Like suchbegriff_2 & "*" Then
n = n + 1
For k = 1 To UBound(arrDaten, 2)
arrTMP(k, n) = arrDaten(i, k)
Next
End If
End If
Next
If n Then
ReDim Preserve arrTMP(1 To UBound(arrDaten, 2), 1 To n)
ListBox1.Column = arrTMP
End If
End Sub

Private Sub Commandbutton2_Click()
Set Frm = UserForm3
Sheets("Hauptblatt").Activate
Cells(65536, 1).End(xlUp).Offset(1, 0).Select
With Frm
ActiveCell.Offset(0, 0).Value = .TextBox1.Value
ActiveCell.Offset(0, 1).Value = .TextBox2.Value
ActiveCell.Offset(0, 2).Value = .TextBox3.Value
ActiveCell.Offset(0, 3).Value = .TextBox4.Value
ActiveCell.Offset(0, 4).Value = .TextBox5.Value
ActiveCell.Offset(0, 5).Value = .TextBox6.Value
ActiveCell.Offset(0, 6).Value = .TextBox7.Value
ActiveCell.Offset(0, 7).Value = .TextBox8.Value
ActiveCell.Offset(0, 8).Value = .TextBox9.Value
ActiveCell.Offset(0, 9).Value = .TextBox10.Value
ActiveCell.Offset(0, 10).Value = .CheckBox1.Value
ActiveCell.Offset(0, 11).Value = .CheckBox2.Value
ActiveCell.Offset(0, 12).Value = .CheckBox3.Value
ActiveCell.Offset(0, 13).Value = .CheckBox4.Value
ActiveCell.Offset(0, 14).Value = .CheckBox5.Value
ActiveCell.Offset(0, 15).Value = .CheckBox6.Value
ActiveCell.Offset(0, 16).Value = .CheckBox7.Value
ActiveCell.Offset(0, 17).Value = .CheckBox8.Value
ActiveCell.Offset(0, 18).Value = .CheckBox9.Value
ActiveCell.Offset(0, 19).Value = .CheckBox10.Value
ActiveCell.Offset(0, 20).Value = .TextBox11.Value
ActiveCell.Offset(0, 21).Value = .TextBox12.Value
ActiveCell.Offset(0, 22).Value = .TextBox13.Value
ActiveCell.Offset(0, 23).Value = .TextBox14.Value
ActiveCell.Offset(0, 24).Value = .TextBox15.Value
ActiveCell.Offset(0, 25).Value = .TextBox16.Value
ActiveCell.Offset(0, 26).Value = .TextBox17.Value
ActiveCell.Offset(0, 27).Value = .TextBox18.Value
End With
Unload UserForm3
End Sub