Private Sub CommandButton4_Click()
Dim löschen As Excel.Range
With Tabelle1
Set löschen = .Range(.Cells(2, "A"), .Cells(.Rows.Count, "A").End(xlUp))
Set löschen = suchen.Find(TextBox1.Text, LookIn:=xlValues, LookAt:=xlWhole)
If Not suchen Is Nothing Then
.Cells(löschen.Row, "A").Delete
.Cells(löschen.Row, "B").Delete
.Cells(löschen.Row, "C").Delete
.Cells(löschen.Row, "D").Delete
.Cells(löschen.Row, "E").Delete
Else
Call MsgBox("Kein Datensatz zum Löschen ausgewählt")
End If
End With
End Sub