11.10.2020, 01:36
Ich befülle meine Userform.Listbox mit einer Listobject-Tabelle über die RowSource-Eigenschaft.
Nun möchte ich mit einem Button die Ausgewählte Zeile in der Listobject-Tabelle & der Listbox löschen.
Mit meinem Code lösche ich aber die ganze Zeile des Tabellenblattes, statt nur die Zeile der Listobject-Tabelle.
Kann mir da jemand auf die Sprünge helfen?
Nun möchte ich mit einem Button die Ausgewählte Zeile in der Listobject-Tabelle & der Listbox löschen.
Mit meinem Code lösche ich aber die ganze Zeile des Tabellenblattes, statt nur die Zeile der Listobject-Tabelle.
Kann mir da jemand auf die Sprünge helfen?
Code:
Private Sub löschen_Click()
' ausgewählter Eintrag löschen
Dim lZeile As Long
If bLoeschen = True Then
Exit Sub
End If
lZeile = Me.Listbox1.ListIndex + 2
If MsgBox("Eintrag wirklich löschen?", _
vbYesNo + vbQuestion, " Löschabfrage, nur zur Sicherheit.") = vbYes Then
bLoeschen = True
Rows(lZeile & ":" & lZeile).Delete Shift:=xlUp
Else
Exit Sub
End If
End Sub