Textbox aus Userform in aktive Zelle entladen

Private Sub CommandButton1_Click()
Dim i As Integer
Dim letztezeile As Integer
letztezeile = (Worksheets("Tabelle2").Cells(Rows.Count, 4).End(xlUp).Row) + 1
If UserForm2.TextBox1.Text = "" Then MsgBox "bitte Lieferanten wählen": Exit Sub
For i = 4 To letztezeile
If Worksheets("Tabelle1").Cells(i, 4) = UserForm2.TextBox1.Text Then: letztezeile = i:  _
Exit For
Next i
ListBox1.Tag = 1
Worksheets("Tabelle2").Cells(letztezeile, 4) = TextBox1
Worksheets("Tabelle2").Cells(letztezeile, 5) = TextBox2
ListBox1.Tag = ""
Unload UserForm2
End Sub