So wie man eine Listbox befüllen kann, kann man auch Einträge mittels einer Listbox wieder löschen. Das Beispiel, welches ich euch erstellt habe, löscht eine Zeile im Tabellenblatt. Die Listbox wird dann mittels dem Befehl Userform.Repaint wieder neu einglesen. Somit ist der gelöschte Eintrag auch nicht mehr in der Listbox zu finden.

Wir benötigen gar nicht so viel Programmierarbeit um unser Vorhaben umzusetzen. Ein Code wie der Folgende reicht aus. Er muss hinter unserer Userform liegen.

Option Explicit

Public klick As Long
Public schalter As Boolean

Private Sub userform_initialize()
    With ListBox1
        .RowSource = "Tabelle1!A2:A10"
        .ColumnHeads = True
    End With
End Sub

Private Sub ListBox1_Click()
    klick = ListBox1.ListIndex
End Sub

Private Sub CommandButton1_Click()
    Sheets("Tabelle1").Rows(klick + 2).Delete Shift:=xlUp
    UserForm1.Repaint
End Sub

Private Sub CommandButton2_Click()
    Unload Me
End Sub

Hier noch eine Beispieldatei zum Download: klick