Verständnisfrage zu "Löschen" Button
16.06.2022 17:35:40
Max
Ich habe eine kleine Verständnisfrage, da mir nicht klar ist, wie der nachfolgende Code funktioniert. Er tut was er soll, er löscht die ausgewählte Zeile und die Inhalte in einer Listbox und in der verknüpften Tabelle.
Nur leider ist mir nicht ganz klar wie, ich habe Probleme den Code nachzuvollziehen, vor allem woher weiß VBA welche Zeile er in der Tabelle ansprechen soll.
Private Sub CommandButton1_Click()
If MsgBox("Möchten Sie den ausgewählten Eintrag wirklich löschen?", vbYesNo + vbQuestion) = vbYes Then
With ListBox1
If .ListIndex >= 0 Then Range(.RowSource).Rows(.ListIndex + 1).EntireRow.Delete
End With
End If
End Sub
Vielen Dank und Grüße Max
Anzeige