Ich möchte EIn Löschknopf programieren. Es soll erstmal geprüft werden ob überhaut der eingetragene Vertragsnummer zu finden ist. Wenn ja, kommt die Abfrage Löschen oder Abbrechen. Dafür habe ich folgendes programiert. Leider kommt nach der Löschung immer die MsgBox Fehler (also der Error Block). Ich verstehe nicht warum das auf Fehler läuft. Habe dies aus vielen Infos zusammengepuzzelt
Private Sub Löschen_Click()
'declare the variables
Dim findvalue As Range
Dim Response As VbMsgBoxResult
Dim cNum As Integer
Dim Search As String
'error statement
On Error GoTo errVertrag

Search = TextBoxVertragsnummer.Value

'check for control from listbox dblclick values
If TextBoxVertragsnummer.Value = "" Or Search = "" Then

MsgBox "Vertragsnummer eingeben und erneut suchen", 48, "Fehler", vbExclamation
Exit Sub

Else

'Markiere die Zeile:
Set findvalue = Tabelle_BÜTool.Range("A:AG").Find(What:=Search, LookIn:=xlValues, lookat:=xlWhole)

'in gelb

Cells(findvalue.Row, findvalue.Column).Interior.ColorIndex = 6


If Not findvalue Is Nothing Then

'Abfrage bevor gelöscht wird:
Response = MsgBox(Search & Chr(10) & _
"Wollen Sie den Eintrag löschen?", 292, "Löschen?")

If Response = vbYes Then

'Lösche Eintrag
findvalue.EntireRow.Delete
Me.TextBoxVertragsnummer.Value = ""
lstLookup.RowSource = ""

End If

Else

MsgBox Search & Chr(10) & "Vertragsnummer konnte nicht gefunden werden", 48, "Fehler", vbExclamation

End If


End If


'error block
errVertrag:
If Err > 0 Then

MsgBox Search & Chr(10) & "Fehler", 48, "Fehler"

End If