Private Sub NeueAngehoerige()
    With sevGrid9
        .AddNew
        .CellNew("AnAdressNr") = SuchKdNr
    End With
End Sub

Private Sub sevGrid9_ErrorAddNew(ByVal nError As Long, _
  ByVal sDescription As String)
 
  ' Fehler beim Hinzufügen neuer Daten
  MsgBox "Fehler beim Hinzufügen der neuen Datenzeile" & vbCrLf & _
    CStr(nError) & " " & sDescription, vbCritical, "Fehler!"
End Sub