T extBox Daten in Tabelle

Private Sub CommandButton1_Click()
Dim Dia As UserForm
Dim lng As Long
Dim Treffer As Range
Dim i As Integer
Set Treffer = Tabelle4.Columns(1).Find(what:=Me.TextBox1.Value, _
Lookat:=xlWhole)
If Treffer Is Nothing Then
lng = Range("A65536").End(xlUp).Offset(1, 0).Row
Else
i = MsgBox("Dieser Satz wurde bereits erfasst! Überschreiben?", _
vbYesNo + vbQuestion)
If i = 1 Then
lng = Treffer.Row
Else
Exit Sub
End If
End If
Set Dia = frmTitel_Status
Worksheets("Tabelle4").Activate
With Dia
Cells(lng, 1).Value = .TextBox1.Value
End With
End Sub