Private Sub Cmd_Delete_Click()
Dim iZeile&, zWerk As Variant
If lstAudits.ListIndex = -1 Then MsgBox "Kein Eintrag ausgewählt.", vbInformation, "Löschen nicht möglich": Exit Sub
iZeile = lstAudits.List(lstAudits.ListIndex, 0)
zWerk = Application.Match(cboWerk, Tabelle0.Range("Tabelle2[Werkname]"), 0)
If Not IsError(zWerk) Then
If MsgBox("Soll der Eintrag gelöscht werden?", vbQuestion + vbYesNo, "Abfrage Löschen eines Eintrages") = vbYes Then
Tabelle7.ListObjects(1).ListRows(iZeile).Delete
lstAudits.RemoveItem (lstAudits.ListIndex)
Tabelle0.ListObjects(1).DataBodyRange.Cells(zWerk, 4) = Tabelle0.ListObjects(1).DataBodyRange.Cells(zWerk, 4) - 1
End If
Else
If MsgBox("Es wurde in der Werksliste kein passendes Werk gefunden. Soll der Eintrag trotzdem aus dem Auditprogramm entfernt werden?", vbQuestion + vbYesNo, "Problem Löschen eines Eintrages") = vbYes Then
Tabelle7.ListObjects(1).ListRows(iZeile).Delete
lstAudits.RemoveItem (lstAudits.ListIndex)
End If
End If
ListboxLaden
ControlsLeeren
End Sub