Guten Morgen,

ich habe folgendes Problem:

wenn ich auf den Button 'Löschen klicke', sollte der bereits vorher ausgewählte Datensatz gelöscht werden. Gelöscht wird allerdingsgar nicht, es kommt: Typen unverträglich. Bin VBA neuling und hoffe ihr könnt mir helfen.

Code:

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

MfG