diff --git a/Aviso/usrcntlAktDetails.vb b/Aviso/usrcntlAktDetails.vb
index 1f5d4f6..6f89739 100644
--- a/Aviso/usrcntlAktDetails.vb
+++ b/Aviso/usrcntlAktDetails.vb
@@ -1620,7 +1620,7 @@ Public Class usrcntlAktDetails
             End If
             Dim index As Integer = -1
             If (dgvSendungen.SelectedRows.Count > 0) Then index = dgvSendungen.SelectedRows(0).Index
-            VermerkeDAL.LöschenVermerk(CInt(gridVermerke.SelectedRows(0).Cells("VermerkID").Value))
+            VermerkeDAL.LöschenVermerk(CInt(gridVermerke.SelectedRows(0).Cells("VermerkID").Value), gridVermerke.SelectedRows(0).Cells("Hinweis_Vermerk").Value, AvisoID)
             Vermerke_anzeigen(index)
 
         ElseIf sender Is conVermerkLöschenNew Then
@@ -1630,7 +1630,7 @@ Public Class usrcntlAktDetails
             End If
             Dim index As Integer = -1
             If (dgvSendungen.SelectedRows.Count > 0) Then index = dgvSendungen.SelectedRows(0).Index
-            VermerkeDAL.togglegeloescht(CInt(gridVermerke.SelectedRows(0).Cells("VermerkID").Value))
+            VermerkeDAL.togglegeloescht(CInt(gridVermerke.SelectedRows(0).Cells("VermerkID").Value), gridVermerke.SelectedRows(0).Cells("Hinweis_Vermerk").Value, AvisoID)
             Vermerke_anzeigen(index)
         End If
 
@@ -1655,7 +1655,7 @@ Public Class usrcntlAktDetails
                 Exit Sub
             End If
 
-            VermerkeDAL.LöschenVermerk(CInt(gridVermerke.Rows(gridVermerke.CurrentRow.Index).Cells("VermerkID").Value))
+            VermerkeDAL.LöschenVermerk(CInt(gridVermerke.Rows(gridVermerke.CurrentRow.Index).Cells("VermerkID").Value), gridVermerke.SelectedRows(0).Cells("Hinweis_Vermerk").Value, AvisoID)
 
             Vermerke_anzeigen()
             initDgvSendungen()
diff --git a/Aviso/usrcntlAktDetailsATILLA.vb b/Aviso/usrcntlAktDetailsATILLA.vb
index e052bc2..a0a9e6f 100644
--- a/Aviso/usrcntlAktDetailsATILLA.vb
+++ b/Aviso/usrcntlAktDetailsATILLA.vb
@@ -556,7 +556,7 @@ Public Class usrcntlAktDetailsATILLA
         End If
         Dim index As Integer = -1
 
-        VermerkeDAL.LöschenVermerk(CInt(gridVermerke.SelectedRows(0).Cells("VermerkID").Value))
+        VermerkeDAL.LöschenVermerk(CInt(gridVermerke.Rows(gridVermerke.CurrentRow.Index).Cells("VermerkID").Value), gridVermerke.SelectedRows(0).Cells("Hinweis_Vermerk").Value, AvisoID)
         Vermerke_anzeigen(index)
 
         Exit Sub
@@ -580,7 +580,7 @@ Public Class usrcntlAktDetailsATILLA
                 Exit Sub
             End If
 
-            VermerkeDAL.LöschenVermerk(CInt(gridVermerke.Rows(gridVermerke.CurrentRow.Index).Cells("VermerkID").Value))
+            VermerkeDAL.LöschenVermerk(CInt(gridVermerke.Rows(gridVermerke.CurrentRow.Index).Cells("VermerkID").Value), gridVermerke.SelectedRows(0).Cells("Hinweis_Vermerk").Value, AvisoID)
 
             Vermerke_anzeigen()
 
diff --git a/Aviso/usrcntlAktDetailsATILLANeu.vb b/Aviso/usrcntlAktDetailsATILLANeu.vb
index b19825b..3445685 100644
--- a/Aviso/usrcntlAktDetailsATILLANeu.vb
+++ b/Aviso/usrcntlAktDetailsATILLANeu.vb
@@ -871,7 +871,7 @@ Public Class usrcntlAktDetailsATILLANeu
         End If
         Dim index As Integer = -1
 
-        VermerkeDAL.LöschenVermerk(CInt(gridVermerke.SelectedRows(0).Cells("VermerkID").Value))
+        VermerkeDAL.LöschenVermerk(CInt(gridVermerke.Rows(gridVermerke.CurrentRow.Index).Cells("VermerkID").Value), gridVermerke.SelectedRows(0).Cells("Hinweis_Vermerk").Value, AvisoID)
         Vermerke_anzeigen(index)
 
         Exit Sub
@@ -895,7 +895,7 @@ Public Class usrcntlAktDetailsATILLANeu
                 Exit Sub
             End If
 
-            VermerkeDAL.LöschenVermerk(CInt(gridVermerke.Rows(gridVermerke.CurrentRow.Index).Cells("VermerkID").Value))
+            VermerkeDAL.LöschenVermerk(CInt(gridVermerke.Rows(gridVermerke.CurrentRow.Index).Cells("VermerkID").Value), gridVermerke.SelectedRows(0).Cells("Hinweis_Vermerk").Value, AvisoID)
 
             Vermerke_anzeigen()