diff --git a/SDL/frmEssensbestellungen.vb b/SDL/frmEssensbestellungen.vb
index 798df0f7..e3a49f5e 100644
--- a/SDL/frmEssensbestellungen.vb
+++ b/SDL/frmEssensbestellungen.vb
@@ -326,7 +326,7 @@ Public Class frmEssensbestellungen
         Dim SQLWhere As String = ""
         If cbxMenu._value IsNot "" Then SQLWhere = " AND [eb_kw] = '" & cbxMenu._value.ToString & "'"
 
-        Dim SQLString As String = "SELECT [eb_kw], [eb_mitid] , [eb_gebaeude],[eb_abteilung],[eb_montag],[eb_dienstag],[eb_mittwoch],[eb_donnerstag] ,[eb_freitag],[eb_preis], [eb_mitname], [eb_datum], [eb_anmerkung], [eb_abgerechnet]  FROM [tblEssensbestellungen] where [eb_mitid] = '" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "'" & SQLWhere & " order by [eb_datum] desc"
+        Dim SQLString As String = "SELECT [eb_kw], [eb_mitid] , [eb_gebaeude],[eb_abteilung],[eb_montag],[eb_dienstag],[eb_mittwoch],[eb_donnerstag] ,[eb_freitag],[eb_preis], [eb_mitname], [eb_datum], [eb_anmerkung], [eb_abgerechnet], [eb_storniert] FROM [tblEssensbestellungen] where [eb_mitid] = '" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "'" & SQLWhere & " order by [eb_datum] desc"
 
         dgvBestellungen.SET_SQL(SQLString, "AVISO", ,)
         dgvBestellungen.LOAD()
@@ -341,6 +341,7 @@ Public Class frmEssensbestellungen
             .Columns("eb_mitid").Visible = False
             .Columns("eb_mitname").Visible = False
             .Columns("eb_datum").Visible = False
+            .Columns("eb_storniert").Visible = False
             .Columns("eb_abteilung").Visible = False
             .Columns("eb_montag").Width = 80
             .Columns("eb_montag").HeaderText = "Montag"
@@ -368,6 +369,14 @@ Public Class frmEssensbestellungen
             If Not IsDBNull(row.Cells("eb_abgerechnet").Value) Then
                 If row.Cells("eb_abgerechnet").Value Then row.DefaultCellStyle.BackColor = Color.LightGreen
             End If
+            If Not IsDBNull(row.Cells("eb_storniert").Value) Then
+                If row.Cells("eb_storniert").Value Then
+                    row.DefaultCellStyle.BackColor = Color.IndianRed
+                    row.DefaultCellStyle.Font = New Font(Me.Font.FontFamily, Me.Font.Size, FontStyle.Strikeout)
+
+                End If
+            End If
+
         Next