Code anpassen

Private Sub CommandButton2_Click() ' Button Löschen
Dim lZeile As Long
If ListBox1.ListIndex = -1 Then Exit Sub
lZeile = 2
Do While Trim(CStr(Tabelle9.Cells(lZeile, 4).Value))  ""
If ListBox1.Text = Trim(CStr(Tabelle9.Cells(lZeile, 4).Value)) Then
Tabelle9.Rows(CStr(lZeile & ":" & lZeile)).Delete
Call UserForm_Initialize
If ListBox1.ListCount > 0 Then ListBox1.ListIndex = 0
Exit Do
End If
lZeile = lZeile + 1
Loop
End Sub