UserForm problem 2

Private Sub CommandButton10_Click() ' Anlegen
Dim lZeile As Long
lZeile = 2
Do While Trim(CStr(Tabelle1.Cells(lZeile, 1).Value))  ""
lZeile = lZeile + 1
Loop
Tabelle1.Cells(lZeile, 1) = CStr("Neuer Mitarbeiter " & lZeile)
ListBox1.AddItem CStr("Neuer Mitarbeiter " & lZeile)
ListBox1.ListIndex = ListBox1.ListCount - 1
End Sub

Private Sub CommandButton3_Click() ' Button Speichern
Dim lZeile As Long
If ListBox1.ListIndex = -1 Then Exit Sub
If Trim(CStr(TextBox1.Text)) = "" Then
MsgBox "Sie müssen mindestens einen Namen eingeben!", vbCritical + vbOKOnly, "FEHLER!"
Exit Sub
End If
lZeile = 2
Do While Trim(CStr(Tabelle1.Cells(lZeile, 1).Value))  ""
If ListBox1.Text = Trim(CStr(Tabelle1.Cells(lZeile, 1).Value)) Then
Tabelle1.Cells(lZeile, 1).Value = Trim(CStr(TextBox2.Text))
Tabelle1.Cells(lZeile, 2).Value = TextBox1.Text
Tabelle1.Cells(lZeile, 3).Value = TextBox14.Text
Tabelle1.Cells(lZeile, 4).Value = TextBox15.Text
Tabelle1.Cells(lZeile, 5).Value = TextBox5.Text
Tabelle1.Cells(lZeile, 6).Value = TextBox6.Text
Tabelle1.Cells(lZeile, 7).Value = TextBox7.Text
Tabelle1.Cells(lZeile, 8).Value = TextBox9.Text
Tabelle1.Cells(lZeile, 9).Value = TextBox11.Text
Tabelle1.Cells(lZeile, 10).Value = TextBox10.Text
Tabelle1.Cells(lZeile, 11).Value = TextBox13.Text
'Tabelle1.Cells(lZeile, 12).Value = TextBox6.Text
Tabelle1.Cells(lZeile, 13).Value = TextBox16.Text
Tabelle1.Cells(lZeile, 14).Value = TextBox3.Text
Tabelle1.Cells(lZeile, 15).Value = TextBox4.Text
Tabelle1.Cells(lZeile, 16).Value = TextBox8.Text
Tabelle1.Cells(lZeile, 17).Value = TextBox17.Text
If ListBox1.Text  Trim(CStr(TextBox1.Text)) Then
Call UserForm_Initialize
If ListBox1.ListCount > 0 Then ListBox1.ListIndex = 0
End If
Exit Do
End If
lZeile = lZeile + 1
Loop
End Sub