moin 

die Listbox befindet sich auf einer Userform?

dann z.B. so

zum Füllen der Listbox

Private Sub UserForm_Initialize()
    Dim lngAnzahl As Long, lngLetzte As Long
    With Worksheets("Tabelle3")
        lngLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row
        For lngAnzahl = 2 To lngLetzte
            ListBox1.AddItem .Cells(lngAnzahl, 1).Value
        Next
    End With
End Sub

zum schreiben des Eintrags in die Tabelle1

Private Sub ListBox1_Click()
    Worksheets("Tabelle1").Range("F10").Value = ListBox1.Text
End Sub

Grüßli