[VBA] Löschen eines Datensatzes

[schauan]

Hallöchen,

eventuell sollte man dann zur Sicherheit eine Fehlerbehandlung einbauen. Im Prinzip z.B. so:

Code:

Sub Loeschen()    'Datensatz löschen
   Sheets("Stammdaten").Unprotect
   If MsgBox("FGGK: " & frm_UserForm1.Controls("TextBox" & 1).Value & " wirklich löschen?", vbYesNo) = vbYes Then
      'MsgBox suchErgebnis.Row
      On Error Goto ErrorHandler
        Sheets("Stammdaten").ListObjects("Tabelle3").ListRows(suchErgebnis.Row - 6).Delete
      On Error Goto 0
   End If
   Sheets("Stammdaten").Protect AllowDeletingRows:=True
   Call Controls_Urzustand1
ErrorHandler:
If err then MsgBox "Fehler beim Löschen des Datensatzes": Resume Next
End Sub