diff --git a/app/DD-Record-Organiser/ClassHelper.vb b/app/DD-Record-Organiser/ClassHelper.vb
index 62113a8..7826a5e 100644
--- a/app/DD-Record-Organiser/ClassHelper.vb
+++ b/app/DD-Record-Organiser/ClassHelper.vb
@@ -212,17 +212,18 @@ Public Class ClassHelper
     Public Shared Function Format_GridColumns(Primary_DT As DataTable, _ENTITYSQL As String, listcheck As List(Of String), listdate As List(Of String))
         Try
             Dim tbltemp As DataTable = Primary_DT.Clone()
-            For Each col As String In listdate
-                Dim colDate As DataColumn = tbltemp.Columns(col)
-                If Not IsNothing(colDate) Then
-                    Try
-                        colDate.DataType = GetType(Date)
-                    Catch ex As Exception
+            ' Nicht benötigt? Datumsspalten werden im Grid formatiert
+            'For Each col As String In listdate
+            '    Dim colDate As DataColumn = tbltemp.Columns(col)
+            '    If Not IsNothing(colDate) Then
+            '        Try
+            '            colDate.DataType = GetType(DateTime)
+            '        Catch ex As Exception
 
-                    End Try
+            '        End Try
 
-                End If
-            Next
+            '    End If
+            'Next
             For Each col1 As String In listcheck
                 Dim collist As DataColumn = tbltemp.Columns(col1)
                 If Not IsNothing(collist) Then