diff --git a/Aviso/frmGesamtsicherheitenNEU.vb b/Aviso/frmGesamtsicherheitenNEU.vb
index d45033c..9c2d95c 100644
--- a/Aviso/frmGesamtsicherheitenNEU.vb
+++ b/Aviso/frmGesamtsicherheitenNEU.vb
@@ -1780,11 +1780,18 @@ Public Class frmGesamtsicherheitenNEU
                 End If
                 If dgvGesamtsicherheit.SelectedRows.Count > 0 Then
 
-                    For Each row As DataGridViewRow In dgvGesamtsicherheit.SelectedRows
+                    For Each row As DataGridViewRow In dgvGesamtsicherheit.SelectedRows.Cast(Of DataGridViewRow)().OrderBy(Function(r)
+                                                                                                                               Dim v = r.Cells("gs_posNr").Value
+                                                                                                                               Return If(IsNumeric(v), CInt(v), 0)
+                                                                                                                           End Function)
                         Dim sicherh As New cSicherheiten(row.Cells("gs_gsId").Value, row.Cells("gs_posNr").Value)
                         sicherh.gs_MRNNr = txtATBNraendern.Text
+                        If sicherh.gs_MRNNr <> "" Then
+                            sicherh.gs_posSubNr = IIf(Integer.Parse(setNullToZero(txtSPosNr.Text)) <> 0, Integer.Parse(setNullToZero(txtSPosNr.Text)), Me.getLatestSubPosNr(sicherh.gs_gsNr, sicherh.gs_ATBNr, sicherh.gs_MRNNr) + 1)
+                        Else
+                            sicherh.gs_posSubNr = Nothing
+                        End If
                         sicherh.SAVE()
-
                     Next
                 End If
 
diff --git a/Aviso/frmSendungsdetailsNEU.vb b/Aviso/frmSendungsdetailsNEU.vb
index 4add279..4115b93 100644
--- a/Aviso/frmSendungsdetailsNEU.vb
+++ b/Aviso/frmSendungsdetailsNEU.vb
@@ -4011,7 +4011,7 @@ Public Class frmSendungsdetailsNEU
                 Dim frmBeleg As New SDL.frmFremdbeleg(PERSONAL, PERSONAL.Mandant, PERSONAL.Niederlassung, B.Benutzer, B.BelegNr, B.BelegDat)
                 frmBeleg.ShowDialog(Me)
             Case "L"
-                If B.storniert Then MsgBox("Der Beleg wurde bereits storiniert!") : Exit Sub
+                If B.storniert Then MsgBox("Der Beleg wurde bereits storniert!") : Exit Sub
                 Dim frmBeleg As New SDL.frmNacherfassungLeihgeld(PERSONAL, Nothing, PERSONAL.Mandant, PERSONAL.Niederlassung, B.Benutzer, B.BelegNr, B.BelegDat)
                 frmBeleg.ShowDialog(Me)
             Case Else