diff --git a/MailSender/MAILSender.vb b/MailSender/MAILSender.vb
index 636694a..10bd8ff 100644
--- a/MailSender/MAILSender.vb
+++ b/MailSender/MAILSender.vb
@@ -2774,11 +2774,29 @@ Module Mail
                                     Try
                                         Dim zS = If(r("Zollsystem_Land") IsNot DBNull.Value, r("Zollsystem_Land").ToString(), "")
                                         If ZOLLANMELDUNG.getDataByBezugsnummer(r("FilialenNr") & "/" & r("AbfertigungsNr"), r("Abfertigungsart"), "", False, zS) Then
-                                            Blatt.Range("E" & cnt).Value = ZOLLANMELDUNG.Handelsrechnung.Replace(", ", "," & vbNewLine)
+
+
+                                            '-------------------------------------------------------
+
+                                            Dim RechnungsString = ZOLLANMELDUNG.Handelsrechnung.Replace(", ", "," & vbNewLine)
+                                            Dim rows() As String = RechnungsString.Split(New Char() {" "c}, StringSplitOptions.RemoveEmptyEntries)
+
+                                            For Each row As String In rows
+
+                                                If IsDate(row) AndAlso row.Length = 10 Then
+                                                    RechnungsString = RechnungsString.Replace(row.ToString, "")
+                                                End If
+
+                                            Next
+
+                                            Blatt.Range("E" & cnt).Value = RechnungsString.Trim
+
+                                            '-------------------------------------------------------
+
                                             Blatt.Range("F" & cnt).Value = ZOLLANMELDUNG.ABGABEN_EUST
                                             Blatt.Range("G" & cnt).Value = ZOLLANMELDUNG.ANZ_POS
                                             If If(ZOLLANMELDUNG.ATCMRN, "") <> "" Then
-                                                Blatt.Range("E" & cnt).Value = ZOLLANMELDUNG.ATCMRN
+                                                Blatt.Range("C" & cnt).Value = ZOLLANMELDUNG.ATCMRN
                                             End If
                                         End If