19.06.2018, 19:56
Hallöchen,
eventuell sollte man dann zur Sicherheit eine Fehlerbehandlung einbauen. Im Prinzip z.B. so:
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