diff --git a/SDL/seriendruck/usrCntlFakturierung.vb b/SDL/seriendruck/usrCntlFakturierung.vb
index c15a3152..f327cada 100644
--- a/SDL/seriendruck/usrCntlFakturierung.vb
+++ b/SDL/seriendruck/usrCntlFakturierung.vb
@@ -1,7 +1,6 @@
 Imports System.Globalization
 Imports System.IO
 Imports System.Web.UI.WebControls.Expressions
-Imports com.sun.xml.internal.rngom.digested
 Imports VERAG_PROG_ALLGEMEIN
 
 Public Class usrcntlFakturierung
@@ -2312,11 +2311,10 @@ Public Class usrcntlFakturierung
 
                 If rechnungsdatum.Day = Date.DaysInMonth(rechnungsdatum.Year, rechnungsdatum.Month) Then 'Mailversand nur am SR am Ende des Monats mit Daten des Vormonats
                     If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
-                        Dim firstDayLastMonth As Date = New Date(Today.Year, Today.Month, 1).AddMonths(-1)
-                        Dim lastDayLastMonth As Date = New Date(Today.Year, Today.Month, 1).AddDays(-1)
-                        Dim path = createAuswertung(firstDayLastMonth, lastDayLastMonth)
+                        Dim firstDayOfMonth As Date = New Date(rechnungsdatum.Year, rechnungsdatum.Month, 1)
+                        Dim path = createAuswertung(firstDayOfMonth, rechnungsdatum)
                         If path <> "" Then
-                            If sendAuswertung(path, firstDayLastMonth, lastDayLastMonth) Then
+                            If sendAuswertung(path, firstDayOfMonth, rechnungsdatum) Then
                                 showPic(True, PictureBox12)
                             Else
                                 showPic(False, PictureBox12)
@@ -2352,8 +2350,8 @@ Public Class usrcntlFakturierung
                         inner join leistungen on leistungen.LeistungsNr=RechnungsausgangPositionen.LeistungsNr
                         inner join Offertenstamm on Offertenstamm.OffertenNr=Rechnungsausgang.OffertenNr
                         where Firma_ID=19
-                             AND RechnungsDatum >= DATEADD(MONTH, DATEDIFF(MONTH, 0, GETDATE()) - 1, 0)
-                             AND RechnungsDatum <  DATEADD(MONTH, DATEDIFF(MONTH, 0, GETDATE()), 0)
+                             AND cast(RechnungsDatum as Date) >=  '" & von.ToShortDateString & "'
+                             AND cast(RechnungsDatum as Date) <=  '" & bis.ToShortDateString & "'
                         group by year(rechnungsdatum),MONTH(rechnungsdatum),RechnungsKundenNr,Offertenstamm.OffertenNr,Offertenstamm.OffertenBez,Adressen.Ordnungsbegriff,Adressen.LandKz , leistungen.LeistungsNr,leistungen.LeistungsBez,ReverseCharge
                         order by Year,Month,CustomerNo,Offertenstamm.OffertenNr,Offertenstamm.OffertenBez,leistungen.LeistungsNr"
 
@@ -2382,7 +2380,7 @@ Public Class usrcntlFakturierung
         Dim EMails_CC As String = ""
         Dim EMails_BCC As String = "d.breimaier@verag.ag,al@verag.ag"
 
-        Dim Body = "Attached are the reports for the Verag 360 invoice from " & von.ToShortDateString & " to " & bis.ToShortDateString & "." &
+        Dim Body = "Attached is the report for the Verag 360 invoices from " & von.ToShortDateString & " to " & bis.ToShortDateString & "." &
                      "<br><br>Created on: " & Now.ToShortDateString & " at " & Now.ToShortTimeString &
                      "<br><br><br>Automatically generated email. Please do not reply to this email."