diff --git a/SDL/frmEssensbestellungenAdministration.vb b/SDL/frmEssensbestellungenAdministration.vb
index 4fbf2681..eb8c56d3 100644
--- a/SDL/frmEssensbestellungenAdministration.vb
+++ b/SDL/frmEssensbestellungenAdministration.vb
@@ -1100,6 +1100,8 @@ Public Class frmEssensbestellungenAdministration
 
         dt_nichtBezahlteEB = dt_nichtBezahlteEB.Select("eb_abgerechnet = 0", "eb_mitid").CopyToDataTable
 
+        If dt_nichtBezahlteEB.Rows.Count = 0 Then MsgBox("Keine unbezahlten Essensbestellungen vorhanden!") : Exit Sub
+
         If vbYes = MsgBox("Möchten Sie einen Reminder für die noch nicht bezahlten Essensbestellungen verschicken?" & vbNewLine & IIf(cboAbteilung._value Is "", "Alle Abteilungen", "Abteilung " & cboAbteilung._value) & " im Gebäude: " & cboGebaeude._value, vbYesNoCancel) Then
 
             Dim displayView = New DataView(dt_nichtBezahlteEB, "", "eb_mitid", DataViewRowState.CurrentRows)
@@ -1109,11 +1111,15 @@ Public Class frmEssensbestellungenAdministration
             Dim displayViewKW = New DataView(dt_nichtBezahlteEB, "", "eb_kw", DataViewRowState.CurrentRows)
             Dim distinctDTKW As DataTable = displayView.ToTable(True, "eb_kw")
 
+            Dim count As Integer = 0
             For Each kwRow In distinctDTKW.Rows
+
                 If kwRow("eb_kw").ToString.Length > 10 Then
-                    kw &= kwRow("eb_kw").ToString.Substring(0, kwRow("eb_kw").ToString.Length - 6) & ", "
+                    kw &= kwRow("eb_kw").ToString.Substring(0, kwRow("eb_kw").ToString.Length - 6) & IIf(count > 0, ", ", "")
+                    count += 1
                 Else
                     kw &= kwRow("eb_kw").ToString
+                    count += 1
                 End If
 
             Next
@@ -1126,8 +1132,8 @@ Public Class frmEssensbestellungenAdministration
 
                     Dim mit As New cMitarbeiter(row("eb_mitid"))
 
-                    dt_nichtBezahlteEB = dt_nichtBezahlteEB.Select("eb_abgerechnet = 0 and eb_mitid = " & row("eb_mitid")).CopyToDataTable
-                    Dim result = dt_nichtBezahlteEB.Compute("SUM(eb_preis)", "")
+                    Dim dt_nichtBezahlteEBSum As DataTable = dt_nichtBezahlteEB.Select("isnull(eb_abgerechnet,0) = 0 and eb_mitid = " & row("eb_mitid")).CopyToDataTable
+                    Dim result = dt_nichtBezahlteEBSum.Compute("SUM(eb_preis)", "")
 
                     If result IsNot Nothing AndAlso IsNumeric(result) Then
                         result = CDbl(result)
@@ -1138,8 +1144,14 @@ Public Class frmEssensbestellungenAdministration
                                 End If
 
                             Case Else
+                                'aktuell per Mail, weil Benachrichtigungen noch umbauen wegen inner join!
+                                'VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(-1, -1, 21, "B", mit.mit_id, "Bitte Essensgeld bezahlen: " & result & "€ ('" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "')", 1, , "Essensgeld")
+
+                                If mit.mit_email <> "" AndAlso Not emailEmpf.Contains(mit.mit_email) Then
+                                    emailEmpf &= mit.mit_email & ";"
+                                End If
+
 
-                                VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(-1, -1, 21, "B", mit.mit_id, "Bitte Essensgeld bezahlen: " & result & "€ ('" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "')", 1, , "Essensgeld")
 
 
                         End Select