diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb
index b533fc2..084a935 100644
--- a/Aviso/My Project/AssemblyInfo.vb	
+++ b/Aviso/My Project/AssemblyInfo.vb	
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("4.0.5.2")>
-<Assembly: AssemblyFileVersion("4.0.5.2")>
+<Assembly: AssemblyVersion("4.0.5.3")>
+<Assembly: AssemblyFileVersion("4.0.5.3")>
diff --git a/Aviso/usrcntlAktDetails.vb b/Aviso/usrcntlAktDetails.vb
index 1c83748..8eb2f83 100644
--- a/Aviso/usrcntlAktDetails.vb
+++ b/Aviso/usrcntlAktDetails.vb
@@ -1329,7 +1329,7 @@ Public Class usrcntlAktDetails
             For Each r As DataGridViewRow In gridvermerke.Rows
                 '  If r.Cells("VermerkeOptions").GetType.Name = "DataGridViewLinkCell" Then
                 Dim optionCell As DataGridViewLinkCell = DirectCast(r.Cells("VermerkeOptions"), DataGridViewLinkCell)
-                If CBool(r.Cells("Hervorheben").Value) Then
+                If gridvermerke.Columns.Contains("Hervorheben") AndAlso CBool(r.Cells("Hervorheben").Value) Then
                     'r.DefaultCellStyle.BackColor = Color.Firebrick
                     'r.DefaultCellStyle.ForeColor = Color.White
                     r.DefaultCellStyle.BackColor = Color.Yellow
@@ -1543,7 +1543,8 @@ Public Class usrcntlAktDetails
                     For Each r As DataGridViewRow In gridVermerke.Rows
                         If r.Displayed Then showFirst = True
                         If showFirst Then
-                            If ((r.Cells("Hervorheben") IsNot Nothing AndAlso r.Cells("Hervorheben").Value = "1") Or (r.Cells("VermerkeOptions") IsNot Nothing AndAlso r.Cells("VermerkeOptions").Value <> "")) AndAlso Not r.Displayed Then
+
+                            If (gridVermerke.Columns.Contains("Hervorheben") AndAlso (r.Cells("Hervorheben") IsNot Nothing AndAlso r.Cells("Hervorheben").Value = "1") Or (gridVermerke.Columns.Contains("VermerkeOptions") AndAlso r.Cells("VermerkeOptions") IsNot Nothing AndAlso r.Cells("VermerkeOptions").Value <> "")) AndAlso Not r.Displayed Then
                                 picArrowDown.Visible = True
                             End If
                         End If