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